Excel VBA 列の幅を設定するＶＢＡと最終行の指定の仕方のＶＢＡ

こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、日常のつぶやき、今の時代を生き抜くために－脇村、最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はＥＸＣＥＬＶＢＡについて発信したいと思います。こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながると思います。少しずつ発信していってその手助けができれば幸いだと思っています。今回は列の幅を設定するＶＢＡと最終行の指定の仕方のＶＢＡについてです。

Sheets(“全店単品データ”).Columns(“A”).ColumnWidth = 6 上記ならＡ列の幅は６と言うことになります。この構文をそのまま覚えてください。

次に少し難しいのが、
Sheets(“全店単品データ”).Range(“A1:T” & Sheets(“全店単品データ”).Range(“H1048575”).End(xlUp).Row).Select

これはセル番地Ａ１～H列の最終行まで選択すると言うマクロです。セル番地Ａ１～H列のコードは、[Sheets(“全店単品データ”).Range(“A1:T”]で決まりです。問題は最終行の指定です。それには[& Sheets(“全店単品データ”).Range(“H1048575”).End(xlUp).Row).Select]を後ろにつけてあげれば大丈夫です。 97-2003までのバージョンならSheets(“全店単品データ”).Range(“H65535”).End(xlUp).Row。2007からのバージョンならSheets(“全店単品データ”).Range(“H1048575”).End(xlUp).Rowで最終行の指定ができます。これらはＨ列のＭＡＸ行まで行って上に上がってこの表の最終行を指定すると言ったところです。

以上、今回は列の幅を設定するＶＢＡと最終行の指定の仕方のＶＢＡでした。次回もまたよろしくお願いします。

お名前.com

□□□□□□□□□□□□□□□□□
　　『とにかく早い者勝ちっ！』　　
　　ドメイン取るならお名前.com　　
https://px.a8.net/svt/ejp?a8mat=3NA5PS+BSI33M+50+2HEVMR　　　
□□□□□□□□□□□□□□□□□

【DMM FX】口座開設のお申込みはこちら

FX始めるなら【DMM FX】

最短1時間で取引スタート！
※『スマホでスピード本人確認』を使用した場合(休業日を除く)

抜群の操作性で初心者でもスムーズに取引できる！

詳しくはこちら
https://px.a8.net/svt/ejp?a8mat=3NA5PS+BRB7W2+1WP2+6CP0Z

【投資にかかる手数料、リスク等について】
店頭外国為替証拠金取引は、元本及び利益が保証されたものではありません。お取引の対象となる通貨ペアの価格の変動、スワップポイントの変動または、受け払いの逆転、各国の金融政策、金融指標の数値の変動によっては損失が生じることとなります。お預けいただく証拠金額に比べてお取引可能な金額が大きいため、その損失は預託された証拠金の額を上回るおそれがあります。口座管理費及び取引手数料は無料です。注文の際に必要となる証拠金は、各通貨ペアとも取引の額に対して、個人口座、法人口座とも最低4％以上の証拠金が必要となります。なお、法人口座の場合は、金融先物取引業協会が算出した通貨ペアごとの為替リスク想定比率を取引の額に乗じて得た額と、取引の額に4％を乗じて得た額のどちらか高い額以上の証拠金が必要となります。為替リスク想定比率とは、金融商品取引業等に関する内閣府令第117条第27項第1号に規定される定量的計算モデルを用い算出します。当社の提示するビッド価格（売付価格）とアスク価格（買付価格）には差（スプレッド）があります。相場急変動等により、スプレッド幅が拡大、または、意図した取引ができない可能性があります。上記のリスクは、お取引の典型的なリスクを示したものです。お取引に際しては契約締結前交付書面及び約款をよくお読みいただき、それら内容をご理解のうえ、お取引の最終決定は、お客様ご自身の判断と責任で行ってください。
【株式会社DMM.com証券】
第一種金融商品取引業者/第二種金融商品取引業者　関東財務局長(金商)第1629号　商品先物取引業者加入協会等：日本証券業協会　日本投資者保護基金　一般社団法人金融先物取引業協会　日本商品先物取引協会　一般社団法人第二種金融商品取引業協会

リソース拡張自在のクラウド型レンタルサーバー

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　月額968円からの高速LiteSpeed採用クラウドレンタルサーバー
　 https://px.a8.net/svt/ejp?a8mat=3NA5PS+BRWNHU+3JTE+61RIB
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━