スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Excelの・・・

最近会社でよくExcelのマクロを組んでおります。
そんな折、『これ、blogのネタになるんじゃね?』とかいう声が聞こえた気がしたので
なんとなく載せることにしました。
今回は、条件に応じて行を非表示にするマクロです。

Dim gyou As Integer        '行番号を変数化
For gyou = 6 To 250        '6~250行目に対してこのマクロを実行

If Cells(gyou, "M") Like "" Then
Exit For                 '空白だったらfor文を抜ける。(終了判定)
End If

If Cells(gyou, "M") Like "*終了済み*" Then  'M列に終了済みという文字列が含まれていたら非表示
Rows(gyou).Select
Selection.EntireRow.Hidden = True
End If

Next gyou

これを応用して、条件に当てはまるセルや行や列をコピーして別のシートに貼り付けるとかも
できますが、それはまた今度載せようと思います。

では、また次回。さて、久々の連休を満喫するかなぁ・・・
スポンサーサイト
LINK※別窓表示
LINK(バナー有)※別窓表示

ボタン
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。