エクセル（Excel）の技。知ってましたか・・・。

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




マイクロソフトアクセスの記事はこちら

人気ブログランキングへ




にほんブログ村

【メソッド】


よく使用するメソッドの使用方法を記載しておきましょう

・シートの操作でよく使用するメソッド

複数シートがある場合はシートを選択または切り替えてセルの操作をしていくのが

普通だと思います。

そこでシートの選択です。

シートの選択方法も2つあります。

SelectとActivateです。

厳密に言うと動作が異なりますが、ほぼ問題なくどちらも使用できます。

例）

Worksheets(“sheet1”).select・・・シート１が選択されます

Worksheets(“sheet2”).Activate・・・シート2がアクティブになります。

どちらも結果は同じことになります。

Worksheetsのところは単にSheetsでもＯＫです。

先ほどのセルの例で話したようにたまたまアクティブだったシートに対して

動作すると記載しています。


今回はシートを指定してみましょう。

Worksheets(“sheet1”). Range(“A1”).Value=”テストRange”とすると

シート1のA1に「テストRange」と表示されます。


Add

新しいシートの挿入の場合はAddを使用する。

【構文】

　Object．Add(Before，After，Count，Type)

Object・・・Worksheet

Before・・・指定したシートの前に新しいシートを追加（省略可能）

After・・・指定したシートの後ろに新しいシートを追加（省略可能）

Count・・・追加するシートの枚数を指定。既定値は「１」（省略可能）

Type・・・追加するシートの種類

例）

Sub シートの挿入()

Worksheets.Add after:=Worksheets(Worksheets.Count)

End Sub

上記のプログラムでシートが右側に追加され、現在のシートがSheet3ならば

Sheet4という名前でシートが追加されます。


少し高級なことを

Sub シートの挿入()

Dim NewWorkSheet As Worksheet

Set NewWorkSheet = Worksheets.Add()

NewWorkSheet.Name = "新しいシート"

End Sub

上記の内容で新しいシートが追加され、名前が「新しいシート」になります。

Dim NewWorkSheet As Worksheet

ここで「NewWorkSheet」という変数を宣言しています。

型は「Worksheet」型です。

変数に格納するのはワークシートなので「ワークシート型」か

「バリアント型」にする必要があります。

Set NewWorkSheet = Worksheets.Add()

ここで変数「NewWorkSheet」に新しいワークシートをセットします。

Addの後に()がついているのは返り値を利用するためです。

VBAのルールとして返り値を利用する場合は()を付ける必要があります。

NewWorkSheet.Name = "新しいシート"

ここで変数NewWorkSheet（追加された新しいシートですね）に名前を付けています。

Clear

Clearにも色々あります。

　Clear・・・・・・・全てクリアする

　ClearContents・・・数式・文字列をクリアする

　ClearFormate・・・書式をクリアする
　
例）



今Sheet2のA2・A3に上記のような文字が入力されています。

Sub セルのクリア()

Sheets("sheet2").Range("a2:a3").Clear

End Sub

上記のプログラムを実行するとA2・A3の文字は消去します。

　ClearContentsならば数式・文字列をクリアします。

　ClearFormateならば書式をクリアします。

また選択されたシート内のすべてをクリアにする場合は

Cells.Clearにします。




カラーミーショップはリアルな店舗を持っていなくても、ネットを通じて商品を販売する楽しみを多くの人に実感してもらえるショッピングカートです。これまでに23万を超えるユーザー様からお申込みをいただいております。

カラーミーショップなら誰かに（大手に）頼らなくても、あなた好みのネットショップを作れます。あなたがセレクトした商品や作った商品の魅力を伝え、それを欲しいと思ってくれる人にお届けしてみませんか。

30日間、無料でお試しいただけるので、初心者の方やネットショップ作成サービスで悩んでいる方も、安心してご利用いただけます。