エクセルVBA ワークシート 足立区西新井 アクティブ エクセル画像/写真~

 足立区 西新井 大師近郊 安心低価格
 フリーコース 初回金15,000円のみ
 シニア&主婦の方にも最適、安くて安心料金、
 初心者向け パソコン教室アクティブ
 一人でもパソコン操作できるようになります
 
★ VBA(マクロ)シート追加《エクセルVBA》
ワークシートの追加
(アクティブなシートの前に追加)
Sub Add_Worksheet()
 Worksheets.Add
End Sub

指定したシートの前に追加
(シート2の前に追加)
Sub Add_Worksheet()
 Worksheets.Add Before:=Worksheets("Sheet2")
End Sub

指定したシートの後ろに追加
(シート2の後ろに追加す)
Sub Add_Worksheet()
 Worksheets.Add After:=Worksheets("Sheet2")
End Sub

指定したシートの後ろに指定したシート分追加
(シート2の後ろに指定した分シートが追加)
Sub Add_Worksheet()
  Worksheet Add After:=Worksheets("Sheet2"), Count:=3
End Sub
★ ワークシートの移動《エクセルVBA Move》
選択されたシートを指定したシート3の後ろへ移動
(シート3の後ろへ移動)
Sub Move_Sheet()
 ActiveSheet.Move After:=Worksheets("Sheet3")
End Sub

指定したシート1を指定したシート2の後ろへ移動
Sub Move_Sheet2()
 Worksheets("Sheet1").Move After:=Worksheets("Sheet2")
End Sub

選択されたシートを指定したシート3の前へ移動
(シート3の前へ移動)
Sub Move_Sheet3()
 ActiveSheet.Move Before:=Worksheets("Sheet3")
End Sub

指定したシート3を指定したシート2の後ろへ移動
Sub Move_Sheet4()
 Worksheets("Sheet3").Move Before:=Worksheets("Sheet2")
End Sub
★ ワークシートの名前変更《エクセルVBA ActiveSheet.Name》
アクティブなシートの名前変更
Sub Change_SgeetName()
 ActiveSheet.Name="パソコン教室"
End Sub

新規にシート追加し名前
(アクティブなシートの前に追加され名前の変更)
Sub Add_NewName()
 Worksheets.add
 ActiveSheet.Name = "パソコン教室"
End Sub
★ Debug.Print
イミディエイトウィンドウ 
プログラムコード中の変数の値を調べる
Debug.Printにより処理結果を表示
「表示」メニュー「イミディエイト ウィンドウ」

SUM関数
Sub sample()
 Dim a As Double
 s = WorksheetFunction.Sum(Range("A2:A10"))
 Debug.Print "合計",s
End sub
★ ダブルコーテーション表示
Sub ダブルコーテーション()
  Range("A1").value = "sample"
End sub

A1セルにsampleと表示
文字列はダブルコーテーションで囲む
ダブルコーテーションを表示、ダブルコーテーション3回重ねる
Sub ダブルコーテーション()
 Range("A1").value = """sample"""
End sub
"sample"と表示
2番目の " がエスケープ文字
★ 連続番号入力
セルA1~A5に連続番号入力
Sub 連続番号()
 Dim i
  i = 1
  Do While i <= 5
   Range("A" & i) = i
   i = i + 1
  Loop
End Sub

未経験の方でも安心!親切・丁寧・低価格
時間制限・回数制限なし! 

足立区西新井栄町3-8-8 
パソコン教室 アクティブ 
TEL 03-5681-3719 
 
営業時間 月~土 午後1:00~8:00 
定休日  

パソコントラブル 各種設定サポート
各種設定サポートいたします ご連絡ください 
出張サポート¥3,000~
Copyright Active Inc. Allrights reserved