Excel VBA質問箱 IV

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

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


12118 / 13645 ツリー ←次へ | 前へ→

【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さんのご回答で、あたくしもOKやと思うんですけど・・・。
セレクトしたとこを、すべて8にするんじゃないんかな?。

【12284】Re:セレクト処理
回答  Jaka  - 04/3/29(月) 17:52 -

引用なし
パスワード
   こう言う事なんでしょうか?
因みに書きこまれる順番はわかりません。

For Each cel In Selection
  nn = nn + 1
  cel.Value = nn
Next

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