Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12119 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12266】セレクト処理 RB 04/3/29(月) 11:20 質問
【12268】Re:セレクト処理 IROC 04/3/29(月) 11:24 回答
【12270】Re:セレクト処理 RB 04/3/29(月) 12:28 質問
【12272】Re:セレクト処理 IROC 04/3/29(月) 13:15 回答
【12278】Re:セレクト処理 RB 04/3/29(月) 15:45 質問
【12279】Re:セレクト処理 Asaki 04/3/29(月) 16:14 回答
【12280】Re:セレクト処理 ぴかる 04/3/29(月) 16:17 発言
【12284】Re:セレクト処理 Jaka 04/3/29(月) 17:52 回答
【12266】セレクト処理
質問  RB  - 04/3/29(月) 11:20 -
引用なし
パスワード
   選択したセルのところだけ希望の番号(値)を順に入れるようにするには
どうしたらいいでしょうか？

下記のFor文のところを選択したところだけにしたいです。
5〜50とかではなく。

Dim a As Integer
Dim b As Integer

s_sheetName = ActiveSheet.Name
For a = 5 To 50
　　Worksheets(s_sheetName).cells(a, 7).Select
　　Worksheets(s_sheetName).cells(a, 7).Activate
　　Selection.FormulaR1C1 = "8"
Next a
【12268】Re:セレクト処理
回答  IROC  - 04/3/29(月) 11:24 -
引用なし
パスワード
   Selection.Value = "8"

です。
【12270】Re:セレクト処理
質問  RB  - 04/3/29(月) 12:28 -
引用なし
パスワード
   >Selection.Value = "8"
>
>です。

ここはわかりましたが、任意に選択したところだけ値を変えたいのですが。
【12272】Re:セレクト処理
回答  IROC  - 04/3/29(月) 13:15 -
引用なし
パスワード
   だから　Selection　が選択されている対象を返すプロパティです。
　　
セルを選択してからマクロを実行すれば、出来ると思いますが？

Sub sample()
　Selection.Value = "8"
end Sub
【12278】Re:セレクト処理
質問  RB  - 04/3/29(月) 15:45 -
引用なし
パスワード
   説明不足だったかもしれません。

一つのセルごとに値を変えてエンターといったように
選択したところだけを変更したいのですが。
【12279】Re:セレクト処理
回答  Asaki  - 04/3/29(月) 16:14 -
引用なし
パスワード
   こんにちは。
後ろから失礼します。

何をしたいのか、判りません。
もう少し詳細に、作業の手順や求める結果をお書きになることは出来ませんか？
【12280】Re:セレクト処理
発言  ぴかる  - 04/3/29(月) 16:17 -
引用なし
パスワード
   RBさん、こんにちは。

IROCさんのご回答で、あたくしもＯＫやと思うんですけど・・・。
セレクトしたとこを、すべて８にするんじゃないんかな？。
【12284】Re:セレクト処理
回答  Jaka  - 04/3/29(月) 17:52 -
引用なし
パスワード
   こう言う事なんでしょうか？
因みに書きこまれる順番はわかりません。

For Each cel In Selection
　　nn = nn + 1
　　cel.Value = nn
Next
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12119 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free