散乱する手入力欄を一か所にまとめる 改善前 手入力箇所はA・C・Gのみ。 他の項目には関数が入っていて自動計算される仕様。 このままだとどこを入力すればいいのかわからない為、入力が漏れと関数をつぶす可能性がある。 改善後 入力欄を一か所にまとめた。…

excel-ubara.com 出題内容 #VBA100本ノック 7本目A列は文字列データ（表示形式が文字列）で日付が入っています。日付とみなされる場合はB列に月末日付をmmddの形式で出力してください。日付け以外の場合は空欄にしてください。例.B2は「0930」と出力する。※…

excel-ubara.com 出題内容 #VBA100本ノック 6本目画像のようにA1から始まる表があります。D列にB列×C列の計算式を入れてください。ただし商品コードに"-"の枝番が付いている場合は計算式を入れずそのままにしてください。例.D2にはA2×B2の計算式を入れる。D4…

excel-ubara.com 出題内容 画像のようにB2から始まる表があります。B列×C列を計算した値をD列に入れ、通貨\のカンマ編集で表示してください。ただしB列またはC列が空欄の場合は空欄表示にしてください。例.D2にはB3×C3の計算結果の値を「\234,099」で表示、D…

テーブル機能を使って自動で範囲を拡張し、関数を自動入力する。 改善前 データを追加した後に、関数を下までコピペする。 （例）6行目に入力後、C列に入力されているVLOOKUP関数を6行目までコピペ。 改善後 テーブル化することで、自動的に自動拡張され関数…

条件付き書式で塗りつぶしを自動化する。 改善前 日曜日の行を手動で塗りつぶしする。 月が変わったら塗りつぶすを消去し、また塗りつぶしし直す。 改善後 条件付き書式を設定することで、曜日が日の行は自動で塗りつぶしするようになった。 ①ルールを適用す…

excel-ubara.com 出題内容 画像のように1行目に見出し、A列に№が入っています。 この表範囲の一部には計算式が入っています。 （画像の最下行とD列には数式が入っています。） データ行数は毎回変化します。 見出し行とA列№と計算式は残し、定数値だけを消去…

excel-ubara.com 出題内容 画像のように1行目に見出し、A列に№が入っています。 №行数およびデータ行数は毎回変化します。 この表の見出し（1行目）と№（A列）を残して、データ部分のみ値を消去してください。 自分の回答 Range("A1").CurrentRegion.Offset(…

実地棚卸をしないとわからないこと 棚卸の目的 実地棚卸と帳簿棚卸の違い 売上原価の求め方 PL上の売上総利益（売上-売上原価） 売上原価とは 在庫は粉飾に使われやすい 売上を利用した粉飾 在庫を利用した粉飾 実地棚卸をしないとわからないこと 棚卸の目的…

Sub test() Dim openBook As Workbook Dim strPath As String '作成したいフォルダのパス '①処理後フォルダ作成 '========================================================= '--- 同じ階層に「処理後」というフォルダを作成する ---' strPath = ThisWorkbo…

Sub 同じ階層に保存() Dim openBook As Workbook Dim openPath As String '選択したブック名を格納 openPath = Application.GetOpenFilename("xls,*.xls?") If openPath <> "False" Then '格納したブックを開く Set openBook = Workbooks.Open(openPath) 'マ…

Sub フォルダ作成() '--- 作成したいフォルダのパス ---' Dim strPath As String strPath = ThisWorkbook.Path & "¥処理後" '--- フォルダが存在しない場合のみMkDirで作成 ---' If (Dir(strPath, vbDirectory) = "") Then Call MkDir(strPath) Else MsgBox …

個人情報サンプルデータ サンプルデータ はてなブログにExcelファイルを貼りつける方法 VBAアドイン 個人情報サンプルデータ kazina.com サンプルデータ otukai.jp はてなブログにExcelファイルを貼りつける方法 mdesign0516.hatenadiary.com VBAアドイン 踊…

指定した条件で処理を繰り返す A列の2行目以下の数字を合計する。 While条件（条件が正しい間） Sub test2() Dim i As Long Dim c As Long i = 2 '空白ではない間処理を続ける Do While Cells(i, 1) <> "" c = c + Cells(i, 1) i = i + 1 Loop MsgBox c End …