パソコンに関するノウハウ備忘録

　　実際の業務では、証明書や修了証等を作成することが多いと思います。
　　ほとんどのテキストにも掲載されている方法です。


　　★ここから⇒Sample[certificate.zip]ファイルのダウンロードができます。

• ＶＢＡの記述と自動実行
  
• ＶＢＡからメモ帳起動
  
• 変数の宣言とデータ型
  
• ワンクリックで○×入力
  
• ＡＰＩで行選択理
  
• ダイアログボックス
  
• コマンドボタンのサイズ
  
• Excel画面の非表示
  
• ProgressBarコントロールの追加
  
• ProgressBar実行例
  
• ProgressBarにCancel
  
• 応答なし回避対策
  
• 図形をセルに表示
  
• TextBoxに写真を表示
  
• UserFormに写真表示
  
• 会員台帳(Form)の検索
  
• 会員台帳の並べ替え
  
• 会員台帳の抽出
  
• 選択セルに色を付ける
  
• TextBoxで複数行
  
• セル値ゼロを非表示
  
• 宛名シートの印刷
  
• 修了証書の印刷
  
• ＶＢＥエディタの利用
  
• ルーラー単位を変更mm>
• Excel大きな表の取扱い
  
• [×]ボタンを無効にする
  
• 保存せずブックを閉じる
  
• 保存後自動終了する
  
• シートをＰＤＦで保存
  
• 数式を消して値を残す
  
• 数式の文字列一括置換
  
• 選択SheetでBook作成
  
• グラフの横軸項目の変更
  

Sub 修了証書選択()
Dim 台帳名 As String
Dim 行 As Integer

    台帳名 = ActiveSheet.Name
    If 台帳名 <> "受講者名簿" Then
        MsgBox "シート「受講者名簿」で行ってください？"
        Exit Sub
    End If
    行 = ActiveCell.Row
    If 行 > 12 Or 行 < 6 Then
        MsgBox "選択した番号は範囲外です！"
        Exit Sub
    End If
    Sheets("受講者名簿").Select
    ActiveCell.Offset(0, 1).Range("A1:C1").Select
    Selection.Copy
    
    Sheets("修了証書").Select
    Range("G10").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
    Range("B12").Select
End Sub