Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4629 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【55502】Splitについて、 Ｍｉｓａｋｏ 08/5/8(木) 20:25 質問[未読]
【55503】Re:Splitについて、 kanabun 08/5/8(木) 20:38 回答[未読]
【55504】Re:Splitについて、 Ｍｉｓａｋｏ 08/5/8(木) 21:36 お礼[未読]
【55502】Splitについて、
質問  Ｍｉｓａｋｏ  - 08/5/8(木) 20:25 -
引用なし
パスワード
   今晩は。
アドバイスお願いします。
Splitについて、大枠は理解したつもりなのですが。
下のコードはどのように理解すると良いのでしょうか。
アドバイスお願いします。
Dim N As Long
For N = 1 To 10
　 MsgBox Split(Columns(N).Address(, False), ":")(0)
Next
【55503】Re:Splitについて、
回答  kanabun  - 08/5/8(木) 20:38 -
引用なし
パスワード
   ▼Ｍｉｓａｋｏ さん：
> For N = 1 To 10
>　 MsgBox Split(Columns(N).Address(, False), ":")(0)
> Next

分解して、
Dim N As Long
Dim S As String
Dim v As Variant
For N = 1 To 3
　 S = Columns(N).Address(, False)
　 v = Split(S, ":")
　 MsgBox S & vbCr & v(0)
Next

とでもしてみると、見えてきませんか(^-^
【55504】Re:Splitについて、
お礼  Ｍｉｓａｋｏ  - 08/5/8(木) 21:36 -
引用なし
パスワード
   ▼kanabun さん

有難うございます。
分解したコードを頂き
よく理解できました。
見えてきました。
でも、このSplitは取っ付きにくいですね。
また、改めてこのSplitについて質問させて
いただくことがあるかと思いますが、宜しくお願い
します。
有難うございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4629 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free