個人事業主の方必見!確定申告のお悩み解決

v = Cells(i, 1).Resize(, 7).Value
MsgBox Join(Application.Index(v, 1, 0), ",")

として1~7列目を表示させているのですが、
2列目だけは表示しないようにしたいです。
つまり、1と3~7列目までを表示させたいのですが、
どのようにしたら良いでしょうか?

教えてください。

A 回答 (4件)

Sub test()


Dim i As Long, x As Integer
Dim strText As String
For i = 1 To Range("f65536").End(xlUp).Row
strText = ""
If Cells(i, 8).Value = "○" Then
strText = Cells(i, 1).Value
For x = 2 To 6
strText = strText & "," & Cells(i, 1).Offset(, x).Value
Next x
MsgBox strText
End If
Next i
End Sub
    • good
    • 0

自分で示したコードを全然理解できていないことが一番の原因だと思いますよ。


どこが分からないかを尋ねるべきでは?
    • good
    • 0

なぜこんな難しいこと(コードを書く)必要があるのかな。


それにエクセルVBAの質問ですよね。それぐらい質問に明示のこと。
ーー
Sub test01()
Range("B:G").Columns(1).EntireColumn(2).Hidden = True
End Sub
をやってみるとC列が非表示になったが。
RangeのあとにCellsやColumnsやRowsを指定すると、左端、スタートセル、最上行+1を起点に考えることになる。
行の例
Sub test02()
Range("3:8").Rows(3).EntireRow(2).Hidden = True
End Sub
第6行目が非表示になる。
    • good
    • 0

Columns(2).EntireColumn.Hidden = True


を追加する。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
残念ながら、結果変わらず2列目も出力されてしまいます・・・

お礼日時:2009/10/26 08:00

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング