[技術者向] コンピューター

以下のページに書かれていること（英文）を、日本語に訳したうえで、結局何をすればよいのか教えてください。 https://github.com/AUTOMATIC1111/stable-diffusion-webui/pull/15600

自宅が福島なので単位修得試験を受けるのが遠すぎる。すべて自宅で終わらせたいが良い大学がありますか？

質問時刻＝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

同様の質問を先般致しましたが、 わかりにくかったかもしれませんでしたので あらためて質問させてくださいませ CドライブのフォルダAには フォルダ　1,1(2),1(3),,1(5)のように フォルダがあり、その下層には さらにサブフォルダが以下のようにあります。 すべてのフォルダ名は数字で表現されてますが、 数字の桁数が５桁以下のフォルダであれば、各フォルダには サブフォルダはさらには存在せず、jpgファイルが数個あります。 数字の桁数が6桁以上のフォルダであれば、添付ファイルで 示されたように更にサブフォルダが存在します。 ここで５桁以下の数字で表されているフォルダだけ、 まとめて統合したフォルダUにコピペしたいというのが主旨です。 しかしながら、同名の５桁フォルダがあり、上書きはしないで、フォルダ内の jpgファイル名を4000jpg,4000(1)jpgのように別ファイル名として残したいのです。 この場合のVBAまたはジェイソンファイルなどでのコードを 御教示いただきたく存じます 宜しくお願い致します win10 C:. │ │ ├─1 │ ├─2 │ │ ├─13561 │ │ │ 4843.jpg │ │ │ 4844.jpg │ │ │ 4845.jpg │ │ │ │ │ ├─36158 │ │ │ 4846.jpg │ │ │ 4847.jpg │ │ │ 4848.jpg │ │ │ │ │ ├─40068 │ │ │ 4840.jpg │ │ │ 4841.jpg │ │ │ 4842.jpg │ │ │ │ │ └─40069 │ │ 4837.jpg │ │ 4838.jpg │ │ 4839.jpg │ │ │ ├─2 (2) │ │ ├─10647 │ │ │ 4578.jpg │ │ │ 4579.jpg │ │ │ 4580.jpg │ │ │ 4581.jpg │ │ │ │ │ ├─11814 │ │ │ 4552.jpg │ │ │ 4553.jpg │ │ │ 4554.jpg │ │ │ 4555.jpg │ │ │ │ │ ├─13412 │ │ │ 4560.jpg │ │ │ 4561.jpg │ │ │ 4562.jpg │ │ │ │ │ ├─18001 │ │ │ 4556.jpg │ │ │ 4557.jpg │ │ │ 4558.jpg │ │ │ 4559.jpg │ │ │ │ │ ├─3541 │ │ │ 4566.jpg │ │ │ 4567.jpg │ │ │ 4568.jpg │ │ │ 4569.jpg │ │ │ 4570.jpg │ │ │ 4571.jpg │ │ │ │ │ ├─35488 │ │ │ 4605.jpg │ │ │ 4606.jpg │ │ │ 4607.jpg │ │ │ 4608.jpg │ │ │ 4609.jpg │ │ │ 4610.jpg │ │ │ │ │ ├─35554 │ │ │ 4582.jpg │ │ │ 4583.jpg │ │ │ 4584.jpg │ │ │ 4585.jpg │ │ │ 4586.jpg │ │ │ │ │ ├─36666 │ │ │ 4512.jpg │ │ │ 4513.jpg │ │ │ 4514.jpg │ │ │ 4515.jpg │ │ │ 4516.jpg │ │ │ 4517.jpg │ │ │ 4518.jpg │ │ │ │ │ ├─37119 │ │ │ 4596.jpg │ │ │ 4597.jpg │ │ │ 4598.jpg │ │ │ │ │ ├─37310 │ │ │ 4611.jpg │ │ │ 4612.jpg │ │ │ 4613.jpg │ │ │ 4614.jpg │ │ │ 4615.jpg │ │ │ │ │ ├─39443 │ │ │ 4616.jpg │ │ │ 4617.jpg │ │ │ 4618.jpg │ │ │ 4619.jpg │ │ │ │ │ ├─39716 │ │ │ 4522.jpg │ │ │ 4523.jpg │ │ │ 4524.jpg │ │ │ 4525.jpg │ │ │ │ │ ├─40013 │ │ │ 4531.jpg │ │ │ 4532.jpg │ │ │ 4533.jpg │ │ │ 4534.jpg │ │ │ 4535.jpg │ │ │ 4536.jpg │ │ │ 4537.jpg │ │ │ 4538.jpg │ │ │ │ │ ├─40035 │ │ │ 4519.jpg │ │ │ 4520.jpg │ │ │ 4521.jpg │ │ │ │ │ ├─40036 │ │ │ 4539.jpg │ │ │ 4540.jpg │ │ │ 4541.jpg │ │ │ │ │ ├─40037 │ │ │ 4549.jpg │ │ │ 4550.jpg │ │ │ 4551.jpg │ │ │ │ │ ├─40038 │ │ │ 4572.jpg │ │ │ 4573.jpg │ │ │ 4574.jpg │ │ │ │ │ ├─40039 │ │ │ 4563.jpg │ │ │ 4564.jpg │ │ │ 4565.jpg │ │ │ │ │ ├─40040 │ │ │ 4602.jpg │ │ │ 4603.jpg │ │ │ 4604.jpg │ │ │ ---------------- ---------------- │ │ │ ├─40026 │ │ 4406.jpg │ │ 4407.jpg │ │ 4408.jpg │ │ 4409.jpg │ │ 4410.jpg │ │ │ ├─40027 │ │ 4401.jpg │ │ 4402.jpg │ │ 4403.jpg │ │ │ └─9361 │ 4423.jpg │ 4424.jpg │ 4425.jpg │ 4426.jpg │ 4427.jpg │ └─20201031 ├─13653 │ 4473.jpg │ 4474.jpg │ 4475.jpg │ 4476.jpg │ 4477.jpg │ ├─17823 │ 4478.jpg │ 4479.jpg │ 4480.jpg │ 4481.jpg │ ├─21209 │ 4499.jpg │ 4500.jpg・・・

