Top> 部品集(初心者のための部品)

VBA通信教材申込み

VBA課題解決型実践塾セミナー内容

申込 ヤフーショッピング

部品集(初心者のための部品)

初心者のための部品

代入(コピー)先=代入(コピー)元
  セル=数値
  cells(1,1)=10
  セル=文字
  cells(1,1)=”文字”
  セル=セル
  cells(1,1)= cells(1,2)
  セル=変数(数値型)
  dim 変数 as long
  cells(1,1)= 変数
  セル=変数(文字型)
  dim 変数 as string
  cells(1,1)= 変数
  変数(数値型)=セル
  dim 変数 as long
  変数=cells(1,1)
  変数(文字型) =セル
  dim 変数 as string
  変数=cells(1,1)
計算足し算
  セル
  cells(1,1)= cells(1,2)+ cells(1,3)
  変数
  dim kotae as long
  dim suji1 as long
  dim suji2 as long
  suji1=10
  suji2=20
  kotae= suji1+ suji2
  msgbox kotae
  セルと変数
  dim kotae as long
  dim suji1 as long
  dim suji2 as long
  suji1= cells(1,2)
  suji2= cells(1,3)
  kotae= suji1+ suji2
  kotae= cells(1,1)
計算引き算
  セル
  cells(1,1)= cells(1,2)- cells(1,3)
  変数
  dim kotae as long
  dim suji1 as long
  dim suji2 as long
  suji1=10
  suji2=20
  kotae= suji1- suji2
  msgbox kotae
  セルと変数
  dim kotae as long
  dim suji1 as long
  dim suji2 as long
  suji1= cells(1,2)
  suji2= cells(1,3)
  kotae= suji1- suji2
  kotae= cells(1,1)
計算掛け算
  セル
  cells(1,1)= cells(1,2)* cells(1,3)
  変数
  dim kotae as long
  dim suji1 as long
  dim suji2 as long
  suji1=10
  suji2=20
  kotae= suji1* suji2
  msgbox kotae
  セルと変数
  dim kotae as long
  dim suji1 as long
  dim suji2 as long
  suji1= cells(1,2)
  suji2= cells(1,3)
  kotae= suji1* suji2
  kotae= cells(1,1)
計算割り算
  セル
  cells(1,1)= cells(1,2)/ cells(1,3)
  変数
  dim kotae as long
  dim suji1 as long
  dim suji2 as long
  suji1=10
  suji2=20
  kotae= suji1/ suji2
  msgbox kotae
  セルと変数
  dim kotae as long
  dim suji1 as long
  dim suji2 as long
  suji1= cells(1,2)
  suji2= cells(1,3)
  kotae= suji1/ suji2
  kotae= cells(1,1)

条件文

  2つの条件
  cells(1,2)=10
  cells(1,3)=20
  if cells(1,2)>= cells(1,3) then
    msgbox “小”
  else
    msgbox “大”
  end if
  3つ以上の条件
  Dim hikaku As Long
  hikaku = Cells(1, 1)
  Select Case hikaku
    Case Is <= 10
      MsgBox "10以下"
    Case Is <= 20
      MsgBox "11から20以下"
    Case Is <= 30
      MsgBox "21から30以下"
    Case Else
      MsgBox "30より大"
  End Select

繰り返し

  変数iの1から5まで表示
  Dim i As Long
  For i = 1 To 5
    MsgBox i
  Next
  セルの1行目1列から1行目5列まで表示
  Dim i As Long
  For i = 1 To 5
    MsgBox Cells(i, 1)
  Next

2重ループの使い方

  Dim i As Long
  Dim j As Long
  Worksheets("作業").Cells.Clear
  For i = 1 To 7
    For j = 1 To 2
      Worksheets("作業").Cells(i, j) = Worksheets("出納帳").Cells(i, j)
    Next
  Next

関数の使い方

Sub keisan()
  Dim i As Long
  For i = 2 To 3
    Cells(i, 2) = Round(消費税(Cells(i, 1)))
  Next
End Sub
Function 消費税(kingaku As Long) As Long
  消費税 = kingaku * 0.08
End Function

 

塾長あいさつ
基本方針(考え方)
通信教育内容
課題解決セミナー内容
初心者基礎コース内容
カリキュラム・料金
案内地図・各種リンク
問合せ・申込み
アベノ塾
システムの内製化
アサイコンピュータACS
応用部品集(有料)
販売管理(事例)
財務管理(事例)
顧客管理(事例)
見積もり(事例)
給与(事例)
介護(事例)
ゴースト暗算(事例)
部品集(部品の基礎)
部品集(シート関連)
部品集(データベース)
部品集(セル関連)
部品集(関数)
部品集(フォーム関連)
部品集(ブック関連)
部品集(その他)
変数の勉強
繰り返しと条件文
マスター登録.訂正.削除
フォルダー内のファイル
項目をシート名で作成
ブックの操作
CSVファイルの取り込み
呼び出し元・先
商品マスター検索
エクセル関数をVBAで
エクセル関数を使う
よくつかうプログラム
販売管理(ソース)
財務管理(ソース)
給与管理(概要・画面)
見積もり(概要・画面)
工程管理(概要・画面)
原価管理(概要・画面)