|
かふん さん、こんにちは
>ボタンにマクロを割り当てて、そのボタンを押すと下のような処理ができるようにしたいのですがこういうのは可能でしょうか。
>もし、セルの位置がG〜Lの間ならばそのセルのある行のH列に"100"をK列に"111"を入力
>(例えばG20にセルがあったとしたら、H20に"100"でK20に"111")
>もしセルの位置がP〜Uにあったなら、Q列に"100"、T列に"111"を入力
セルの位置っていうのは、アクティブになってるセルってことですか?
こういうことかな・・・
Private Sub CommandButton1_Click()
Dim lngCol As Long
Dim lngRow As Long
lngCol = ActiveCell.Column
lngRow = ActiveCell.Row
If lngCol >= 7 And lngCol <= 12 Then
Cells(lngRow, 8).Value = 100
Cells(lngRow, 11).Value = 111
ElseIf lngCol >= 16 And lngCol <= 21 Then
Cells(lngRow, 17).Value = 100
Cells(lngRow, 20).Value = 111
End If
End Sub
|
|