Ｐａｇｅ 340 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼指定されている範囲内のセルの値を配列に取得 go 02/11/14(木) 12:11 ┗Re:指定されている範囲内のセルの値を配列に取得 こうちゃん 02/11/14(木) 12:35 ┗Re:指定されている範囲内のセルの値を配列に取得 go 02/11/14(木) 12:59 ─────────────────────────────────────── ■題名 ： 指定されている範囲内のセルの値を配列に取得 ■名前 ： go ■日付 ： 02/11/14(木) 12:11 -------------------------------------------------------------------------
| 選択されている無いの値を配列に取得したいのです。 C3〜E7が選択されているときそのcells(3,3) cells(7,5)の値を取得するにはどうしたらよいのでしょうか？ |
| goさん、こんにちは >選択されている無いの値を配列に取得したいのです。 選択されている範囲内の値を配列に取得したい、でいいですか？ >C3〜E7が選択されているときそのcells(3,3) >cells(7,5)の値を取得するにはどうしたらよいのでしょうか？ こんな感じでどうでしょ？ Sub test() Dim TestVal() As Variant ReDim TestVal(Selection.Columns.Count, Selection.Rows.Count) TestVal = Selection.Value End Sub |
| ▼こうちゃん さん： >goさん、こんにちは >>選択されている無いの値を配列に取得したいのです。 >選択されている範囲内の値を配列に取得したい、でいいですか？ > >>C3〜E7が選択されているときそのcells(3,3) >>cells(7,5)の値を取得するにはどうしたらよいのでしょうか？ > >こんな感じでどうでしょ？ > >Sub test() > Dim TestVal() As Variant > ReDim TestVal(Selection.Columns.Count, Selection.Rows.Count) > TestVal = Selection.Value >End Sub ありがとうございます。 求めていたのはこれです。勉強になりました。 |