シートの移動方法について
VBAにて処理する際に、同じブック内であったり、違うブックに編集しているブックをコピーしたい時があると思います。今回は、シートの移動方法について説明致します。
同じブック内にシートを移動させる方法
同じブック内でシートの位置を移動したい場合に、移動させるシートのインデックス番号または、シート名称を指定する方法があります。シートのインデックス番号は一番左のシートが「1」二番目のシートが「2」と左から順に番号が振られていきます。それぞれ移動させる方法を以下のサンプルに記載します。
'インデックス1番目のシートを5番目のシートの左に移動
Call Sheets(1).Move(Before:=Sheets(5))
'インデックス1番目のシートを「Sheet5」の右に移動
Call Sheets(1).Move(After:=Sheets("Sheet5"))同じブック内でのシートの移動の基礎をサンプルで記載しましたが、一番使用するのは最後のシートに移動させたり、最初のシートに移動させたりすることが多いのではないでしょうか。以下が二つのサンプルになります。
'インデックス3番目のシートを一番左に移動
Call Sheets(3).Move(Before:=Sheets(1))
'インデックス1番目のシートを一番右に移動
Call Sheets(1).Move(After:=Sheets(Sheets.Count))違うブックにシートを移動させる方法
違うブックにシートを移動させる方法は以下の方法になります。
'インデックス番号1番目のシートをブック「AAA」のインデックス番号2番目の前に移動する
Worksheets(1).Move Before:=Workbooks("AAA").Worksheets(2)
'シート名「Sheet1」をブック「BBB」のインデックス番号2番目の前に移動する
Worksheets("Sheet1").Move Before:=Workbooks("BBB").Worksheets(2)最後に
エンジニアとして細かくても技術力を上げていけば、個人でも会社でもお金を稼げるようになっていきます。私から3点お金を稼ぐための方法をおススメします。
副業サイトでお金を稼ぐ
一番最初が副業サイトでお金を稼ぐです！
私は、副業サイトのココナラで月にVBAを作成し月に2~3万円ほど稼いでいます。VBAを作成している人の提案を購入したり、自身でVBAを作成し販売することもできます。
プログラミング関連だけでなく、私のProfileのアイコンもココナラで頼んで1000円で作成してもらいました！登録は無料なので、是非登録してみてください。
キャリアアップのための転職をする
転職というと、そりゃ給料上がるだろ！って思う方が多いと思いますが、エンジニアは転職してなんぼの職種です。就職難の昨今でもエンジニアは現場に人が足りていません。そのため、ある程度のお金を払っても入社してくれる方を探している企業が多いのが現状です。
また、会社にもよりますが、多くの会社は入社してから数年間は雀の涙程度の給料しかあがっていきません。ただ、転職することで、100万円単位で年収が上がっていくこともざらにあります。
エンジニアは転職してキャリアアップしていく職種と言えます。
私も使用していましたが、やはり転職サイトは大手がいいでしょう！大手の方が、企業との付き合いも多く給与面も福利厚生面も手厚いところを紹介してくれます。
フリーランスエンジニアになる
最後はハードルが高そうに見えるフリーランスエンジニアになります。副業と転職に比べると確かにハードルは高いですが、皆さんが思っているような、何でもできるエンジニアの方はあまりいません。フリーランスエンジニアの方に話を聞くとやっぱり給与面でフリーランスになる方が多いです。
例えば、大手のSierで働いてたとすると、1カ月大体一人当たり200万円、顧客からお金をもらって働きます。大手の子会社となると、200万円から半分の100万円程度で雇われるのが一般的です。
ここから3割程度は個人の給与として支払われ、残りの7割は企業の取り分となります。企業に雇われているので仕方ないですねｗ
ただ、フリーランスエンジニアは、大手の用にはいかないですが、子会社と同じぐらいの100万円程度で雇ってもらい。そこから企業の取り分がないため、全額自分に入ってきます。福利厚生等はありませんが、金額だけ聞くと驚愕ですねｗ最近はフリーランスの人が入る団体等もあり、フリーランスの方が活躍できる環境が整ってきています。
フリーランスの方専用のスクール等もあるので、相談してみるのもいいと思います。
コメント