OKWAVEは、
あらゆる悩みや疑問を解決できるQ&Aサービスです

57歳女性です。 毎月カットとカラーで通っている一人でされている美容院があります。 先日よさそうな他店の美容院を見つけました。カットだけを試しにお願いしたいと思うのですが現在通っている美容師さんに言いにくいです。 カラーは今の美容院でカットは他店というのは今の美容師さんはいい気がしないかなと心配します。 今通っている美容師さんにどのように伝えるとよいでしょうか。 ご助言いただければと思います。

お盆に中国旅行の計画をしています。 食料品で缶詰め。海苔（瓶，紙状）、レトルト食品、塩，みそ、醤油、だし、乾燥シイタケ，たくあん、梅干し、他漬物，瓶入りコチュジャン，甘酒、魚佃煮、みりん干し、鰹節、煮干し、乾燥こぶ、ワカメ 他，台所洗剤,洗濯洗剤（粉、液体）化粧品〈液状、クリーム） 、、このような物をトランクケースに入れ機外荷物賭して持って行くことは出来るでしょうか。

薬草やアロマテラピーをテーマにした約一時間の参加人数30人の講演会が開催されて、それに参加する事になったらどんな内容の話を聞きたいですか？

甥っ子の結婚式に出るのに、 慶事用の黒のスーツに うす紫色のネクタイて、不相応ですか？

エプソンプリンターウィンドウ！3内のインク残量情報の更新方法 ※OKWAVEより補足：「EPSON社製品」についての質問です。

【会社経営者に質問です】先代の社長が突然亡くなって、いきなり会社経営をしたことがない人が会社経営を行うことに晴天の霹靂のように突如舞い降りて来て、会社の財務状況も経営状態も納税の仕方も分からんない右も左も分からんない人間がまず頼るべきは税理士の先生ですか？ 誰にいの一番に相談して経営を継続することが可能なのか教えてください。 1番最初に思い付いたのが税理士でした。 税理士に相談するのが正しい後続経営者の最適解の行動なのか教えてください。

【Job（ジョブ）】昭和の仕事が物凄い勢いで消滅して行っています。そして仕事が無くなっても新しい時代の新しい仕事が生まれているから大丈夫と言いますが、新しい仕事の殆どをAI（人口知能）が処理しています。 いやいや、AI（人口知能）が新しい仕事を処理していないと言う人は、新しい仕事を教えてください。 新しく生まれた仕事の事例を上げてください。 コンピューターが処理しているはずです。

NovaBACKUP 3台用 ダウンロード版／23年12月購入をWindows10にインストールしてます。2台目にWindows11にインストールする場合、ダウンロードするADKファイルとPEアドオンファイルはWindows１０と同じファイルで良いのでしょうか。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

