業務内容
煩わしいルーティーン作業、ボタン一つで自動化できるかもしれません。
毎日、毎月、毎年行われる同じ作業。無駄を減らせるお手伝いができるかもしれません。
まずはご相談ください。
・タイムカード
・残業管理
・健康診断
・図書貸し出し
・在庫管理
・名簿作成
等
基本料金
実績・評価
1 件
満足
0
残念
出品者
30日前以上
VBA専門でしばらくやっていく所存です。
-
1 件 満足0 残念
- 本人確認
- 個人
本業は企業所属・在宅で事務作業をしています。
仕事をしているうちにVBAマクロ作成が好きになり、いろんなパターンを経験して勉強したいと思っています。
本業では繰り返し作業の自動化、大量のファイルの自動作成やコピー、関数自動生成などで活用しています。作業例はプロフィール下部のビジネス経験をご覧ください。
自己紹介代わりに以前作成したVBAを初めて触る人へ向けた導入部分のマニュアルから一部を掲載します。
処理内容自体はシンプルな物ですが、コメント部分（'記号以下）を説明能力などの参考にしていただければと思います。
実際の作業でも説明コメントをお付けしますし、お渡しして分かりづらいようであればリライトします。
【以下、自作のマニュアルから一部抜粋】
・Do～Loop
Do～Loopは条件を満たすまで同じ操作を繰り返すマクロです。
【マクロ内容】
‘初期位置を設定。A列の1行目に設定
Range(“A1”).Activate
‘A1セルに初期値1を入れる
ActiveCell.Value=”1”
‘A2に移動
ActiveCell.Offset(1,0).Activate
‘ループの開始にDoと記述。Do～Loop間の処理が繰り返される
‘条件はUntil以降の記述
'ActiveCell.Offset(-1,0).Value=”10”；アクティブセルの一つ上が10になるまで（10になったら処理が止まる）
Do Until ActiveCell.Offset(-1,0).Value=”10”
ActiveCell.Value=ActiveCell.Offset(-1,0).Value+1
‘ActiveCell.Value：現在のセル
‘ActiveCell.Offset(-1,0)：現在のセルの一つ上のセル。現在のセルに入れたい数値より１小さい数が入っている想定
‘.Valueで二つのセルの内容を参照する
‘現在のセルの内容は⇒一つ上のセルに+1したもの、という記述
Activecell.Offset(1,0).Activate
‘一つ下のセル（空欄の想定）に移動した後、Do以下の処理を条件を満たすまで繰り返す
Loop
‘処理の最後をLoopで閉じる
注文時のお願い
規模や状況により報酬額が増減します。（30000円は30時間で終わる程度の作業の場合です）
まずはご相談からお願いします。
