Excel VBA質問箱 IV

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

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


44468 / 76735 ←次へ | 前へ→

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

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

ありがとうございました。
編集しなおしていただいたもので実行してみましたが、

If test = "総計" Or "その他" Then

のところで、「型が一致しません。(エラー13)」が
でてしまいます。
どこがいけないんでしょうか?
よろしくお願いいたします。


>そこまでを編集し直すと・・
>
>Sub 在庫()
>  Dim C As Range
>  Dim i As Integer, v As Integer
>  Dim Bs As String, St As String
>  Dim lngEndROW As Long
>  Dim test As Variant, sizeIndex As Variant
>  
>  With Worksheets("アクセサリー")
>    For v = 38 To 5 Step -1
>     test = .Cells(1, v).Value
>     If Not IsNumeric(test) Then
>       If test = "総計" Or "その他" Then
>        .Columns(v).Delete xlShiftToLeft
>       End If
>     Else
>       If Len(test) = 4 Then
>        .Cells(1, v).Value = _
>        Left(test, 2) & "-" & Right(test, 2)
>        .Cells(1, v).Value = VBA.Trim(.Cells(1, v).Value)
>       ElseIf Len(test) = 3 Then
>        .Cells(1, v).NumberFormat = "@"
>        .Cells(1, v).Value = _
>        Left(test, 2) & "." & Right(test, 1)
>       End If
>     End If
>    Next v
>  End With

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 お礼

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