対象となるシートをアクティブにしてからSelectメソッドを記述しないと、 アクティブでないシートからだと、エラーになる。 対象シートをアクティブにする記述＋セレクトメソッドを書くように。

Sub 配列テスト1() Dim aryY(4) As String Dim i As Integer Dim msr As VbMsgBoxResult i = 0 Range("A1").Select Do While ActiveCell.Value <> "" aryY(i) = ActiveCell.Value msr = MsgBox(aryY(i) & "編集しますか？", vbYesNo) If msr = vbNo Then ary…

セルに100byte以上入力されたエラーメッセージをだしたい 変数 = thisWorkbook.WorkSheets(1).Range("A1").value 変数 = LenB(StrConv(変数,vbFormUnicode)) IF 変数 >= 101 Then MsgBox(変数) End IF

※できるUiPathの練習 やりたいこと 営業からExcelで経費を申請してもらったデータを読み込んで業務アプリに登録する。業務アプリが発行したコードを読み取ってExcel に追加して保存する。 手順 1. Excelのデータを読み込んで業務アプリを開く。 2.Excelから…

やりたいこと csvファイルの項目（所属）の中から営業所と〇〇支店を全て「支店」に置き換える。 100件ごとにファイルを分ける。 手順 1.csvをデータテーブルに保存 2.条件は、保存したデータテーブルの項目（所属）の列から営業所と、支店を検索する。 3.Tr…

やりたいこと ファイルが存在したら、指定のファイルをcopyして保存する。 手順 1.ファイルパスを変数に代入 2.ファイル名を変数に代入 3.パスの存在を確認 4.条件分岐 5.ファイルがあったなら、リネームしてcopy 6.ないなら、スロー 手順詳細 1.変数はstrin…

やりたいこと Mainから他のワークフローを呼び出した際、他のワークフロー（メッセージボックスを表示）にメッセージを 送る。他のワークフロー（メッセージボックスを表示）から、返事を返す。 Mainは、それを受け取り表示する。 ※メッセージボックスを表示…

やりたいこと 各個人の経費精算表エクセルファイルと全体の経費精算表エクセルファイルがある。 各個人のシートを全体の経費精算表のファイルにコピーしたい。 手順 1.個人ファイルを指定する。 2.読み込みシートを指定する。 3.全体ファイルを指定する。 4.…

やりたいこと 毎週ある会議資料を作成するにあたって、前回行った会議資料のエクセルをコピーし 次回の会議資料をリネームして作成したい。 手順 1.7日後の日付けを文字列で取得（代入,変数はstring） 2.元ファイルの場所を指定（代入,変数はstring） 3.2の…

やりたいこと 適当なプロジェクト名をつけたばっかりにどのプロジェクトが何をしているかがわからなくなった。一度つけたプロジェクト名を変更したい。 手順 1.UiPathの保存場所を開く。 2.「project.json」をメモ帳で開く。 3."name".”空のプロジェクト1”→"…