Excel VBA質問箱 IV

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

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


46259 / 76732 ←次へ | 前へ→

【35447】Re:列方向、行方向に検索しながら処理
お礼  さちきょん  - 06/3/4(土) 23:57 -

引用なし
パスワード
   ▼Kein さんへ

うまくいきました!!

ご回答いただき、本当にありがとうございました。


>ベタ書きですので、うまくいくかどうか分かりませんが・・
>
>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 お礼

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