【エクセルVBA】割り算

ＶＢＡでは割り算が思ったより役に立ちます。

通常の割り算

答え　= 11 / 3

整数部を求める

答え　= 11 ￥ 3

余りを求める

答え　= 11 Mod 3

 

パソコン知識の覚書

 

【エクセルVBA】最終行と最終列の取得方法

エクセルＶＢＡでよく使用する

データの最終行・最終列を調べる方法を紹介

最終行数を取得する（途中に空白があっても問題ない）
Cells(Rows.Count, 1).End(xlUp).Row

最終列数を取得する（途中に空白があっても問題ない）
Cells(1, Columns.Count).End(xlToLeft).Column

 

パソコン知識の覚書

 

【ExcelVBA】データのソートを行う。

エクセルVBAでソートを実施する
（数字のみで）

'With ActiveSheet '対象シートをアクティブにする
    
    .Sort.SortFields.Clear '並び替え条件をクリア
    '項目1 ==========================================
    .Sort.SortFields.Add _
        Key:=ActiveSheet.Cells(1, 2), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal
'==================================================

    '項目2
    .Sort.SortFields.Add _
        Key:=ActiveSheet.Cells(1, 1), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal     
    With .Sort '並び替えを実行する
        .SetRange Range(Cells(1, 1), Cells(9999, 4))　　’（ソートする範囲を指定）
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

【その他】
①シートを指定してのソートは下記内容となります。
　With Worksheets("データ")
②        Key:=ActiveSheet.Cells(1, 2),  ソートする項目　例はB列をソート
③ソートする項目は増やすことが可能（項目をコピーして追記する）

最終行と最終列の取得方法

 

パソコン知識の覚書

 

肉球の編み物

子供が今日も編み物を作っていました。

完成品はなんと！！

肉球でしたｗ

しずく動画ベスト５０