[技術者向] コンピューター
- latexでの図の挿入について
latexで図を挿入しようとするとどうしてもページ上部に大きく挿入されて適切な位置になりません、どうすれば良いのでしょうか
- 受付中
- その他(プログラミング・開発)
- latewaka
- 回答数1
- windows11に対応してないPCをubuntu
windows11に対応してないXeoncpuのデスクトップpcをubuntuにしたいのですが、動画編集ソフトのKdenlive はフィモーラなどのように100倍速などは可能でしょうか。 また最大何倍速までできますでしょうか。 windows10のサポートが切れる10月14日以前にはもうインストール予定です。 またインストールするubuntuはどのubuntuがおすすめでしょうか。 また入れておいたほうがいいプラグインなどございましたら教えていただけると幸いです。 何卒よろしくお願い致します。
- ベストアンサー
- Linux系OS
- ookamihoro131
- 回答数2
- 個人データのバックアップ方法(プログラマーへ質問)
プログラマーの人は、自分のPCの個人データのバックアップはどうやっているのでしょうか? 趣味でプログラムしてる方でも構いません。 私はbunbackupを使っていますが、日々のpc操作で一番時間がかかるのがバックアップです。 時間がかかる作業は、なんとなく終わるまで不安が付きまといます。 そこで、ふと達人たちは、どうやってパックアップを取っているか聞いてみたくなりました。
- ベストアンサー
- その他(プログラミング・開発)
- gennya
- 回答数4
- 【Windows11】ウインドウズ11でテンキーだ
【Windows11】ウインドウズ11でテンキーだけでPCフォルダを開く方法を教えてください。 そんなショートカットキーって存在しますか?
- ベストアンサー
- Windows系OS
- note11pro5G5
- 回答数3
- ABC列とFGH列を比較し、重複データには☆印付与
下記が実現できるコードをお教えください。 AとF列を比較、BとG列を比較、C、Hを比較し、すべて同じなら☆を付与したい。 A列 B列 C列 D E F列 G列 H列 I列 本 2 赤 石 7 緑 ☆ 華 5 黄 山 20 黒 石 7 緑 ☆ ************************* 出来ればh ttps://oshiete.goo.ne.jp/qa/9060260.htmlにあるベストアンサーのやり方を希望しています。 セルのデータを一気に読み込んでいる? このやり方です。 With Worksheets("管理票") With .Range("A2", .Cells(Rows.Count, "A").End(xlUp)).Resize(, 3) vA = .Value こんな感じで比較 If (dic.Exists(sS)) Then
- 受付中
- Visual Basic
- gennya
- 回答数5
- VBA Dictionaryの使い方
以下のネットで見つけたコードについての質問です。 dicにデータを登録するコードが見当たらないのに、 なぜIf (dic.Exists(sS)) Thenとして、使えるのでしょうか? 出典 https://oshiete.goo.ne.jp/qa/9060260.html Option Explicit Public Sub Samp1() Dim dic As Object, dicE As Object Dim vA As Variant Dim sS As String Dim i As Long, j As Long Const CMK As String = "☆" Set dic = CreateObject("Scripting.Dictionary") Set dicE = CreateObject("Scripting.Dictionary") With Worksheets("管理票") With .Range("A2", .Cells(Rows.Count, "A").End(xlUp)).Resize(, 3) vA = .Value For i = 1 To UBound(vA) sS = "" For j = 1 To UBound(vA, 2) sS = sS & "_" & vA(i, j) Next If (dic.Exists(sS)) Then vA(i, 1) = CMK vA(dic(sS), 1) = CMK dicE(vA(i, 2)) = Empty Else vA(i, 1) = Empty dic(sS) = i End If Next .Columns(1).Offset(, 6).Value = vA End With If (dicE.Count > 0) Then .Activate MsgBox "下記の管理番号が重複しています" & vbCrLf & vbCrLf _ & Join(dicE.Keys, vbCrLf) End If End With Set dic = Nothing Set dicE = Nothing End Sub
- ベストアンサー
- Visual Basic
- gennya
- 回答数2
- windowsでデスクトップのアクセスが拒否される
よろしくお願い致します。 対策、対応策を教えていただきたいのですが、突如chromeなどからのサイトURLなどのショートカットをドラッグインでデスクトップに今まで入れてきたのですが、突如として急にアクセスが拒否されるようになりました。 今までは普通にショートカットを作成できてたのですが、今日先ほど気づいたのですが、chromeの設定をいじったわけでもないので訳が変わらなく困っています。 windows側の設定の問題でしょうか。
- ベストアンサー
- Windows系OS
- ookamihoro131
- 回答数1
- フィモーラのレンダリングが途中で止まってしまいます
windows11で実行のフィモーラ14が100倍速で18時間のタイムラプス動画の書き出し前のレンダリングをしてるのですが、どういうわけかレンダリングが途中で急に止まってしまい、出先からRemoteでレンダリングを実施するのですが、再び止まってしまいます。 laptopなのでメモリ自体が低いのですが、それが原因でしょうか。 他にシステム上の原因の可能性はございますでしょうか。 詳しい方ございましたら何卒よろしくお願い致します。
- ベストアンサー
- Windows系OS
- ookamihoro131
- 回答数1
- VBA 2つの列を比較し、重複するデータを削除
以下の処理をScripting.Dictionaryを使って実現できるのであれば、そのコードをお教えください。 A列にデータが約4万個あります。 B列にもデータがあります。 A列とB列を比較し、A列にしかないデータをD列に転記、B列にしかないデータをE列に転記したい。
- ベストアンサー
- Visual Basic
- gennya
- 回答数7
- oracleのdecodeについて
初歩的なことですみません。 oralceのdecodeについて教えていただきたいのですが、 select decode(add_date,null,'*',add_date) from tableA; or select decode(add_date,null,'null',add_date) from tableA; ですが、 nullでない場合、 yyyy/mm/dd を期待したのですが、yyyy-mm-ddが返されます。 add_dateはdate型で、yyyy/mm/ddとなっているのですが、 このような表示になるのでしょうか。
- windows11のインストールに失敗します
HPのZ440ワークステーションのデスクトップPCでPowerShellでサーバーをショートカットしてTM2.0を認識させずにインストールさせる方法なのですが、ノートパソコンはすべてこの方法でインストールに成功したのですが、どうしてもこのデスクトップだけはインストールに失敗致します。 原因・対策は何かございますでしょうか。
- ベストアンサー
- Windows系OS
- ookamihoro131
- 回答数6
- VBAにて4万個のファイル一覧を書き出したい
ネットで見かけた以下コードで、サブフォルダも含めてファイル一覧を書き出したい。 フォルダに4万個のファイルがあるのですが、すぐにフリーズしてしまいます。 VBAでは大量データを扱うのは無理があるのでしょうか? Sub TEST7() Dim A A = "C:\Users\User\Desktop\DATA" i = 1 Call TEST8(A, i) End Sub Sub TEST8(A, i) Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") With ActiveSheet Dim B 'フォルダ内のファイルをループ For Each B In FSO.GetFolder(A).Files i = i + 1 .Cells(i, 1) = A 'フォルダパス .Cells(i, 2) = B 'ファイルパス .Cells(i, 3) = FSO.GetFileName(B) 'ファイル名 .Cells(i, 4) = FSO.GetExtensionName(B) '拡張子 .Cells(i, 5) = FSO.GetFile(B).Size 'サイズ .Cells(i, 6) = FSO.GetFile(B).DateCreated '作成日時 .Cells(i, 7) = FSO.GetFile(B).DateLastModified '更新日時 .Cells(i, 8) = FSO.GetFile(B).DateLastAccessed 'アクセス日時 Next Dim C 'フォルダ内のサブフォルダをループ For Each C In FSO.GetFolder(A).SubFolders i = i + 1 .Cells(i, 1) = C. 'フォルダパス .Cells(i, 5) = FSO.GetFolder(C).Size 'サイズ .Cells(i, 6) = FSO.GetFolder(C).DateCreated '作成日時 .Cells(i, 7) = FSO.GetFolder(C).DateLastModified '更新日時 .Cells(i, 8) = FSO.GetFolder(C).DateLastAccessed 'アクセス日時 '再帰する Call TEST8(C, i) Next End With End Sub
- ベストアンサー
- Visual Basic
- gennya
- 回答数5
- Attiny202
マイコン、Attiny202を用いて https://m.youtube.com/watch?v=FxgbjMJvQNY この動画のようなled点灯は可能ですか? 可能であれば、プログラムと書き込み後の配線図を教えていただけるとありがたいです。 また、ハイビーム、ロービーム、ストロボの段階があると思うのですが、ロービーム、ストロボの段階はない状態のもので教えていただきたいです。
- 締切済み
- その他(プログラミング・開発)
- Maishss
- 回答数1
- pythonのfletでViewの使い方について2
pickerで得た画像ファイルのパスをを元に別Viewで循環表示及び保存したファイルパスのテキストファイルから読み込み画像表示をするコードを見よう見まねで下記のようにしてみました。以前相談した2つのファイルを使った方法では、パスデータを引数で切り替えだけで済んでいたのですが、今回は、切った張ったしたせいか複雑化したように思えます。このような方法で正しいかあるいは無駄な部分がないかどうかお教えください。 import flet as ft import sys, os def main(page: ft.Page): selected_files = ft.Text() images = [""] def pick_files_result(e: ft.FilePickerResultEvent): nonlocal images images = [f.path for f in e.files] if e.files else [] selected_files.value = ",".join(images) if images else "Cancelled!" selected_files.update() if images: current_image_index[0] = 0 image.src = images[current_image_index[0]] page.update() pick_files_dialog = ft.FilePicker(on_result=pick_files_result) page.overlay.append(pick_files_dialog) def move_file(self): page.go("/store") #保存ファイルからパスデータを読み込む def remove_file(self): SCRIPT_DIR = os.path.dirname(__file__) SAVE_FILE = os.path.join(SCRIPT_DIR, "VF_FILE.txt") with open(SAVE_FILE, "r", encoding="utf-8") as f: sav_files = f.read() nonlocal images images = f"{sav_files}".split(",") if images: current_image_index[0] = 0 image.src = images[current_image_index[0]] page.update() page.go("/store") #page.add() images = images current_image_index = [0] image = ft.Image(src=images[current_image_index[0]], width=300, height=200) def next_image(e): current_image_index[0] = (current_image_index[0] + 1) % len(images) image.src = images[current_image_index[0]] page.update() def prev_image(e): current_image_index[0] = (current_image_index[0] - 1) % len(images) image.src = images[current_image_index[0]] page.update() # 画像のリストをテキストファイルとして保存する def save_file(e): image_list = ",".join(images) with open("D:/Python/Flet/VF_FILE.txt", "w", encoding="utf-8") as f: f.write(image_list) def route_change(route): page.views.clear() page.views.append( ft.View( "/", [ ft.AppBar(title=ft.Text("Flet app"), bgcolor=ft.Colors.AMBER_600), ft.ElevatedButton("save_image",on_click=remove_file), #ft.ElevatedButton("Visit Store", on_click=lambda _: page.go("/store")), ft.Row( [ ft.ElevatedButton( "Pick files", icon=ft.Icons.UPLOAD_FILE, on_click=lambda _: pick_files_dialog.pick_files( allow_multiple=True, file_type=ft.FilePickerFileType.IMAGE ), ), selected_files, ] ), ft.ElevatedButton("Pick_image",on_click=move_file), ], ) ) if page.route == "/store": page.views.clear() page.views.append( ft.View( "/store", [ ft.AppBar(title=ft.Text("Store"), bgcolor=ft.Colors.BLUE_GREY_200), image, ft.Row([ft.ElevatedButton(text="前の画像", on_click=prev_image), ft.ElevatedButton(text="次の画像", on_click=next_image)]), ft.ElevatedButton("Save", on_click=save_file),ft.ElevatedButton("Go Home", on_click=lambda _: page.go("/")), ], ) ) page.update() def view_pop(view): page.views.pop() top_view = page.views[-1] page.go(top_view.route) page.on_route_change = route_change page.on_view_pop = view_pop page.go(page.route) ft.app(target=main)
- MS PDFプリンターでカスタム用紙サイズを設定
プリントサーバプロパティからカスタムサイズを指定しましたが、Windows内蔵のPDFプリンタからそれを選択することが出来ません。レジストリエディタや特定のファイルをいじることでできそうでしたが、大きなサイズを指定する場合しか見つけられませんでした。 指定したいサイズは4x6インチサイズ(10.1x15.24センチ)です。OSはWindows11です。どうかよろしくお願いします。
- 締切済み
- Windows系OS
- piyo-maru7
- 回答数1
- 不吉なoct(0x0f)=13の謎@Perl
16進数をクォートすれば oct("0x0f")=15 と正しい結果が出るのですが、クォートしないと、 oct(0x0f)=13 になりますが、今日は金曜日なだけに、これは一体、どういう計算になっているのでしょうか?
- いきなりPDF ver.11COMPLETE
このソフトはシリーズ含め初めて使う素人です、直接編集がうまく出来ません。 ヘルプからマニュアルを見てもタブの説明ばかりで、編集書き換えの方法(手順)が解らないので困っています。
- Linux Ubuntu22.04LTS重たい
windows10OSが入っているPCにUbuntu22.04LTSをDVDから起動したのですが、大変PCが重たくて、動作が遅いです。UbuntuをPCにインストールすれば軽くなりますか?それともPCのスペックの問題でしょうか?HPのCPU i5-4590 メモリ8Gです。閲覧ありがとうございます。回答宜しくお願い致します。
- ベストアンサー
- Linux系OS
- Nardis_666
- 回答数4
- Microsoft Office365について
パソコンの調子が数年前から調子が悪いのでWindows10を再インストールしてみると、Office365の更新期限がとっくの昔に切れていることが分かりました。しかし、逆に、更新期限が切れていたのに最近まで使えていたことが不思議です。その程度の制限なのでしょうか。
- ベストアンサー
- Windows系OS
- 32tarako53
- 回答数1