Excel 何でもQ&A

Sub test()
    ActiveWorkbook.SaveAs Filename:=Range("A1")
End Sub

Sub test2()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=Range("A1")
    Application.DisplayAlerts = True
End Sub

Sub Sample()
    MsgBox FileDateTime("E:\Sample.txt")
End Sub

1. ウィルスに感染している
2. XLStartフォルダにブックが保存されている
3. Excelのバグ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rc
    Set rc = Application.Intersect(Target, Range("B2:D6"))
    If rc Is Nothing Then
        Range("A1") = False
    Else
        Range("A1") = True
    End If
End Sub

1. セルA20:J22を選択する
2. =TRANSPOSE(A1:C10)と入力し…
3. Shiftキー＋Ctrlキー＋Enterキーを押す

Sheets("Sheet1").Hyperlinks.Add Anchor:=ActiveCell, _
                                Address:="", _
                                SubAddress:="Sheet2!A1", _
                                TextToDisplay:="リンクだよ"

Sub test()
    Dim buf(100) As Long, i As Long
    For i = 1 To 100
        buf(i) = i
    Next i
    Open "C:\Output.txt" For Output As #1
        For i = 1 To 100
            Write #1, buf(i)
        Next i
    Close #1
End Sub

Function myFunction(tmp As Range)
    myFunction = tmp.Address
End Function

Sub test()
    Dim DataCount As Long
    DataCount = WorksheetFunction.Subtotal(3, ActiveSheet.Columns(1)) - 1
    MsgBox DataCount
End Sub

Sub test()
    ActiveWorkbook.DeleteNumberFormat NumberFormat:="#人"
End Sub

Sub test()
    Dim A, B, C
    A = "tanaka"
    B = "123"
    C = A
    A = B
    B = C
    MsgBox A & vbCrLf & B
End Sub

Sub test()
    MsgBox IsNumeric(Range("A1"))
End Sub

Sub test()
    If Range("A1").HasFormula Then
        MsgBox "数式が入力されています"
    Else
        MsgBox "数式が入力されていません"
    End If
End Sub

1. [ツール]-[ユーザー設定]をクリックします。実行すると[ユーザー設定]ダイアログボックスが表示されます
2. [ツールバー]タブを開きます
3. [ツールバー]リストで「ワークシートメニューバー」を選択します
4. [リセット]ボタンをクリックします
5. 「リセットしてもよろしいですか？」という確認メッセージで[OK]ボタンをクリックします
6. [閉じる]ボタンをクリックして[ユーザー設定]ダイアログボックスを閉じます