android x86 rpmの使える軽いlinuxを探してます。

Windows11のノートパソコンから、でWindowsの標準機能で付いている右クリックからなる印刷をすると設定を変更してくれとエラーが出てい冊できません。設定は、A4　きれい　他　標準的な設定です。

前回の質問、「pythonのQRコードデコードで文字化けなくす 」でカタカナ混じりのテキストで文字化けが起きるた場合の回避策として例外処理の方法を教えてもらいその結果をテキストファイルの形で出力するため下記コードにしてみました。 import pyzbar.pyzbar from PIL import Image qr = pyzbar.pyzbar.decode(Image.open('d:/QRcode/qrcode_make.png')) #print(qr) try: with open('d:/QRcode/QRcode.txt', 'w') as f: print(qr[0].data.decode('utf-8').encode('shift-jis').decode('utf-8'), file=f) except UnicodeDecodeError: with open('d:/QRcode/QRcode.txt', 'w') as f: print(qr[0].data.decode('utf-8'), file=f) 前回の「いろはイロハ色波」「さけサケ鮭」のＱＲコード共に問題なくデコード結果が出力されました。 そこで頭に絵文字を加えた場合や韓国語・アラビア語等コピペしたテキストでＱＲコードを作りデコードした場合デコード結果が エラー(UnicodeEncodeError: 'cp932' codec can't encode character '\u231a' in position 0: illegal multibyte sequence)のためか出力されません。 因みに import qrcode text = 'text' img = qrcode.make(text) img.save('qrcode_make.png') でQRコードを生成 教えてもらったデコードの例外処理をする下記コードの結果 print(qr) try: print(qr[0].data.decode('utf-8').encode('shift-jis').decode('utf-8')) except UnicodeDecodeError: print(qr[0].data.decode('utf-8')) 元テキスト：⌚さけサケ鮭 デコード結果：⌚さけサケ鮭 元テキスト：안녕 デコード結果：エラー(UnicodeEncodeError: 'shift_jis' codec can't encode character '\uc548' in position 0: illegal multibyte sequence encoding with 'shift-jis' codec failed) 例外処理をしない場合,デコード結果は「안녕」と読み込まれていました。 カタカナひらがな混じりのテキストを使う方に問題があるのかどうか分かりませんがせめて絵文字の場合だけでもテキストファイルへの正しく出力する方法をお教えください。

