nKB

nKB

シンプルにいこうよ

VBA

選択範囲に矢印を挿入する

VBA

選択範囲に矢印を挿入する Sub makeArrow() Dim r As Range Set r = Selection With ActiveSheet.Shapes.AddLine(r.Left, r.Top + r.Height / 2, r.Left + r.Width, r.Top + r.Height / 2).Line .ForeColor.RGB = RGB(0, 0, 255) .Style = 1 .BeginArrowhead…

VBA 10進数を2進数に変換する関数

Function ConvToBin(Number As Long) As String Dim binCnt As Long Dim DeciNum As Long 'Decimal Number Dim i As Long DeciNum = Number '累乗確認 binCnt = 0 While 2 ^ binCnt <= DeciNum ' <=(以下の場合) binCnt = binCnt + 1 Wend '2進数作成 For i …