ますます苛酷になっていく。
51本目。
Public Sub VBA100本ノック_051() Const WSNAME As String = "目次" Dim wsResult As Worksheet On Error Resume Next Set wsResult = ThisWorkbook.Worksheets(WSNAME) If Err.Number > 0 Then Set wsResult = ThisWorkbook
久々に着手。ようやく折り返しですけど正直めっちゃしんどい！！
41本目。
Public Sub VBA100本ノック_041() Dim cntCorrected As Long Dim i As Long For i = 1 To 10 Dim intL As Long Dim intR As Long Dim Operator As String Dim Result As Long Select
7割くらい使ったことがないものなのでマクロ記録とGoogle先生だよりです。
31本目。
Public Sub VBA100本ノック_031() Dim ws As Worksheet Set ws = ActiveSheet Dim buf As String Dim w As Worksheet For Each w In ThisWorkbook.Worksheets buf = buf & "," & w.Name N
独学なりに何回か作ったことのある構成と、ない構成での差が大きくなってきました。
21本目。
Public Sub VBA100本ノック_021() Dim sBackupFolder As String sBackupFolder = ThisWorkbook.Path & "\BACKUP" If Dir(sBackupFolder, vbDirectory) = "" Then MkDir sBackupFolder End If
だんだん難しくなってきた。
11本目。
Public Sub VBA100本ノック_011() Dim ws As Worksheet Set ws = ActiveSheet Dim rw As Long For rw = 2 To ws.Range("A1").End(xlDown).Row With ws.Cells(rw, 3) If .MergeCells Then If .Add
ExcelVBAは個人的によく使っていて、エクセルの神髄さんにもよくお世話になっているんですが、そういえば100本ノックはやったことがありませんでした。
コロナのワクチン接種（一回目）で今日明日とお休みなので、身体がつらくなければちょくちょく進めていきたいです。
まずは1本目。
Public Sub VBA100本ノック_001() With ThisWorkbook.Worksheets("Sheet1").Range("A1:C5") .Cop
