Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4488 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56466】カーソルをＡ列に わかば 08/6/18(水) 13:34 質問[未読]
【56467】Re:カーソルをＡ列に ひげくま 08/6/18(水) 13:44 回答[未読]
【56469】Re:カーソルをＡ列に kanabun 08/6/18(水) 13:54 発言[未読]
【56470】Re:カーソルをＡ列に わかば 08/6/18(水) 14:02 お礼[未読]
【56466】カーソルをＡ列に
質問  わかば  - 08/6/18(水) 13:34 -
引用なし
パスワード
   いつもお世話になっています。
ユーザーフォームにコンボボックスがあります。
そのコンボボックスに現在のカーソル位置に関わらず、必ず一つ下のＡ列のセルにカーソルを移動したいのですが・・・。

Sub 下_Click()
　　　 ActiveCell.Offset(1).Activate
End Sub

宜しくお願いします。
【56467】Re:カーソルをＡ列に
回答  ひげくま  - 08/6/18(水) 13:44 -
引用なし
パスワード
   いろいろなやりかたがあるとは思いますが、

ActiveCell.Offset(1).EntireRow.Cells(1, 1).Activate

とか、


ActiveCell.EntireRow.Cells(2, 1).Activate

とか、

Cells(ActiveCell.Row + 1, 1).Activate

とかですかね。
【56469】Re:カーソルをＡ列に
発言  kanabun  - 08/6/18(水) 13:54 -
引用なし
パスワード
   ▼わかば さん：

>　　　 ActiveCell.Offset(1).Activate

の代わりに、
　ActiveSheet.Cells(ActiveCell.Row + 1, 1).Activate
　AppActivate Application.Caption

としておくと、移動したセルにすぐ入力可能状態になります。
【56470】Re:カーソルをＡ列に
お礼  わかば  - 08/6/18(水) 14:02 -
引用なし
パスワード
   ひげくまさん　kanabun さん
有り難うございました。
もっと勉強します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4488 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free