Excel VBA質問箱 IV

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

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


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

【42402】1つ右セルへ移動させるには dai 06/9/9(土) 15:11 質問[未読]
【42403】Re:1つ右セルへ移動させるには [名前なし] 06/9/9(土) 16:24 発言[未読]
【42404】Re:1つ右セルへ移動させるには dai 06/9/9(土) 16:32 お礼[未読]

【42402】1つ右セルへ移動させるには
質問  dai  - 06/9/9(土) 15:11 -

引用なし
パスワード
   はじめまして
下記コードでコマンドボタンを押したのち
1つセルを移動したいのですが、どうしたらいいでしょうか。
Private Sub CommandButton16_Click()
ActiveSheet.Pictures.Insert( _
    ThisWorkbook.Path & "\イメージ\hare.gif"). _
    Select
    小サイズ
If UFカーソル.CheckBox1.Value = True Then
    UFカーソル.TextBox1.Text = "晴れ"
    TextBox2.Text = 8
    CommandButton10_Click
    もじ削除
    セル移動
    TextBox2.Text = 12
Else: End If
End Sub
-----------------------------------------------
過去ログでこんな感じかなと思ったのですが
組込方法がわかりません。
よろしくお願いします。
.Offset(0, 1).Select ?

【42403】Re:1つ右セルへ移動させるには
発言  [名前なし]  - 06/9/9(土) 16:24 -

引用なし
パスワード
   >1つセルを移動したいのですが、どうしたらいいでしょうか。
どのセルに対してですか?アクティブセルに対してなら、

ActiveCell.Offset(, 1).Select

でいいと思いますが。

【42404】Re:1つ右セルへ移動させるには
お礼  dai  - 06/9/9(土) 16:32 -

引用なし
パスワード
   ▼[名前なし] さん:

>ActiveCell.Offset(, 1).Select
>
>でいいと思いますが。
名無しさん返事ありがとうございます。
うまく出来ました。

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