Excel VBA質問箱 IV

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

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


44467 / 76732 ←次へ | 前へ→

【37282】初心者です。よろしくお願いします。
質問  ぴい  - 06/4/27(木) 21:21 -

引用なし
パスワード
   初心者です。
在庫管理表を作っています。

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

  ・・・・
    
    

0 hits

【37282】初心者です。よろしくお願いします。 ぴい 06/4/27(木) 21:21 質問
【37283】Re:初心者です。よろしくお願いします。 Kein 06/4/27(木) 21:41 回答
【37284】Re:初心者です。よろしくお願いします。 ぴい 06/4/27(木) 22:09 質問
【37285】Re:初心者です。よろしくお願いします。 かみちゃん 06/4/27(木) 22:19 発言
【37286】Re:初心者です。よろしくお願いします。 Kein 06/4/27(木) 22:24 発言
【37287】Re:初心者です。よろしくお願いします。 ぴい 06/4/27(木) 23:52 質問
【37297】Re:初心者です。よろしくお願いします。 やっちん 06/4/28(金) 12:49 発言
【37302】Re:初心者です。よろしくお願いします。 ハト 06/4/28(金) 14:39 発言
【37324】Re:初心者です。よろしくお願いします。 ぴい 06/4/28(金) 21:09 お礼

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