Sub Sample()
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim endCell As Excel.Range
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Sheet1")
'終端セルを取得したい列の最終セルを取得
Set endCell = ws.Range("A65536")
'最終セルでEndプロパティに定数xlUpを指定
Set endCell = endCell.End(xlUp)
'Rowプロパティで行数を表示
MsgBox "終端セルは" & endCell.Row & "行目"
End Sub
技術メモの最近のブログ記事
詳しくは USB 接続させ、iTunes 起動時に行われる自動同期では同期出来るのに
iTunes 上で新しい曲を同期させようとしたり iPod の設定を変更したり復元などを実行すると
iPod が認識出来ずにエラーで落ちるという不可思議な現象
何気に結構前からこの現象に見舞われており再インストールしても改善されず
でもとりあえず同期は出来ていたから放置していたのだけど
やはり何かと不便なので色々と対策を講じてみた
iTunes 上で新しい曲を同期させようとしたり iPod の設定を変更したり復元などを実行すると
iPod が認識出来ずにエラーで落ちるという不可思議な現象
何気に結構前からこの現象に見舞われており再インストールしても改善されずでもとりあえず同期は出来ていたから放置していたのだけど
やはり何かと不便なので色々と対策を講じてみた
続きを読む: iTunesと同期中にエラー
新築一戸建て・工務店（大阪）ならスマイルホーム
新築一戸建て・工務店（大阪）の「スマイルホーム」は良質なマイホームを少しでも安くがモットー。新築一戸建て・工務店（大阪）なら完全自由設計の大広建設へ！
