Excel VBA質問箱 IV

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

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


46274 / 76732 ←次へ | 前へ→

【35432】Re:列方向、行方向に検索しながら処理
回答  Kein  - 06/3/4(土) 13:20 -

引用なし
パスワード
   ベタ書きですので、うまくいくかどうか分かりませんが・・

Sub Test()
  Dim C As Range
  Dim i As Long
  Dim Bs As String, St As String

  For i = 2 To Range("A65536").End(xlUp).Row
   Bs = "": St = ""
   For Each C In Cells(i, 2).Resize(, 58)
     Bs = Cells(1, C.Column).Text
     Select Case C.Value
      Case Is < 2: St = St & Bs & "/00,"
      Case Is < 6: St = St & Bs & "/01,"
      Case Is < 10: St = St & Bs & "/02,"
      Case Else: St = St & Bs & "/99,"
     End Select
   Next
   St = Left$(St, Len(St) - 1)
   Cells(i, 60).Value = St
  Next i
End Sub   
1 hits

【35424】列方向、行方向に検索しながら処理 さちきょん 06/3/3(金) 23:42 質問
【35432】Re:列方向、行方向に検索しながら処理 Kein 06/3/4(土) 13:20 回答
【35447】Re:列方向、行方向に検索しながら処理 さちきょん 06/3/4(土) 23:57 お礼

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