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

全365378件中41~60件表示
  • latexでの図の挿入について

    latexで図を挿入しようとするとどうしてもページ上部に大きく挿入されて適切な位置になりません、どうすれば良いのでしょうか

  • windows11に対応してないPCをubuntu

    windows11に対応してないXeoncpuのデスクトップpcをubuntuにしたいのですが、動画編集ソフトのKdenlive はフィモーラなどのように100倍速などは可能でしょうか。 また最大何倍速までできますでしょうか。 windows10のサポートが切れる10月14日以前にはもうインストール予定です。 またインストールするubuntuはどのubuntuがおすすめでしょうか。 また入れておいたほうがいいプラグインなどございましたら教えていただけると幸いです。 何卒よろしくお願い致します。

  • 個人データのバックアップ方法(プログラマーへ質問)

    プログラマーの人は、自分のPCの個人データのバックアップはどうやっているのでしょうか? 趣味でプログラムしてる方でも構いません。 私はbunbackupを使っていますが、日々のpc操作で一番時間がかかるのがバックアップです。 時間がかかる作業は、なんとなく終わるまで不安が付きまといます。 そこで、ふと達人たちは、どうやってパックアップを取っているか聞いてみたくなりました。

    • gennya
    • 回答数4
  • 【Windows11】ウインドウズ11でテンキーだ

    【Windows11】ウインドウズ11でテンキーだけでPCフォルダを開く方法を教えてください。 そんなショートカットキーって存在しますか?

  • 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

    • 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

    • gennya
    • 回答数2
  • windowsでデスクトップのアクセスが拒否される

    よろしくお願い致します。 対策、対応策を教えていただきたいのですが、突如chromeなどからのサイトURLなどのショートカットをドラッグインでデスクトップに今まで入れてきたのですが、突如として急にアクセスが拒否されるようになりました。 今までは普通にショートカットを作成できてたのですが、今日先ほど気づいたのですが、chromeの設定をいじったわけでもないので訳が変わらなく困っています。 windows側の設定の問題でしょうか。

  • フィモーラのレンダリングが途中で止まってしまいます

    windows11で実行のフィモーラ14が100倍速で18時間のタイムラプス動画の書き出し前のレンダリングをしてるのですが、どういうわけかレンダリングが途中で急に止まってしまい、出先からRemoteでレンダリングを実施するのですが、再び止まってしまいます。 laptopなのでメモリ自体が低いのですが、それが原因でしょうか。 他にシステム上の原因の可能性はございますでしょうか。 詳しい方ございましたら何卒よろしくお願い致します。

  • VBA 2つの列を比較し、重複するデータを削除

    以下の処理をScripting.Dictionaryを使って実現できるのであれば、そのコードをお教えください。 A列にデータが約4万個あります。 B列にもデータがあります。 A列とB列を比較し、A列にしかないデータをD列に転記、B列にしかないデータをE列に転記したい。

    • 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を認識させずにインストールさせる方法なのですが、ノートパソコンはすべてこの方法でインストールに成功したのですが、どうしてもこのデスクトップだけはインストールに失敗致します。 原因・対策は何かございますでしょうか。

  • 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

    • 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)

    • turu575
    • 回答数1
  • MS PDFプリンターでカスタム用紙サイズを設定

    プリントサーバプロパティからカスタムサイズを指定しましたが、Windows内蔵のPDFプリンタからそれを選択することが出来ません。レジストリエディタや特定のファイルをいじることでできそうでしたが、大きなサイズを指定する場合しか見つけられませんでした。 指定したいサイズは4x6インチサイズ(10.1x15.24センチ)です。OSはWindows11です。どうかよろしくお願いします。

  • ティックトックについて

    以下の項目の内容を教えてください、 1 代表的なイベントとそのの内容 2 ランオフとは?

  • 不吉なoct(0x0f)=13の謎@Perl

    16進数をクォートすれば oct("0x0f")=15 と正しい結果が出るのですが、クォートしないと、 oct(0x0f)=13 になりますが、今日は金曜日なだけに、これは一体、どういう計算になっているのでしょうか?

    • ベストアンサー
    • Perl
  • いきなりPDF ver.11COMPLETE

    このソフトはシリーズ含め初めて使う素人です、直接編集がうまく出来ません。 ヘルプからマニュアルを見てもタブの説明ばかりで、編集書き換えの方法(手順)が解らないので困っています。

  • Linux Ubuntu22.04LTS重たい

    windows10OSが入っているPCにUbuntu22.04LTSをDVDから起動したのですが、大変PCが重たくて、動作が遅いです。UbuntuをPCにインストールすれば軽くなりますか?それともPCのスペックの問題でしょうか?HPのCPU i5-4590 メモリ8Gです。閲覧ありがとうございます。回答宜しくお願い致します。

  • Microsoft Office365について

    パソコンの調子が数年前から調子が悪いのでWindows10を再インストールしてみると、Office365の更新期限がとっくの昔に切れていることが分かりました。しかし、逆に、更新期限が切れていたのに最近まで使えていたことが不思議です。その程度の制限なのでしょうか。