h2 Responsive Mega Menu - Navigationテスト用のページ

現在のナビと入れ替えたいがサーチボックスがうまくない。

ロゴを隠してしまう。

書式月ごとの売上金額の合計を求める

Sub 最終行()
    'データに空白がないとき
    MsgBox "最終行は:" & ActiveSheet.Range("A1").End(xlDown).Row & "行目です。"
End Sub
Sub EndDown()
    '最終行を伝え移動する
    Dim Lrow As Long
    Dim temp As Long
    Lrow = ActiveSheet.Range("A1").End(xlDown).Row
    temp = MsgBox("最終行は: " & Lrow & "行です。移動しますか", vbYesNoCancel + vbQuestion + vbDefaultButton2 + vbApplicationModal, "最終行")
    If temp = vbYes Then
        Range("A" & Lrow).Select
    Else
        MsgBox "処理を終了します"
    End If
End Sub

Excelでの業務経験が豊富な管理人が日頃のノウハウをもとに作成しており、ユーザーの皆様には、自己学習でご利用いただく他、講習会や授業、研修の教材としてご利用していただくことが可能です。

サイトをBOOKマークしたり、お気に入りに登録して、いつでもどこでもExcel塾が見れるようにしましょう。

クリックしてカンタンExcel塾をお気に入りに追加しましょう。