| |
初心者です。
在庫管理表を作っています。
1行目にはサイズカテゴリが出力されていて、置換したいと思います。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
270のように半角3ケタで出力されているもの→27.0
1920と半角4ケタで出力されているもの→19-20
「総計」、「その他」と書いてある列はまるごと削除
空白セルがあったら次へ進む
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
です。
これをすべて繰り返し処理しようと思い、本を見ながら
Select Case〜でやってみたのですが、うまくいかず、
「If〜 End If」を何度か使ったらできるかと思い
苦戦しましたが、エラーでよくわからなくなってしまいました。
初歩的なことだと思うのですが、申し訳ありません。
どなたか教えてください。
Sub 在庫()
Dim C As Range
Dim i As Integer
Dim v As Integer
Dim Bs As String, St As String
Dim lngEndROW As Long
Dim shName
Dim sizeIndex
'ターゲットシート指定
shName = "ｱｸｾｻﾘｰ"
'サイズ表示修正
For v = 5 To 38
Dim test
test = Worksheets(shName).Cells(1, v)
If IsNumeric(test) = True Then
If Len(Worksheets(shName).Cells(1, v)) = 4 Then
Worksheets(shName).Cells(1, v) = Left(Worksheets(shName).Cells (1, v), 2) & "-" & Right(Worksheets(shName).Cells(1, v), 2)
Worksheets(shName).Cells(1, v).NumberFormat = "@"
Worksheets(shName).Cells(1, v).Value = VBA.Trim(Worksheets (shName).Cells(1, v).Value)
End If
End If
Next v
If IsNumeric(test) = True Then
If Len(Worksheets(shName).Cells(1, v)) = 3 Then
Worksheets(shName).Cells(1, v) = Left(Worksheets(shName).Cells(1, v), 2) & "." & Right(Worksheets(shName).Cells(1, v), 1)
Worksheets(shName).Cells(1, v).NumberFormat = "@"
Worksheets(shName).Cells(1, v).Value = VBA.Trim(Worksheets (shName).Cells(1, v).Value)
End If
End If
Next v
・・・・
|
|
ぴい
- 06/4/27(木) 21:21 -
