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

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

■製品名を記入してください。 【　　DCP-J526N　　　　　　】 ■どのようなことでお困りでしょうか？ 　相談したいこと、トラブルに至った経緯、試したこと、エラーなどを教えてください。 【　　印刷出来なくなりました。print中（Finished pege1)になりますが反応しません。プラリンターのWifi接続はできてます。　　　　　　　　　　　　　　　　　　　　　　】 ■お使いの環境について教えてください。 ・パソコンもしくはスマートフォンのOSは何ですか？ （例）Windows10/8.1/7・MacOS・iOS・Android 【　　Mac os 14.4.1　　　　　　】 ・どのように接続されていますか？ （例）有線LAN・無線LAN・USBケーブル・bluetooth 【　無線LAN　　　　　　　】 ・関連するソフト・アプリがあれば教えてください。 【　　　　　　　　】 ・電話回線の種類は何ですか？ （例）アナログ回線・ISND回線・ひかり回線・IP電話 【　　　ひかり回線　　　　　】 ※OKWAVEより補足：「ブラザー製品」についての質問です。

AccessVBAでCSVファイルへ接続したいのですが 64ビットパソコンの場合は「Provider」は何を設定すればいいのか分からず 困っています。 私の持っているテキストでは32ビットパソコンの場合は 次のコードで接続できます。 このコードのProviderだけ64ビットのものに変更すればいいと思うのですが、いかがでしょうか。 -------------------------------------------------------------------------- Dim CN As ADODB.Connection Dim RS As ADODB.Recordset Dim MyPath As String MyPath = CurrentProject.Path & "\" Set CN = New ADODB.Connection CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 　　　　 ”Data Source=" & MyPath & ";" & _ "Extended Properties='Text;HDR=NO'" Set RS = CN.Execute("SELECT * FROM test.csv") ------------------------------------------------------------------------------ 教えてください。 宜しくお願い致します。

トラクター等の農機具洗浄の際、家族は水道代の節約のため、川の水を使って高圧洗浄機を使うよう要請してきます。 私は水道水で洗った方が手軽で、撥ね飛ぶ水も我慢でき、ガソリン代や機械の消耗もなくてよいと考えます。 高圧洗浄機は、ときどき不具合発生で万単位の修理代が掛かることがあります。 5分間の簡易洗浄の場合と30分間の徹底洗浄の場合、川の水と水道水の費用的にどちらがお勧めでしょうか？ 農家の方のご意見を期待していますが、それ以外の方からも参考になるご意見があれば伺いたいです。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・ご利用の製品タイプ（例：・ノートパソコン・モバイルなど） タブレット ・タブレットのバージョン（例：Android 12・IOS 15.5） ＝＝＝ご記入ください＝＝＝Andoroid11 ・製品名・型番（例：PC-T1295DAS・PC-TAB10F01など） ＝＝＝ご記入くださT1175BASい＝＝＝ ・接続方法（例：有線LAN・・USBケーブル・Bluetooth） ＝＝＝ご記入ください＝＝＝無線LAN ▼お困りごとの詳細、ご使用中の機器の状況や、表示される内容をお書きください。（例：アップデート方法・ストレージの管理方法・設定方法が知りたい・アプリのインストール方法） ≪※表示されている画像やスクリーンショットを添付すると伝わりやす （ADBを無効にしてください）のメッセージが出て アプリ(wowwow）がインストールできない。 　 ※OKWAVEより補足：「NEC 121ware ：タブレット」についての質問です

部活の新しく入ってきた後輩たちに最近なめられてます 練習終わり後片付けもせずすぐ帰ってこちら側から教えると 「まだ慣れてないので！さようなら！」 と返してきました。 顧問はいるのですが忙しいのでめったに練習にはこないです。 どうしたら後輩たちはゆうことを聞くでしょうか？ ちなみに後輩は13人で手が回りきらないです。 （2年は7人、3年生は引退です）