ThisWorkbookにsheet1からsheet9までの範囲で処理をさせたいと思い
Else
Worksheets("Sheet1", "sheet3").Select
If Not Intersect(Target, Sh.Range("B7:B299")) Is Nothing Then
If Target.Value = "" Then
Target.Value = "2010/"
Application.SendKeys "{f2}" としますがエラーになります。
色々調べましたが、精根尽き果ててお伺いします。
宜しくお願いします。
こんばんわ！
同様のデータの列を検索したいのですが、良い方法が思いつきません。
色々考えてできたのが下記の方法ですが、項目が増えると大変なので、簡易化したいです。
今回簡易化したいのは↓
Sub test()
Dim test(1 To 10) As Integer
Dim stok_date As String
For i = 1 To 5 Step 1
stok_date = Cells(1, i)
For j = 1 To 10 Step 1
If stok_date = Cells(3, j) Then
If test(1) = Empty Then
test(1) = j
ElseIf test(2) = Empty Then
test(2) = j
ElseIf test(3) = Empty Then
test(3) = j
ElseIf test(4) = Empty Then
test(4) = j
ElseIf test(5) = Empty Then
test(5) = j
End If
Exit For
End If
Next j
Next i
End Sub
一行目○列目のデータが三行目の何列目にあるのかをそれぞれtest(○)に入れたい。
といった具合です。
アドバイスの程よろしくお願いいたします。
こんばんわ！
同様のデータの列を検索したいのですが、良い方法が思いつきません。
色々考えてできたのが下記の方法ですが、項目が増えると大変なので、簡易化したいです。
今回簡易化したいのは↓
Sub test()
Dim test(1 To 10) As Integer
Dim stok_date As String
For i = 1 To 5 Step 1
stok_date = Cells(1, i)
For j = 1 To 10 Step 1
If stok_date = Cells(3, j) Then
If test(1) = Empty Then
test(1) = j
ElseIf test(2) = Empty Then
test(2) = j
ElseIf test(3) = Empty Then
test(3) = j
ElseIf test(4) = Empty Then
test(4) = j
ElseIf test(5) = Empty Then
test(5) = j
End If
Exit For
End If
Next j
Next i
End Sub
一行目○列目のデータが三行目の何列目にあるのかをそれぞれtest(○)に入れたい。
といった具合です。
アドバイスの程よろしくお願いいたします。
エクセル2010のマクロについて質問させていただきます。
特定セルが選択された場合のみ表示を140％に拡大し、そのほかを選択した場合は100％に戻すマクロをご教授願います。
具体的な例としては
エクセル A1～E4 で表を作成しています。
入力セルは A2,B2,C2,D2,E2,A4,B4,C4,D4,E4 の10カ所に数値を入力します。
上記10カ所を毎回選択するのか面倒なので「名前の管理」で10カ所を選択しています。
エクセルファイルを開くと10カ所を選択するマクロを実行しています。
その10カ所を範囲指定した中で選択セルを「Enter」で送っていき、「D2」もしくは「D4」セルを選択した場合のみ、表示倍率を上げそのほかのセルを選択した場合は表示倍率を戻すマクロをご教授願います。
名前の管理(範囲指定)を実行せずに、単にセルだけを選択した場合のマクロは作成できたのですが、範囲指定した中でのセル選択ではマクロが実行されませんでした。
単にセルだけを選択した場合拡大するマクロを記述しますので、よろしくお願いします。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address() = "$D$2" Or Target.Address() = "$D$4" Then
ActiveWindow.Zoom = 140
Else
ActiveWindow.Zoom = 100
End If
End Sub
マクロを学び始めて間もないため、初歩的なミス、見当外れな質問をしてしまうかもしれませんが、何卒よろしくお願いします。
エクセル2010のマクロについて質問させていただきます。
特定セルが選択された場合のみ表示を140％に拡大し、そのほかを選択した場合は100％に戻すマクロをご教授願います。
具体的な例としては
エクセル A1～E4 で表を作成しています。
入力セルは A2,B2,C2,D2,E2,A4,B4,C4,D4,E4 の10カ所に数値を入力します。
上記10カ所を毎回選択するのか面倒なので「名前の管理」で10カ所を選択しています。
エクセルファイルを開くと10カ所を選択するマクロを実行しています。
その10カ所を範囲指定した中で選択セルを「Enter」で送っていき、「D2」もしくは「D4」セルを選択した場合のみ、表示倍率を上げそのほかのセルを選択した場合は表示倍率を戻すマクロをご教授願います。
名前の管理(範囲指定)を実行せずに、単にセルだけを選択した場合のマクロは作成できたのですが、範囲指定した中でのセル選択ではマクロが実行されませんでした。
単にセルだけを選択した場合拡大するマクロを記述しますので、よろしくお願いします。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address() = "$D$2" Or Target.Address() = "$D$4" Then
ActiveWindow.Zoom = 140
Else
ActiveWindow.Zoom = 100
End If
End Sub
マクロを学び始めて間もないため、初歩的なミス、見当外れな質問をしてしまうかもしれませんが、何卒よろしくお願いします。
