SoftwareEngineering

Excel VBA

ブックが保存されている絶対パスを取得する

ThisWorkbook.Path

開発リボンを表示する

Excelのオプションで「[開発]タブをリボンに表示する」をチェックする。

Excel-Option-基本設定.jpg

サンプル

図のリンク貼り付け

Private Sub 図のリンク貼り付け()
    ActiveSheet.Pictures.Paste(Link:=True).Select
    Application.CutCopyMode = False
    Selection.ShapeRange.Fill.Visible = msoTrue
End Sub

選択範囲内に連番を挿入する

Dim TargetWorksheet As Worksheet: Set TargetWorksheet = Application.ActiveSheet

Dim FirstRowIndex As Long: FirstRowIndex = Selection(1).Row
Dim FirstColumnIndex As Long: FirstColumnIndex = Selection(1).Column
Dim LastRowIndex As Long: LastRowIndex = Selection(Selection.Count).Row

Dim Counter As Long: Counter = 1
Dim RowIndex As Long: RowIndex = FirstRowIndex
Do
    Dim CurrentRange As Range: Set CurrentRange = TargetWorksheet.Cells(RowIndex, FirstColumnIndex)
    
    'If ((CurrentRange.Value <> "") And (CurrentRange.MergeCells)) Then
    If (CurrentRange.Value <> "") Then
        CurrentRange.Value = Counter
        Counter = Counter + 1
    End If
    
    RowIndex = CurrentRange.Offset(1).Row
Loop While (RowIndex <= LastRowIndex)

添付ファイル: fileExcel-Option-基本設定.jpg 286件 [詳細]

トップ   差分 バックアップ リロード   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2019-05-15 (水) 23:30:27 (182d)