Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


76376 / 76738 ←次へ | 前へ→

【4784】Re:セルの位置によって、2通りの処理をす...
回答  つん E-MAIL  - 03/4/7(月) 14:54 -

引用なし
パスワード
   かふん さん、こんにちは

>ボタンにマクロを割り当てて、そのボタンを押すと下のような処理ができるようにしたいのですがこういうのは可能でしょうか。
>もし、セルの位置が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
0 hits

【4783】セルの位置によって、2通りの処理をするには? かふん 03/4/7(月) 14:30 質問
【4784】Re:セルの位置によって、2通りの処理をす... つん 03/4/7(月) 14:54 回答
【4798】Re:セルの位置によって、2通りの処理をす... かふん 03/4/8(火) 10:21 お礼

76376 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free