現在、目次リストを以下のように設定しています 【html】 <div class="open-menu-inside"> <ol class="contents2"> <li><a href="#1"><strong>【ア】</strong></a></li> <li><a href="#2"><strong>【イ】</strong></a></li> <li><a href="#3"><strong>【ウ】</strong></a></li> <li><a href="#4"><strong>【エ】</strong></a></li> <li><a href="#5"><strong>【オ】</strong></a></li> </ol> </div> 【css】 ol.contents, ol.contents ol{ counter-reset: list; list-style: none; padding: 0; max-width: 100%; font: 14px/1.6 'arial narrow', sans-serif; } ol.contents ol{ margin: 0 0 0 35px; max-width: 100%; } .contents a{ position: relative; display: block; text-decoration: none; padding: 3px 3px 3px 8px; margin: 8px 0 8px 30px; background: #f0ffff;/* 背景色 */ color: #000000; font-weight: bold; -webkit-transition: all .3s ease-out; -moz-transition: all .3s ease-out; -ms-transition: all .3s ease-out; -o-transition: all .3s ease-out; transition: all .3s ease-out; } .contents a:hover{ background: #ccffff;/* マウスを乗せた時の背景色 */ } .contents a:before{ content: counter(list); counter-increment: list; position: absolute; left: -35px; top: 50%; height: 28px; width: 28px; margin-top: -1em; background: #ff8c04;; line-height: 28px; text-align: center; font-weight: bold; color: #fff; } .contents a:after{ content: ''; position: absolute; left: -28px; top: 50%; margin-top: -6px; border: 6px solid transparent; -webkit-transition: all .3s ease-out; -moz-transition: all .3s ease-out; -ms-transition: all .3s ease-out; -o-transition: all .3s ease-out; transition: all .3s ease-out; } .contents a:hover:after{ left: -6px; border-left-color: #ff8c04;; } これを一部のページでできれば5段で複数行表示したいのですが ネットで検索して flex-wrap: wrap; を入れれば良いことはわかったのですが どのように設定すればいいのかわかりません また、前述のcssはそのまま使いたいので その場合はol.contents,の部分をすべて ol.contents2, のように書き換えれば良いのでしょうか htmi css 超初心者です わかる方がおられたらお教えいただけないでしょうか よろしくお願いします

コマンドプロンプトで composer create-project --prefer-dist laravel/laravel フォルダー名 を入力してエンターをするとinstallingのところがすべてlockingになり、 その後は黄色で囲まれた文字列で画面が一杯になるエラーを解決したい。何が問題なのかを教えてほしい。

回答が遅れてしまい申し訳ありません、こちらが最新の質問になります。 質問入力画面に画像をアップロードした場合と動画をアップロードした場合で大きさが変わってしまうのですが、統一することは可能でしょうか？ こちらは以前 dell_ok さんにお聞きした覚えがあり難しいとアドバイスを頂いた記憶があるのですが… 質問入力画面にファイルをアップロードする場合クリックして選択する方法だけでなくドラッグ＆ドロップも追加することは可能でしょうか？ ※最新コード https://wandbox.org/permlink/IM6IiiwxaS6eXwXY

ガラケー富士通F-07Fの住所録をSDに保存しています。このデータをWindowsパソコンで再現したいのですが、方法をご指導下さい

NET　ワーク共有プリンタについて WIN7 64Bit　ネットワーク接続　検知　OK　ネットワークプリンター　印刷可能 WIN10　64Bit　ネットワーク非接続　ネットワークプリンター　印刷不可能 上記２ケースの状態をメールいたします、Win10　ネットワーク接続方法をご指導願いたいのですが。

pythonで以下のようにエンコードするプログラムを開発しています。 保存したモデルをロードした後にfitを行うとエンコードモデルが初期化されている状況です。 動作させるたびに初期化されてしまうと保存している意味がないのではないと考えており、初期化が行われないようにしたいと考えております。 どのように対応すればよいかわかる方がいらっしゃいましたらご教授頂けないでしょうか。 お手数お掛けいたしますがよろしくお願いいたします。 #****************************************************************************** # encodeモデルのロード #****************************************************************************** if os.path.isfile('Hin_encod.sav'): print("encodeモデルロード") # ★encodeモデルが存在する場合はロード o_encoder = job.load('Hin_encod.sav') else: # ★encodeモデルが存在しない場合は新規作成 print("encodeモデル新規作成") # 未知の値が発生した場合は-1に置換 o_encoder = OrdinalEncoder(handle_unknown="use_encoded_value",unknown_value=-1,) # (1)変換対象ラベルの紐づけ o_encoder.fit(df_temp) # (2)変換(エンコーディング) df_temp = o_encoder.transform(df_temp) # エンコード結果の保存 job.dump(o_encoder, filename_HIN_enc)

Hyper-Vを使ってみたいと思ったので少し触ってみました。ホストOSはまだ余裕ありそうなのですがゲストOS側のCPUはそれなりの負荷状態だったのでもう少しゲストOSにリソースを割り振りたいのですがどのような設定がよいのでしょうか？ PCはLenovoの製品でCPUがAMD Ryzen 5 4500U 2.3GHz 6コア、メモリはオンボード8GBで32GBを増設しています。 Hyper-Vの設定では仮想プロセッサの数を4、メモリを16384に変更しています。OSはホストWin11Pro、ゲストWin10homeです。 ゲストOSでyoutubeを再生したりすると若干遅れる感じもありCPUは80%以上になったりしています。 この間ホストOSのタスクマネージャではそこまで高い状態にはなっていません。 CPU自体性能がいいわけではないと思うので遅いのは仕方ないと思いますがゲストOS側に少しでも余裕のできる設定にできたりするものでしょうか？

以下のサイトにVBAのサンプルがあったので見ていたのですが、「Range("A1").AutoFilterMode」という箇所があります。RangeオブジェクトにAutoFilterModeプロパティは無いと思いますし、実行するとエラーになりますが、このコードについてあっているのか、間違っているのか、どちらになるでしょうか？ https://github.com/carvetighter/VBA-Code-Library/blame/master/Mod_Autofilter.bas

Windows11内にあるHyper-Vに、Ubuntuの最新版のisoから仮想マシンをつくり、Ubuntuを起動できました で、EPSONのEW-452Aプリンターが、Wi-Fi接続でWindowsから使用できているため、これを仮想マシンのUbuntuからも印刷利用しようとしています EPSONのページではLinux対応機種一覧にEW-452Aは記載されています そこで下記をまず読みました https://download3.ebz.epson.net/dsc/f/03/00/15/68/82/481dcc5123d73704b6ce9d108db877b767c4fe1d/escpr_j.pdf で、 epson-inkjet-printer-escpr_1.8.5-1_amd64.deb をubuntu内にダウンロードし、端末（ターミナル？）と書かれた画面でダウンロードフォルダに移動し、図のようなコマンドを打ち込んでみましたが、何も起こりません Linuxは初めてさわるのですが、プリンターはどのように設定するのでしょうか？ ちなみにプリンター側の操作画面で基本的な設定情報を印刷でき IPP ->IPPS URL をみながらURLを打ち込んでプリンタ追加しましたが、次の画面でEPSONはあるものの、EW-452Aが選択項目に存在しなかったため、上の方法を現在ためしています

こんにちは、お世話になっています。 質問ですが、なぜセキュリティソフトは、ほとんどログを見る限りでは プライベートIPアドレスばかり表示されるのですが、 通信をブロックしたらグローバルIPアドレスで表示されないのでしょうか？ 何故グローバルIPで表示されないのかの理由を教えて下さい。 ご教示宜しくお願い致します。

unityでオープンワールドゲームを作ろうと思っています。mapの端にはこのような仕掛けをしたいのですがどうすればいいですか？ ・マップの端に着くと進んでもずっと同じ景色が続く ・マップの中心に向かって進むと一瞬で元居た場所（端から先に進む前の場所）に戻る わかりにくい場合はgoogleで博麗大結界と調べてください。大体その仕組みをまねしてます。

下記のコードでQRコードの画像ファイルを作り import qrcode text = 'さけサケ鮭' img = qrcode.make(text) img.save('qrcode_make_test1.jpg') 次にこの画像ファイルから下記コードでデコード処理をしたとろ文字化けが発生しました。 import pyzbar.pyzbar from PIL import Image qr = pyzbar.pyzbar.decode(Image.open('qrcode_make_test1.jpg')) print(qr) print(qr[0].data.decode()) デコード結果：縺輔¢繧ｵ繧ｱ魄ｭ 例えば「いろはイロハ色波」の場合は問題なくデコードされますが「さけサケ鮭」等では文字化けとなります。 この画像をwebの変換サイトで試すと大概の場合問題なくデコードされます。このことは、filemakerでもjsで画像生成しデコードすると生成するJSによって同じ現象が見られ解決方法が見つからなかったのでpythonでどうにかならないかと思い試しているところです。 解決法があればお教えください。

数階層のあるフォルダのコピーを 簡単にするVBAのプログラムについての ご質問です たとえばフォルダがみっつ、フォルダA フォルダB、フォルダCとあるとします これらのなかには人物のIDと対応するフォルダがあり それぞれのフォルダには、そのIDの人物に関する書類pdfが 入っています たとえばフォルダAにそのサブフォルダとして サブフォルダ1があり、そのなかにpdfファイルがいくつかあります サブフォルダ2も同様です サブフォルダ3，4，・・・・ フォルダBではサブフォルダがサブフォルダ_あ　サブフォルダ_い,,, とあり、さらにサブフォルダ_あのなかにIDに対応するサブサブフォルダ11， 12.13とあり　それぞれに多種のpdfファイルが入っています なかには例えばですが、サブフォルダ_いのなかにも、さきほどのフォルダAのなかにあったID2に対応するサブフォルダ2が入っています。 これらをすべて統括するような総合フォルダにIDに対応するフォルダだけで まとめあげたいという目的なのですが、 上記のフォルダ2のように別の上層階のフォルダから移動するときに、上書きをするか、別名で保存するか問われますが、フォルダ2で統一して、そのかなのpdfファイルに同名のファイルがあれば、片方をそのまま　もう一方を---（1）のような ファイル名に変換して上書きされないようにしたく思います 数百のフォルダがあるので、なんとかコードで作れないか お尋ねしたく思います わかりにくい説明ですみません 簡単な図示を添付致します すみません 宜しくお願い致します 言い方を変えますと、 個人それぞれがID番号を持っていて、ID番号が名称の フォルダがあり、そのなかにｐｄｆファイルが任意の数、格納されており、 そのID対応のフォルダが、いくつかのフォルダのなかに分散されていて、 その階層は一定ではないですが、IDフォルダは各フォルダの最下層にあるものであり、 最終的にはすべてのIDgフォルダをひとつの統合フォルダにまとめあげたい。 なかには別フォルダのなかに重複して、あるIDフォルダによっては分散しているので 統合するときに上書きを問われてしまう それを　ひとつのIDフォルダに統合し、そのなかのpdfファイルも上書きはしないで 別名保存で　そのIDフォルダに保存したい というわけです かえってわかりにくくなったかもしれません 宜しくお願い致します