Ｐａｇｅ 184 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼指定した範囲の全てのセルに「0.0」を一発で入力する方法 エイジ 02/10/9(水) 15:18 ┗Re:指定した範囲の全てのセルに「0.0」を一発で入力する方法 Jaka 02/10/9(水) 16:05 ┗Re:指定した範囲の全てのセルに「0.0」を一発で入力する方法 エイジ 02/10/9(水) 17:10 ┗Re:指定した範囲の全てのセルに「0.0」を一発で入力する方法 Jaka 02/10/10(木) 10:13 ┗Re:ありがとうございました エイジ 02/10/10(木) 10:56 ─────────────────────────────────────── ■題名 ： 指定した範囲の全てのセルに「0.0」を一発で入力する方法 ■名前 ： エイジ ■日付 ： 02/10/9(水) 15:18 -------------------------------------------------------------------------
| はじめまして お助け下さい。 指定した範囲のセル全てに「0.0」を入力したいのです。 因みに 0.0 は文字列です。 コマンドボタン一発でできる方法はあるでしょうか。 また、0.0 以外の数字(文字列)を入力したい時もあります。 イメージとしては、TextBoxに入力した数字(文字列)を入力し、 コマンドボタンを押すと、選択されている範囲のセル全てに その数値(文字列)が入力される という感じを期待しています。 どなたか 宜しくご教示願います。 |
| ▼エイジ さん： >はじめまして > >お助け下さい。 > >指定した範囲のセル全てに「0.0」を入力したいのです。 >因みに 0.0 は文字列です。 > >コマンドボタン一発でできる方法はあるでしょうか。 > >また、0.0 以外の数字(文字列)を入力したい時もあります。 >イメージとしては、TextBoxに入力した数字(文字列)を入力し、 >コマンドボタンを押すと、選択されている範囲のセル全てに >その数値(文字列)が入力される という感じを期待しています。 > >どなたか 宜しくご教示願います。 こんにちは。 こんな感じかな？ Range("A1:C5").value = textbox1.text Selection.value = TextBox1.text |
| ▼Jaka さん： はじめまして ありがとうございました。 私 いまいち 分かっていないのですが、 最初のコードは範囲をあらかじめ指定するもので、 次のコードはセルを選択して、その選択範囲のセル全てに 数値を入れ込むということですよね。 >Range("A1:C5").value = textbox1.text > >Selection.value = TextBox1.text そこで、もう少し教えていただきたいのですが、 Selectionの範囲をその時選択するのではなくて、 表のデータ（全て）を選択したいのですが、 データの行、列数ともに日々変動します。 A列には項目、1行にも項目が入っています。 これらを除いたデータ範囲（長方形）をSelectionの 範囲としたいのですが、できるでしょうか。 つまり、B2から最右下のセルをシフトを押しながら 選択するような感じです。 ただし、全てにデータが入力されているわけではありませんし、 最右下もデータが入力されていないこともあります。 必ず入力されているのは、Ａ列と1行の項目です。 Selection.End(xlDown).Select や Selection.End(xlToRight).Select を使えば できるような気がするのですが、いまいち分かりません。 どうぞ、教えてください。 |
| 色々な書き方があるけど。 >Selection.End(xlDown).Select や >Selection.End(xlToRight).Select を使えば >できるような気がするのですが、 と、ここまで応用力があるみたいなのでこれを使ってみましょう。 選択してみました。 R = Range("A2").End(xlDown).Row C = Range("B1").End(xlToRight).Column Range(Cells(2, 2), Cells(R, C)).Activate 上をちょっと変えた書き方 Range(Cells(2, "B"), Cells(R, C)).Activate Range("B2", Cells(R, C)).Activate 別物の１つ CuRa = Range("A1").CurrentRegion.Address(0, 0) EnRa = Right(CuRa, Len(CuRa) - InStr(1, CuRa, ":")) Range("B2:" & EnRa).Select |
| ▼Jaka さん： ありがとうございました。 非常に助かりました。 >R = Range("A2").End(xlDown).Row >C = Range("B1").End(xlToRight).Column >Range("B2", Cells(R, C)).Activate これを使わせていただくことにしました。 >CuRa = Range("A1").CurrentRegion.Address(0, 0) >EnRa = Right(CuRa, Len(CuRa) - InStr(1, CuRa, ":")) >Range("B2:" & EnRa).Select これは理解できないので、使うのを諦めました。 |