excel-ubara.com 出題内容 #VBA100本ノック 12本目A1から始まる表範囲のC列に金額が入っています。しかし、ところどころに結合されたセルがあります。セル結合を解除し、入っている金額を整数で均等に割り振ってください。（2枚目画像）端数処理方法は任意と…

excel-ubara.com 出題内容 画像のようにシートにはところどころにセル結合があります。これは放置しておく訳にはいきません。セル結合されているセルには、メモ（旧コメント）で警告文を出しましょう。※シートは任意、警告文はご随意に 自分の解答 Sub vba11…

excel-ubara.com 出題内容 画像のように「受注」シートに今月の受注データがあります。受注数が空欄かつ備考欄に「削除」または「不要」の文字が含まれている行を削除してください。行の削除は行全体を削除してください。サンプルでは5行目と10行目を削除 自…

Excelを開いた時にパスワードを入力させ、一致しなかった場合は自動で閉じる。 Sub pw() Dim st As String Dim i As Long For i = 1 To 3 On Error GoTo myError st = InputBox("パスワードを入力してください") '1234 If st = 1234 Then Exit For Else MsgB…

キャリアがドコモとなっているデータを抽出して、新しいブックとして保存する。 保存先はマクロブックと同じ階層。「処理済」というフォルダを作成してその中に保存する。 Sub wrk() Dim wb As Workbook Dim st As String Dim strPath As String '同じ階層に…

内容 ブックA.Sheet1のA列に入力してあるブック名を開き、B列で指定しているシートに対して処理を行う。 A列に入力してある各ブックは、ブックAと同じ階層に保存してある。 コード Sub wrk() Dim wb As String Dim ws As String Dim openBook As Workbook Di…