ts8630でアンドロイドスマホ(arrows　f-51a）からcanon　printを使用して印刷をかけるのですが、通常よりも大きく（倍以上に）印刷されます。用紙設定で縦横をへんこうしようと思うのですが、印刷掛けて設定画面に縦横が出てきません。本体側の基本設定出変更することができるのでしょうか？どなたかご存じの方いらっしゃいましたら教えてくださいよろしくお願いいたします。 ※OKWAVEより補足：「キヤノン製品」についての質問です。

質問時刻＝2024/03/11 22:15、タイトル名＝『vlookupを使ったマクロの書き方』で、質問させて頂き、HohoPapa様にご教示頂いたマクロのコードについて、メールアドレスが入っているファイルのシート名に変更が生じましてコードの変更が必要になりました。 修正箇所は、『Const TblSheet = "職員マスタ"』になります。 色々と修正を加えて見ましたが、エラーが出てしまいマクロの正常稼働で出来ませんでした。 変更点は、シート名＝『職員マスタ』を『employee-20240510』への変更になります。『employee-』は固定文字ですが、『20240510』は現在の日付を指定したいです。 Const TblSheet = "employee-" & Format(Now, "yyyymmdd")と しましたが、エラーがでてしまいます。 お忙しい中、大変恐縮ですが、お手すきの時に対応させたマクロのご教示を頂けましたら大変助かります。 上記1行のマクロのコードのみ、ご教示頂ければ大丈夫です。 今現在まで、ルーチンワークとして便利に使わせて頂いております。 ------以下は現在のマクロのコードです----------------- Option Explicit Const tgSheet = "Sheet1" Const TblBook = "C:\Users\watan\Documents\27_EXCEL教習\TEST\11_2024-課題参画者リスト\スクリプト\職員DB.xlsx" Const TblSheet = "職員マスタ" Const NumCol = 2 '転記先職員番号列番号 Const AddressCol = 4 '転記先メールアドレス列番号 Dim LogFile As String Dim tgBookName As String Sub Mainjob() Dim tgBook As Workbook Dim r As Long Dim HitAddress As String '１つのログファイルに常に新規作成（処理の都度上書き）する。 LogFile = ThisWorkbook.Path & "\" & _ "MentLog.csv" Open LogFile For Output As #2 Close #2 Logput "M0", "", "", "", "転記処理開始", "" '対象ファイル名の組立 tgBookName = _ "C:\Users\watan\Documents\27_EXCEL教習\TEST\11_2024-課題参画者リスト\出力結果\" & _ Format(Now, "YYYY") & _ "参画者リストまとめ_" & _ Format(Now, "YYYYMMDD") & _ ".xlsx" '対象ブックを開く Set tgBook = Workbooks.Open(tgBookName) 'Main処理 r = 1 With tgBook.Sheets(tgSheet) Do r = r + 1 If .Cells(r, NumCol).Value = "" Then Exit Do If IsNumeric(.Cells(r, NumCol).Value) = False Then Logput "M2", Format(r, "0"), _ .Cells(r, NumCol).Value, "", "職員番号が不正", .Cells(r, 1).Value Else HitAddress = GetMailAdress(.Cells(r, NumCol).Value) If HitAddress = "Not Found" Then Logput "M3", Format(r, "0"), _ .Cells(r, NumCol).Value, "", "職員番号が見つからない", .Cells(r, 1).Value ElseIf ((HitAddress = "Null") Or (HitAddress = "")) Then Logput "M4", Format(r, "0"), _ .Cells(r, NumCol).Value, "", "マスターのメールアドレスが空欄", .Cells(r, 1).Value ElseIf .Cells(r, AddressCol).Value <> "" Then If HitAddress <> .Cells(r, AddressCol).Value Then Logput "M5", Format(r, "0"), _ .Cells(r, NumCol).Value, .Cells(r, AddressCol).Value, "既に異なるアドレスが埋まっている" & "," & HitAddress, .Cells(r, 1).Value Else Logput "M6", Format(r, "0"), _ .Cells(r, NumCol).Value, .Cells(r, AddressCol).Value, "既に同じアドレスが埋まっている", .Cells(r, 1).Value End If Else .Cells(r, AddressCol).Value = HitAddress Logput "M1", Format(r, "0"), _ .Cells(r, NumCol).Value, HitAddress, "メールアドレスをセット", .Cells(r, 1).Value End If End If Loop End With '対象ブックを保存して閉じる tgBook.Save tgBook.Close Logput "M9", "", "", "", "転記処理終了", "" End Sub '職員番号を引数にメールアドレスを返す関数 Function GetMailAdress(sNum As Long) As String Dim SQL As String Dim cn As Object Dim rs As Object 'SQL文の実行準備 Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.Provider = "Microsoft.ACE.OLEDB.12.0" cn.Properties("Extended Properties") = "Excel 12.0;HDR=Yes;IMEX=1" cn.Open TblBook 'SQL文の組立 SQL = "" SQL = SQL & "select [メールアドレス]" & vbCrLf SQL = SQL & "FROM [" & TblSheet & "$A1:Z50000]" & vbCrLf SQL = SQL & "Where [職員番号] = " & sNum & vbCrLf rs.Open SQL, cn 'ヒットする行が無かったら抜ける If rs.EOF = True Then GetMailAdress = "Not Found" Else If IsNull(rs("メールアドレス")) Then GetMailAdress = "Null" Else GetMailAdress = rs("メールアドレス") End If End If '後処理 rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Function