エクセル2000です。
たとえばA1セル内の文字列を一個ずつ取り出す場合、
Sub test01()
For i = 1 To Len(Range("A1").Value)
Cells(i, "B").Value = Range("A1").Characters(i, 1).Text
Next
End Sub
このように最初から最後の文字まで何番目で指定することはわかるのですが、これをFor Each で回すにはどうしたらよいでしょうか?
(⌒o⌒)? お教えください。
Sub test02()
For Each ch In Range("A1").Characters
i = i + 1
Cells(i, "B").Value = ch
Next
End Sub
ではエラーになります。
No.4ベストアンサー
- 回答日時:
こんにちは。
求めているのは、コレクション、じゃなくて、配列、ですよね。
例えば、(A1の文字列、6文字だとして)
Dim vA As Variant
vA = Evaluate("INDEX(MID(A1,ROW(1:6),1),)")
とか。
で、
Range("B1:B6").Value = vA
とか、
どうせなら一行にまとめて、
Range("B1:B6").Value = Evaluate("INDEX(MID(A1,ROW(1:6),1),)")
とか、
For Each ch In vA
...
とか。
vA(1 To 6, 1 To 1) で返ります。
一次元配列が必要ならば、(For Each ~ で使うなら関係ないだろうけど)
vA = Application.Transpose(vA)
を、追加してください。
(Application.Transpose(配列)は、XL2000の場合5461が要素数の上限。)
Evaluateの引数は文字列ですから、
Evaluate("文字列" & 変数 & "文字列")
のような使い方で応用可能です。
(Excel数式は苦手なので、もっと良いのがあるかも)
動作がやや重、ってこともあり、普段は使わないだろうけど、
使い捨てのマクロ作る時とかなら、、、有り?、、、かな??
かなり珍しい手法ですし、他人に奨めるものではないですね。
実際には、配列変数に渡す必要がないなら、
With Range("B1:B6")
.Formula = "=MID(A$1,ROW(),1)"
.Value = .Value
End With
とかで、処理するだろうと思います。
'ものぐさ'って言葉、好きですね。
「'面倒臭い'は発明の父」とか云うんでしたっけ?
(違ってたら教えてくださいね^^)
ありがとうございます。
そうか、いったん配列に取り込んでしまえばコレクションじゃなくともFor Each Nextが使えるんですね、知りませんでした。
Evaluate("INDEX(MID(A1,ROW(1:6),1),)") の6の部分をLen(Range("A1")) に変え、
Sub test03()
Dim vA As Variant
vA = Evaluate("INDEX(MID(A1,ROW(1:" & Len(Range("A1")) & "),1),)")
For Each ch In vA
i = i + 1
Cells(i, "B").Value = ch
Next
End Sub
と、希望通りに出来ました。
ただ、残念ながらEvaluate("INDEX(MID(A1,ROW(1:6),1),)")が、わたしにはブラックボックスなのです。
No.5
- 回答日時:
こんにちは
どこら辺のことを問題にしての質問だったのか、
ようやく解った気がします。
》ただ、残念ながらEvaluate("INDEX(MID(A1,ROW(1:6),1),)")が、わたしにはブラックボックスなのです。
Evaluate自体がブラックボックスのようなものですからね。(^^)
違和を感じる方が普通でしょう。
ショートカットして簡単に済ませて良いものと、
そうじゃないものと、あるとすれば、
抜きにしてはいけない基本の話なんだと思います。
(今回の質問を経て、既に明らかでしょうが、整理する意味で)
処理する対象が「値」なのか「(オブジェクトの)プロパティ」なのか、
に、普段から注目して、サンプルソースを読むようにすれば、
今のような迷いは解消されると思います。
値の操作に関しては、#2さんご提示の記述が、すべての基本形だと思います。
暫くは、この形にこだわって、他に目を向けず、省略を考えず、
で自分のモノにしちゃうのが良いかも知れませんね。
「値」を取り込んでからメモリ上で処理する、
ことを意識的に繰り返していけば、今はモヤモヤしている諸々のことが
スッキリして行くと思いますよ。
(例えばExcelVBAらしい配列の使い方とかも)
こればっかりは継続によってしか得られないようにも思えます。
一方で、
「1対1で読み込みながら処理」
することに物足りなさを覚える、とか、
もっと簡単に出来ないか、とかの感覚も、
大事にとっておいて欲しいと願うのですけれど。
言うまでもないと思いますが、私にポイントつけないでくださいね。
では、雷に気を付けて^^
ありがとうございます。
右耳とたてがみを怪我しながらも(笑)、Evaluate("INDEX(MID(A1,ROW(1:6),1),)") を悩んでおり。お礼が遅くなってしまいました。
Evaluateって、文字列式を評価した結果を返すのだと思っていましたが、配列も返してくれるんですね。
これまでの理解だと、MsgBox Evaluate("3+5")ぐらいでしたが、
下記のようにいろいろやってみて、配列を返してるのがおぼろげながらもわかってきました。
Sub test02()
ans = Evaluate("INDEX(MID(A1,ROW(1:6),1),0)")
For i = LBound(ans, 1) To UBound(ans, 1)
MsgBox ans(i, 1)
Next
End Sub
Sub test01()
ans = Evaluate("A1:A6")
For i = LBound(ans, 1) To UBound(ans, 1)
MsgBox ans(i, 1)
Next
End Sub
Sub test01_2()
ans = Application.Transpose(Evaluate("A1:A6"))
For i = LBound(ans) To UBound(ans)
MsgBox ans(i)
Next
End Sub
Sub test02()
ans = Evaluate("INDEX(MID(A1,ROW(1:6),1),0)")
For i = LBound(ans, 1) To UBound(ans, 1)
MsgBox ans(i, 1)
Next
End Sub
Sub test02_2()
ans = Application.Transpose(Evaluate("INDEX(MID(A1,ROW(1:6),1),0)"))
For i = LBound(ans) To UBound(ans)
MsgBox ans(i)
Next
End Sub
いつもありがとうございます。
No.3
- 回答日時:
> 文字列をコレクションとして扱う方法はないという
> 解釈でよろしいでしょうか?
有る・無しで回答するなら「無し」ですね。その通りです。
コレクションとして扱いたい意図は? それによっては代案がでてくるかも
しれませんよ。
何度もありがとうございます。
別に特別の意味はないんです。
ものぐさなもので、For Each のほうがいちいち対象数を指定しなくていいので簡単かなとおもっただけですから。
すみません。
(///▽///)
No.2
- 回答日時:
こんにちは。
[VBA ヘルプ引用]----------------------
Characters プロパティ
解説
Characters オブジェクトはコレクションではありません。
--------------------------------------
とありますよ。名前はコレクションぽいですけどね。For Each ループ
はコレクションまたは配列で使いますので無理でしょう。
1 文字毎に取り出したいのなら Mid を使うとか。
s = Range("A1").Text
For i = 1 To Len(s)
Cells(i, "B").Value = Mid(s, i, 1)
Next
文字単位でフォント変更など、つまり Characters オブジェクトの操作を
したいなら、
Range("A1").Characters(i, 1)
とするしかないようです。
ありがとうございます。
やはりそうなんですね。
セル内の文字列、あるいは"ABCDEF"といった文字列をコレクションとして扱う方法はないという解釈でよろしいでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Excel(エクセル) vba アクティブシートのA1セルの値を基準に複数のシートコピー&シート名を 6 2023/04/12 18:36
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) セルS2に入力した「月」と一致したB列の右隣へセルS110の値を転記する下記マクロを実行するとエラー 2 2022/12/06 17:32
このQ&Aを見た人はこんなQ&Aも見ています
-
餃子を食べるとき、何をつけますか?
みんな大好き餃子。 ふと素朴な疑問ですが、餃子には何をつけて食べますか? 王道は醤油とお酢でしょうか。
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
昨日見た夢を教えて下さい
たまにすごいドラマチックな夢見ること、ありませんか? 起きてからも妙に記憶に残っているような、そんな夢。
-
架空の映画のネタバレレビュー
映画のCMを見ていると、やたら感動している人が興奮で感想を話していますよね。 思わずストーリーが気になってしまう架空の感動レビューを教えて下さい!
-
エクセルVBAでRangeの引数制限?
Excel(エクセル)
-
ExcelVBAの知恵をお貸しください。
Excel(エクセル)
-
エクセル 一定の条件に沿ってデータを変換する方法を教えてください。
Excel(エクセル)
-
-
4
For Nextマクロの高速化についてご教示ください。
Excel(エクセル)
-
5
VBAで配列のデータを検索
PowerPoint(パワーポイント)
-
6
エクセルVBA フォーム上でOnkeyがうまく出来ない
Excel(エクセル)
-
7
Excel_VBAでハイパーリンクの削除時の書式
Excel(エクセル)
-
8
エクセルVBAでもっと早く転記
PowerPoint(パワーポイント)
-
9
VBA/Worksheet_Changeがうまくいかない
PowerPoint(パワーポイント)
-
10
GoogleDoc.Spreadsheet配列数式
Excel(エクセル)
-
11
VBA DictionaryオブジェクトのItemについての質問です。
Excel(エクセル)
-
12
VBA/エクセルの日付入力でYYYYMMDD
Excel(エクセル)
-
13
VBAでURLからソース内の指定文字列を取り出す
Visual Basic(VBA)
-
14
配列を初期化する時ってどうすればいいですか?
Excel(エクセル)
-
15
無限ループ objIE.Navigate
Visual Basic(VBA)
-
16
エクセルVBAで読み取りパスワード回避
Excel(エクセル)
-
17
エクセルVBA 他の仕事を止めない時間稼ぎ
Visual Basic(VBA)
-
18
VBAでオブジェクトがありません、となってしまう
Visual Basic(VBA)
-
19
「timer」の不思議
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル数式に問題があります
-
11ケタの数字を打つと、エク...
-
Excelの警告について
-
excelVBAについて。
-
UNIQUE関数、配列数式を使わず...
-
Excelで、毎月の月曜と金曜の合...
-
エクセルの数式が分かりません
-
Excelで合計を求めたいです
-
【マクロ】メッセージボックス...
-
【マクロ】複数の日付データをY...
-
エクセル2021 範囲指定印刷をす...
-
カーソルを合わせてる時のみ行...
-
vbe でのソースコード参照(msgb...
-
エクセル初心者です 用語等まだ...
-
エクセル初心者です 用語とか良...
-
フィルター時の、別の列に書い...
-
フィルターをかけた時の、別の...
-
合計欄の文字を自動で全角文字...
-
エクセルの関数ついて
-
エクセル 別セルの2進数表示を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
エクセルの数式バーのフォント...
-
【Excel】日付に連動してプルダ...
-
【再投稿】レイアウトが異なる...
-
Excelについて教えてください ...
-
同率順位の発生しないランキン...
-
エクセルマクロについて教えて...
-
【Excel VBA】 テキストファイ...
-
Excel 標準フォントについて教...
-
Excelの計算で差分を求める場合...
-
Excelの区切り文字について質問...
-
大容量があつかえるソフトを探...
-
エクセルの計算式について(COU...
-
エクセルについて
-
今までは、 「CSVの出力先を選...
-
Excel ショートカットで列、行...
-
8:40までの出勤は全て8:30に...
-
if関数。半角文字や全角文字で...
-
エクセルの関数
-
毎週追加して行くセルの数値を...
おすすめ情報