This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 必要なアセンブリロード | |
Add-Type -AssemblyName System.Windows.Forms,System.Drawing | |
# クリップボードに画像を送る | |
[System.Windows.Forms.Clipboard]::SetImage( # | |
# 文字列を[System.Drawing.Bitmap]にキャストしようとすると | |
# [System.Drawing.Bitmap]::FromFile 相当の処理がPowerShellから呼ばれる。 | |
[System.Drawing.Bitmap]' ここに引数のimagePathが埋め込まれる ' | |
) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Debug.Print CreateObject("Scripting.FileSystemObject") Is CreateObject("Scripting.FileSystemObject") | |
' -> False |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'iRng1とiRng2が同じ範囲を参照しているかを判定する関数。 | |
Function RangeEqual(ByVal iRng1 As Excel.Range, ByVal iRng2 As Excel.Range) As Boolean | |
Let RangeEqual = (iRng1.Address(External:=True) = iRng2.Address(External:=True)) | |
End Function |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
'出力するテーブルの列番号 | |
Private Enum RefColumnNo | |
rcnName = 1 | |
rcnDesc | |
rcnPath | |
rcnGUID | |
rcnVer | |
End Enum |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Windows10 64bit | |
MSOffice Excel 2016 64bit | |
Windows PowerShell v5 32bit |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Office2010 32bit on Windows 7 64bit | |
Office2016 64bit on Windows 10 64bit |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
Public Msg As String | |
Public Col As VBA.Collection | |
Private Sub Class_Initialize() | |
Set Col = New VBA.Collection | |
End Sub |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Attribute プロシージャ名.VB_Description = "プロシージャの説明" |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub 値型配列の場合、正しく型が伝播する() | |
Dim Lngs() As Long | |
ReDim Lngs(0 To 1) | |
Dim tmp As Variant | |
tmp = Lngs | |
Debug.Print VBA.TypeName(Lngs) 'Long() | |
Debug.Print VBA.TypeName(tmp) 'Long() |
NewerOlder