Archive for 7月, 2019

zenfoneデータ上限変更

土曜日, 7月 27th, 2019

設定>データ使用量>モバイルデータ使用量>右上)オプション>請求期間>データ上限

メニュー深い。。。

右のサイドバーウィジェット消したい

月曜日, 7月 22nd, 2019

 

数式の代入/取得

月曜日, 7月 22nd, 2019

A1形式で数式の設定/取得
ActiveCell.Formula = “=A1+B1”

R1C1形式で数式の設定/取得
絶対参照
ActiveCell.FormulaR1C1 = “=R1C1+R1C2”
相対参照
ActiveCell.FormulaR1C1 = “=RC[-2]+RC[-1]”

セル内の改行

月曜日, 7月 22nd, 2019

Alt+Enter

ActivCell="↑" & vbLf & "↓"

ソースコードのプラグイン

月曜日, 7月 22nd, 2019

Highlighting Code Block

引数が可変(ParamArray)

日曜日, 7月 21st, 2019
Function jointText(ParamArray 範囲())
    
    Dim i As Long
    Dim cell As Range
    Const 区切り文字 As String = "-"
    
    For i = 0 To UBound(範囲)
        If 範囲(i).Count > 1 Then
            For Each cell In 範囲(i)
                jointText = jointText & 区切り文字 & cell
            Next cell
        Else
            jointText = jointText & 区切り文字 & 範囲(i)  '2個目以降
        End If
    Next i
    jointText = Right(jointText, Len(jointText) - Len(区切り文字))
    
End Function

※省略可能なOptionalは使えない

Select Case 条件式

日曜日, 7月 21st, 2019

Case Is <

worksheet_changeで無限ループ(EnableEvents)

日曜日, 7月 21st, 2019

イベントを一旦停止して、値を書き換えた後にイベントを発生を有効にするといいサァ
Application.EnableEvents = False
Cell値代入
Application.EnableEvents = True

0埋め(Format)

日曜日, 7月 21st, 2019

MsgBox Format(ActiveCell,”0000″)

型を調べる

日曜日, 7月 21st, 2019

msgbox VarType(ActiveCell)