|
こんにちは。かみちゃん です。
> ですが分かりません。。
> 使用しているコードを記述しますのでお願い致します。
まず
Sub 1日()
というようなプロシージャ名は、本当にそのようなものを使っていますか?
であれば、間違っています。
プロシージャ名は、変数の名前付け規則に従うこととなっていて、先頭を数字で始めることはできません。
さて、UO3さんからのアドバイスに基づくとし、
「ツール」−「フォーム」の「ボタン」にマクロの登録をしているならば、
以下のTestを登録しておくだけでできると思います。
Sub Test()
Dim ss As String
ss = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Offset(-2).Value
MsgBox ss & vbCrLf & Val(ss) & vbCrLf & Val(StrConv(ss, vbNarrow))
実際の処理 Val(StrConv(ss, vbNarrow))
End Sub
Private Sub 実際の処理(lngIndex As Long)
Application.ScreenUpdating = False
With Range("B1:B10")
Cells(5, 3 * lngIndex + 1).Resize(.Rows.Count).Value = .Value
End With
Range("D2").Select
Application.ScreenUpdating = True
End Sub
※質問のタイトルを変更させていただきました。
|
|