Excel VBA質問箱 IV

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

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


55714 / 76738 ←次へ | 前へ→

【25791】Re:繰り返し
回答  だるま WEB  - 05/6/14(火) 21:40 -

引用なし
パスワード
   こんにちは

素直?に一つづつ分解する例です。^d^

Sub test()
  Dim myRange As Range
  Dim myCell As Range
  
  Set myRange = Range("A1")
  Set myRange = Range(myRange, Range("A65536").End(xlUp))
  
  For Each myCell In myRange.Cells
    With myCell
      .Offset(, 6).Value = Mid$(.Text, 3, 2)
      .Offset(, 7).Value = Mid$(.Text, 5, 2)
      .Offset(, 8).Value = Mid$(.Text, 7, 2)
    End With
  Next
  
  Set myCell = Nothing
  Set myRange = Nothing
End Sub
0 hits

【25789】繰り返し たま 05/6/14(火) 21:24 質問
【25790】Re:繰り返し かみちゃん 05/6/14(火) 21:36 回答
【25792】Re:繰り返し ichinose 05/6/14(火) 21:43 発言
【25794】Re:繰り返し たま 05/6/14(火) 22:18 質問
【25795】Re:繰り返し かみちゃん 05/6/14(火) 22:44 回答
【25796】Re:繰り返し ichinose 05/6/14(火) 22:54 発言
【25798】Re:繰り返し たま 05/6/14(火) 23:12 お礼
【25799】Re:繰り返し ichinose 05/6/14(火) 23:38 発言
【25801】Re:繰り返し 追伸 ichinose 05/6/15(水) 0:03 発言
【25827】Re:繰り返し 追伸 たま 05/6/15(水) 20:39 お礼
【25791】Re:繰り返し だるま 05/6/14(火) 21:40 回答

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