Excel VBA質問箱 IV

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

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


8621 / 13644 ツリー ←次へ | 前へ→

【32227】コマンドボタンについて おじさん 05/12/9(金) 18:15 質問[未読]
【32228】Re:コマンドボタンについて ichinose 05/12/9(金) 18:19 発言[未読]
【32230】Re:コマンドボタンについて おじさん 05/12/9(金) 18:31 お礼[未読]

【32227】コマンドボタンについて
質問  おじさん  - 05/12/9(金) 18:15 -

引用なし
パスワード
   コマンドボタンが設定されている行番号を取得したです。
ご教授お願いします。

例)
| |1|2| 3 | ←列
|1|
|2|
|3|
|4|    ボタン
|5|
 ↑
 行

行4列3にコマンドボタンを配置します。
コマンドボタンを押した時に行の「4」と言う数字を
取得したいのですが可能でしょうか。

宜しくお願いします。

【32228】Re:コマンドボタンについて
発言  ichinose  - 05/12/9(金) 18:19 -

引用なし
パスワード
   ▼おじさん さん:
こんばんは。


>コマンドボタンが設定されている行番号を取得したです。
>ご教授お願いします。
>
>例)
>| |1|2| 3 | ←列
>|1|
>|2|
>|3|
>|4|    ボタン
>|5|
> ↑
> 行
>
>行4列3にコマンドボタンを配置します。
ということは、セルC4の中にコマンドボタンを配置していると
考えてよいですか?


>コマンドボタンを押した時に行の「5」と言う数字を
>取得したいのですが可能でしょうか。


だとしたら、

当該シートモジュールに
'============================================
Private Sub CommandButton1_Click()
  With CommandButton1
    MsgBox .TopLeftCell.Row + 1
    End With
End Sub

なんてすると「5」が取得できます。
尚、Commandbutton1は、「コントロールツールボックス」にあるコマンドボタンであり、
これがセルC4の中に配置したコマンドボタンだとします。

確認してみてください。

TopLeftCellプロパティで取得しているのでボタンの左上がC4を逸脱しないように
配置してください。

【32230】Re:コマンドボタンについて
お礼  おじさん  - 05/12/9(金) 18:31 -

引用なし
パスワード
   有難う御座います、出来ました。

>コマンドボタンを押した時に行の「5」と言う数字を
>取得したいのですが可能でしょうか。

すみません、「5」ではなく「4」の間違いでした。
教えていただいた、
MsgBox .TopLeftCell.Row + 1 の部分を
MsgBox .TopLeftCell.Row に変えて実行してみました。

うまくいって助かりました。有難う御座います。

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