Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6930 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

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

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


	【42402】１つ右セルへ移動させるには

dai - 06/9/9(土) 15:11 -


	引用なし

	パスワード

はじめまして
下記コードでコマンドボタンを押したのち
１つセルを移動したいのですが、どうしたらいいでしょうか。
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:１つ右セルへ移動させるには

[名前なし] - 06/9/9(土) 16:24 -


	引用なし

	パスワード

>１つセルを移動したいのですが、どうしたらいいでしょうか。どのセルに対してですか？アクティブセルに対してなら､ ActiveCell.Offset(, 1).Select でいいと思いますが。


	【42404】Re:１つ右セルへ移動させるには

dai - 06/9/9(土) 16:32 -


	引用なし

	パスワード

▼[名前なし] さん：

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6930 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free