owlhappy

owlhappy

エクセルマクロ全角を半角へ　（備忘録）

データのＢ1234５半角と全角が混じってて半角に統一したいときのコード I列のデータを半角に統一したい ※StrConv ※Narrow　狭いという意味 Sub 半角へ()Dim rngFor Each rng In Range("I:I") rng.Value = StrConv(rng.Value, vbNarrow) NextEnd Sub​

owlhappy

    • 【エクセルマクロ】表全体を選択

      個人の備忘録みたいなかんじでnoteにメモらせてもらいます 表のデータ部分のみ選択したい場合 Sub 表のデータ部分を選択()Range("A1").CurrentRegion.SelectSelection.Offset(RowOffset:=1).SelectSelection.Resize(RowSize:=Selection.Rows.Count - 2).SelectEnd Sub

      owlhappy

      • マクロ　指定した列に空白セルがあれば行を非表示にする

        この画面ショットのようにB列に空白セルがある場合　その行を非表示にするコードのご紹介 Sub Hidden()Columns("B:B").SelectSelection.SpecialCells(xlCellTypeBlanks).SelectSelection.EntireRow.Hidden = TrueEnd Sub

        owlhappy

        • Excel VBA勉強中です

          こんばんは。自分が書いたコードでマクロが動くと すごくうれしい。超初心者ですが自分の記録のためにもいいなと思ったコードを次回より書き留めていきたいと思います。

          owlhappy

        エクセルマクロ全角を半角へ　（備忘録）

        owlhappy