Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30558 / 76732

←次へ　｜　前へ→


	【51439】Re:Select Caseの使い方を教えてください

フランまま - 07/9/18(火) 14:35 -


	引用なし

	パスワード

▼じゅんじゅんさん、Jakaさんありがとうございました。

以下実際のコードです。
変数Stはすべて数値です。

連結した数値を決まった列(AN列)に表示したいと思います。

Select Case C.Value～の条件を今度は

空白の場合は空白のまま
0の場合は00(0→00)
1ケタの場合は前に0をつける(4→04)
2ケタの場合はそのまま(20→20)

としたいのです。

どうぞよろしくお願いします。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Dim C As Range
　 Dim i As Integer
　 Dim v As Integer
　 Dim Bs As String, St As String
　 Dim lngEndROW As Long

ngEndROW = Range("B65536").End(xlUp).Row

For i = 2 To lngEndROW

　
　　　Bs = "": St = ""
　　For Each C In Cells(i, 5).Resize(, 34)
　　　　 Bs = Trim(Cells(1, C.Column).Text)

　　　　 Select Case C.Value　　　　　　　　　　←※※ここの条件を変えます
　　　　　　Case Is = "": St = St
　　　　　　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
　　　Range("AN:AN").NumberFormat = "@"

　　　St = Left$(St, Len(St) - 1)
　　　Cells(i, 40).Value = Trim(St)
　　　
　 Next i
　

7 hits

▼

【51286】Select Caseの使い方を教えてください フランまま 07/9/10(月) 13:20