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

全364743件中141～160件表示
  • LKMでのMQTT通信機能実装について

    LKMでMQTT通信の機能を実装し、MQTTブローカとやりとりすることは可能でしょうか。 また、実装可能である場合、どのような機能を実装すればよいのでしょうか。

  • Excelのマクロで自動で一つのシートに転記したい

    お詳しい方宜しくお願い致します。 Excelで"全体"シート以外のシート(ここでは”A”とB”)を"全体"シートに転記したいです。 以下のコードをマクロで実行すると"全体"シートに集計はちゃんとされていますが、エラーが出ます。 実行時エラー'1004': 'Select' メソッドは失敗しました '_Worksheet'オブジェクト デバッグをするとシート.Selectの部分が間違えていると表記されます。 どのようにコードを変えればエラーが出なくなるでしょうか？ -------------------------------------------------------------------- Sub 複数シートのデータを1枚のシートにまとめる_シートオプションあり() '複数シートを１枚 '全体シートがあるか調べる Dim 貼付シート As Worksheet, あり As Boolean For Each 貼付シート In Worksheets If 貼付シート.Name = "全体" Then あり = True Exit For End If Next 貼付シート ' "全体"が存在しなければメッセージを表示して処理を終了 If あり = False Then MsgBox "貼り付けシートがありません。終了します。", vbInformation, "エラー" Exit Sub End If 'シートの内容クリア Worksheets("全体").Select Range("A1").CurrentRegion.Clear '各シートで処理をする Dim 枚数 as Long, シート As Worksheet 枚数 = 0 Dim 除外辞書 As Object, 対象辞書 As Object, 配列 As Variant Dim 除外配列 As Variant, 対象配列 As Variant, 数 As long Set 除外辞書 = CreateObject("Scripting.Dictionary") Set 対象辞書 = CreateObject("Scripting.Dictionary") '除外配列に、除外対象を代入 配列 = Split("(全体, 分析)のシートを、除いて実行", ",") 除外配列 = 配列 For 数 = 0 To UBound(除外配列) 除外辞書.Add 除外配列( 数 ), "除外" Next 数 'シート名が除外辞書になければ、対象辞書に加える For Each シート In Worksheets If Not 除外辞書.Exists(シート.Name) Then 対象辞書.Add シート.Name, "対象" End If Next シート '対象のキーを、配列に入れる 対象配列 = 対象辞書.keys '配列に入れた対象に、順次処理をする For Each シート In Worksheets(対象配列) Call 複数シートのデータを1枚のシートにまとめる(シート,枚数) Next End Sub Sub 複数シートのデータを1枚のシートにまとめる(シート As Worksheet, 枚数 As Long) '複数シートを１枚 Application.ScreenUpdating = False ' 画面描画を停止 Application.DisplayAlerts = False ' 警告表示を停止 Dim 右下セル As String, セル範囲 As String, 貼り付け先範囲 as Range, 貼り付け先セル As String 'シートが"全体"ではない場合、"全体"にデータを貼り付ける If シート.Name <> "全体" Then 枚数 = 枚数 + 1 'コピーする範囲を取得 シート.Select Dim 最終行 As Long '表の最終行を決定 最終行 = Cells(Rows.Count, Range("G5").Column).End(xlUp).Row セル範囲 = "A5" & ":" & Cells(最終行, Range("P5").Column).Address(False, False) If 枚数 = 1 Then シート.Range(セル範囲).Copy Worksheets("全体").Range("A1").PasteSpecial Paste:=xlPasteAll Worksheets("全体").Range("A1").PasteSpecial Paste:=xlPasteValues Else '表全体の末端を右下セルとして取得 Worksheets("全体").Select Range("A1").CurrentRegion.Select 右下セル = Cells(Selection.Row + Selection.Rows.Count - 1, Range("A1").Column).Address(False, False) 貼り付け先セル = Worksheets("全体").Range(右下セル).Offset(1, 0).Address(False, False) シート.Range(セル範囲).Offset(1, 0).Resize(Range(セル範囲).Rows.Count - 1).Copy Worksheets("全体").Range(貼り付け先セル).PasteSpecial Paste:=xlPasteAll Worksheets("全体").Range(貼り付け先セル).PasteSpecial Paste:=xlPasteValues End If End If Worksheets("全体").activate Application.DisplayAlerts = true ' 警告表示を再開 Application.ScreenUpdating = True ' 画面描画を再開 End sub

    • ベストアンサー
    • noname#260628
    • Visual Basic
    • 回答数2
  • ぷらっとホーム社 OBS600 ブートエラー

    　１．OBS600を同社のＷＥＢ情報に従い初期化しましたが、Standard Boot で下のようなエラーが表示されてログインの画面が表示されません。対処方法ご教授願います。 　初期化は次の順序で行いました。 　　①PFTPで別ＰＣに保存したイメージ読込。 　　②起動したSSD/LINUX上で、Debian6のイメージ書き込み。 　　③[INIT]を押して起動したDebian6上で、Debian7イメージ書き込み。 (Re)start USB... scanning bus for storage devices... 1 Storage Device(s) found Loading ... ** Unable to read "/uImage.initrd-cfboot" from usb 0:1 ** ** Unable to read "/uImage" from usb 0:1 ** stopping USB.. Bootargs: ramdisk_size=8192 root=LABEL=/ rootdelay=15 console=ttyS0,115200 Wrong Image Format for bootm command ERROR: can't get kernel image! => ２．「INIT」を押して起動すると、正常に起動して初期パスワードでログインできます。 Debian GNU/Linux 7 obs600 ttyS0 obs600 login: root Password: Linux obs600 3.10.25 #1 Thu Feb 13 11:57:26 JST 2014 ppc

  • node-qrcodeのQRコードを画像で取得

    以前QRcode.jsで出力したQRコードを画像で取得する方法を教えてもらいましたが・・https://okwave.jp/qa/q100 今回は下記のようなnode-qrcodeを使った場合どうすれば出来るかお教えください。 <!DOCTYPE html> <html lang="ja"> <head> <meta charset="UTF-8" /> <script src="https://cdn.jsdelivr.net/npm/qrcode@1.4.4/build/qrcode.min.js"></script> <script> document.addEventListener("DOMContentLoaded", () => { let info = "ひらがなQRサンプル" ; const options = { width: 128, height: 128, color: { dark: "#000000", // QRコードの自体 light: "#ffffff", // QRコードの背景 }, }; QRCode.toDataURL(info, options) .then((url) => { document.getElementById("qrcode").src = url; }) .catch((err) => { console.error(err); }); }); </script> </head> <body> <img id="qrcode" alt="QRコード" /> </body> </html> 前回のように 「QRコードを生成しているスクリプトの後ろに var canv = document.getElementsByTagName("canvas"); var image = canv[0].toDataURL("image/jpeg", 0.75 ); と書き足せば image 変数の中にJPEGデータが生成されます。」 では駄目でした。 よろしくお願いいたします。

  • PHP の array_filter() 関数

    お世話になります。 array_filter() 関数の使い方を練習していて、ネットからダウンロードしたJSON形式のアメリカ映画の情報を使った簡単なコードを書いてみました。この中から特定の情報、下に添付した例では、"acttor_1" というキーの値が 'Sean Connery' という俳優に関する情報を取得することができるのですが、添付のスクリーンショットにあるように、'actor_1' というキーが未定義であるとのエラーメッセージが出ます。 スクリプトの下にありますように、このデータの中にはちゃんと 'actor_1' というキーが存在しています。　このようなエラーメッセージが出るのはなぜでしょうか？ 詳しい方にご説明いただけたら有難く思います。 どうぞよろしくお願いいたします。 「自分のスクリプト」 <?php $json = file_get_contents('./film_locations.json'); $data = json_decode($json, true); $search = 'Sean Connery'; $filtered = array_filter($data, function($item) use ($search) { return $item['actor_1'] == $search; // return (stripos($item['actor_1'], $search) !== false); } ); echo "<pre>"; print_r($filtered); echo "</pre>"; 「JSON形式からPHPの連想配列に変換したものの最初の２例」 Array ( [0] => Array ( [title] => Experiment in Terror [release_year] => 1962 [locations] => The Sea Captain's Chest (Fisherman's Wharf) [production_company] => Columbia Pictures Corporation [distributor] => Columbia Pictures [director] => Blake Edwards [writer] => The Gordons [actor_1] => Glenn Ford [actor_2] => Lee Remick [actor_3] => Stefanie Powers [:@computed_region_6qbp_sg9q] => 99 [:@computed_region_ajp5_b2md] => 23 [:@computed_region_26cr_cadq] => 3 ) [1] => Array ( [title] => Experiment in Terror [release_year] => 1962 [locations] => 100 St. Germain Avenue [production_company] => Columbia Pictures Corporation [distributor] => Columbia Pictures [director] => Blake Edwards [writer] => The Gordons [actor_1] => Glenn Ford [actor_2] => Lee Remick [actor_3] => Stefanie Powers [:@computed_region_6qbp_sg9q] => 47 [:@computed_region_ajp5_b2md] => 38 [:@computed_region_26cr_cadq] => 8 ) 以上です。

  • gitbucketのDB移行時のACTIVITY

    gitbucketの実行環境を、Windows上でのJava実行（gitbucket.war起動）から、Dockerコンテナ内での実行に移行しようとしています。これまでのgitbucket設定・環境・ユーザーの入ったdatabaseを新環境に移行したいのですが、旧環境からexportしたSQLファイルを新環境にimportすると"ACTIVITY"テーブルが無いと怒られます。 新しいgitbucketではACTIVITYテーブルは存在しないのでしょうか？ 旧gitbucket環境：バージョン4.31.2（H2） Win+Java 新gitbucket環境：バージョン4.38.5（mysql）WSL2+Docker 試したこと。 ◯旧gitbucketでexportするときに、ACTIVITYを外してSQLをエクスポートすると、新環境でエラー無くimportできました。もちろん、ACTIVITYに関する履歴は新gitbucketの管理画面には表示されませんでした。 ◯新gitbucket環境において、旧環境から移行せずに、適当なレポジトリを作って適当にファイルをpushして履歴が表示されるか（ACTIVITYテーブルが生成されるか）を確認してみました。gitbucketの管理画面では履歴が表示されますが、System AdministrationのData export/importやDatabase Viewerを開いてみても、ACTIVITYテーブルは存在しませんでした。では、push履歴はどこに保存されているのだろう？ ACTIVITYテーブルの履歴は新gitbucketに移行できなくても大して問題はないのですが、移行できるならしたいし、gitbucketのバージョンアップ（4.31.2→4.38.5）の間にACTIVITYテーブルが廃止された（あるいはexportできなくなった）のであればそれはそれで諦めもつきます。 ご存じの方いらっしゃいましたら、ご教示下さい。

  • ノートン「攻撃を遮断しました。」警告について。

    パソコンでネットサーフィンをしていると「Malicious Site: Malicious Domain Request 22の攻撃を遮断しました。」との警告がノートンから時々出ます。 何かをダウンロードした覚えはありません。 また、警告の出た同じサイトでもAndroidではなにも表示されません。(ノートン稼働&braveブラウザ) そこでご質問なのですが、 ・この警告はウイルスではなく、危険やリンクや広告バナー等に反応することもあるのでしょうか。 一応両方ともフルスキャンして問題はなかったのですが、原因が気になってご質問させていただきました。 どうかよろしくお願い致します。

  • illustratorで選択したオブジェクトに移動

    illustratorで選択したオブジェクトのレイヤーに移動する方法が知りたいです、端末はmacです。 photoshopなら手のひらツールとかで 表示されているオブジェクトをダブルクリックしたら そのレイヤーに自動で移動するあの機能のことです。 よろしくお願いします、。

  • vba split関数　コンマ区切り

    エクセル・vbaに不慣れなためわかりづらかったら申し訳ありません。 コンマ区切りの数字をsplit関数で分割して指定セルに表示したいと考えており、以前質問し回答をいただいた内容でやりたいことが出来るようになりました。 ただし、若干出力場所等の変更を行いたいのですが、変更することが出来ません。 以前はA～C列にあるものをE～H列・J～M列・O～R列に表示する。 その際、A～C列にあるコンマ区切りの数字は3つのものと４つのものがあります。画像の上段部分をご確認ください。 その際のマクロは下記のとおりです。 Sub Test() Dim i As Long, j As Long, k As Long Dim tmp As Variant For i = 1 To 3 For j = 3 To 11 tmp = Split(Cells(j, i).Value, ",") For k = 0 To UBound(tmp) If k < 4 Then Cells(j, i).Offset(0, i * 4 + k).Value = tmp(k) End If Next Next Next End Sub 変更したいのは、AC８～AE16にコンマ区切りの数字があります。 AC列にある数字はAI8～AL16にAD列にある数字はAS8～AV16に AE列にある数字はBC8～BF16に表示したいと考えています。 コンマ区切りの数字は3つのものと４つのものがあります。 （画像の下段部分をご確認ください。） 上記のマクロでは下記の部分を変更する必要なのかと考えていますが、変更方法がわかりません。 お分かりの方教えていただけたら幸いです。 どうぞよろしくお願いいたします。 For k = 0 To UBound(tmp) If k < 4 Then Cells(j, i).Offset(0, i * 4 + k).Value = tmp(k)

  • Linuxのカーネルモジュールについて

    LinuxのLKM(Loadable Kernel Module)でパケットの送受信機能の実装を検討しています。 こういった機能は実現可能でしょうか。

  • アカウントなしで

    質問アプリ知らないかな

  • vba split関数　コンマ区切り

    エクセルに不慣れなため教えていただけたら幸いです。 A３～A11・B3～B11・C3～C11列にコンマ区切りの数字があります。 列によってはコンマで区切られた数字が3つのものと4つのものが混在しています。 split関数でコンマ区切りの数字を分割してE～Ｈ列・J～M列・O～R列に表示したいと考えています。 先ほど別の質問で下記のマクロを教えていただいたのですが、 その際は、A１～A9にあるものをD～G列に表示するというものでした。 よくよく考えると、A列のみではなく、B・C列と複数の列を コンマ区切りしたいと考えています。 このような場合は、どうしたらよいでしょうか。 vba不慣れなためわかりづらかったら申し訳ありません。 お分かりになられるかたがいらっしゃいましたら教えていただけますでしょうか。 よろしくお願いいたします。 Option Explicit ' Sub Macro1() 　　Dim Rout As Long 　　Dim Colu As Integer 　　Dim Expression As Variant ' 　　For Rout = 1 To Cells(Rows.Count, "A").End(xlUp).Row 　　　　Expression = Cells(Rout, "A") 　　　　Expression = Split(Expression, ",") ' 　　　　For Colu = 0 To UBound(Expression) 　　　　　　Cells(Rout, Colu + 4) = Expression(Colu) 　　Next Colu, Rout End Sub

  • vba split関数　コンマ区切りの数字を表示　

    エクセルに不慣れなため教えていただけたら幸いです。 A列にコンマ区切りの数字があります。 列によってはコンマで区切られた数字が3つのものと4つのものが混在しています。 split関数でコンマ区切りの数字を分割してD～G列に表示したいと考えています。 3つのものだけだとvbaを作成できたのですが、4つ目があるときというプログラムが不明です。 現在作成済みのマクロは下記のとおりです。 Sub test() Dim SH As Worksheet Dim i As Long Set SH = Worksheets("sheet1") For i = 1 To 9 SH.Cells(i, 4).Value = Split(SH.Cells(i, 1).Value, ",")(0) SH.Cells(i, 5).Value = Split(SH.Cells(i, 1).Value, ",")(1) SH.Cells(i, 6).Value = Split(SH.Cells(i, 1).Value, ",")(2) Next i End Sub お手数ですがお分かりになられるかたがいらっしゃいましたら回答いただけたら助かりますのでよろしくお願いいたします。

  • タスクスケジューラ　ユーザーまたはグループの変更で

    win10 タスクスケジューラにおきまして タスクスケジューラ　ライブラリ　クリックし タスクのインポートをクリック 今回の具体例としましては　このあとの説明書に ”ファイルの場所から、以下の フォルダに切り替えます。 C:¥Program Files¥OQS ¥OQSDistroApp¥tools 6 フォルダにある OQS_exec_distroappsta rt.xmlをクリックし、 開く をクリックします。 8 ユーザーまたはグループの選 択 が表示されます。 選択するオブジェクト名を入 力してくださいに ABCと入力し、 名前の確認をクリックします。 7 タスクの作成が表示されます。 ユーザーまたはグループの変 更(U)…をクリックします。” 以上のようなマニュアルがあるのですが、 ここでABCというのは、このパソコンの管理者の ユーザー名と思われます そこで　実際の　管理者の　ユーザー名であるXYZ を入力して 名前の確認をクリックしますと 次の名前のオブジェクトがみつかりません以下～～　と　ダイアログが出て来てしまいます 共有設定などの問題でしょうか 設定　アカウント　userにおいて　この管理者となっていて その名前が上記のXYZ　と　なっています 上記の”ユーザーまたはグループの選 択 が表示されます。 選択するオブジェクト名を入 力してくださいに ABCと入力し、 名前の確認をクリックします。”においての ABCに相当するところには 管理者の名前（実際の名前が　XYZ）を入力すればいい　というわけでもないのでしょうか 他に　設定など　抜けているのでしょうか 宜しくお願い致します

  • リカバリしたPCでWin UPDできない

    WSUS環境で、パソコンをリカバリしてクリーンインストール後、Windows Update(Win11 22H2)が失敗します。 リカバリしていないパソコン（新品）は正常に22H2に上がるのですが、一度でもリカバリしたパソコンだと21H2から上がりません。（ダウンロード中（37%、あるいは0%）で止まります） OSライセンス認証などには問題はなさそうで、SoftowareDistributionフォルダの削除やC:\$WinREAgent の削除を試しましたが、解決しません。 何かわかる方がいれば教えていただきたいです。

  • 外部ウェブサイトの最終更新日時の自動確認方法

    javascript で、指定されたアドレスのウェブサイトの 最終更新日を取得する方法が分かりません。 Document.lastModified を自分のページ内部で用いるのではなく 外部のページ変更確認方法として コードを作成したいのですが 方法が分かりません。 --- 指定先のURLのページ内容が変更されたかどうかを知りたい場合は、 XMLHttpRequest() API について読め --- という説明がありましたが いったい、どんなコードを書けば良いのか見当もつきません。 ご指導のほどよろしくお願いします。

  • javascript 初心者

    https://paiza.jp/works/mondai/data_structure/data_structure__set_boss この問題で以下のコードで試したのですが、大きな数字だと正しい結果が出ません。なぜなのでしょうか。有識者の方教えてください。 （汚いコードでごめんなさい） let n=lines[0]; let a=lines[1].split(" "); let b=lines[2].split(" "); let c=a.concat(b); const arrayB = Array.from(new Set(c)); const sort = arrayB.sort((a,b) => (a < b ? -1 : 1)) const answer=sort.join(" "); console.log(answer);

  • ARE3000

    コンバートは完了するのですが、クリーンアップを行いますかの、メッセージが出ません。また編集からクリーンアップを選択すると、画面が消えてしまいます。

  • Aouto CAD LT 2015について

    os がWindows 11でAutoCAD LT 2015を使用していまして、ある既存のCADファイルを開く時にフェイタルエラーがでて強制終了してしまいます 。AutoCAD2022をインストールしているPCから同一のCADファイルを開くことはできまして、ファイルのバージョンもおとしています。原因はAutoCAD LT 2015がWindows11に対応していないからでしょうか？宜しくお願いします

  • Python: matrix追加でNoneの理由

    下記の#入力とPython #コード の実行で、「出力結果」が出ます #▼Aのところで、 matrix.append(d) を可視化しようとしたら None しか返りません 想像では入力の2行目以降が順次追加されていくイメージを想像していました [[11, 14, 16, 9]] [[11, 14, 16, 9], [11, 14, 16, 9]] 　： 質問： １）この#▼Aの下の行でNoneしか返らない理由をおしえてください ２）matrixに追加されて形成される行列は、単純にメモリ上で形成されていると考えていいですか？ #入力 3 11 14 16 9 13 15 19 10 10 11 14 11 #コード N = int(input()) # 空のリストを作成 matrix = [] for i in range(N): # 入力を受け取り、リストに変換 d = list(map(int, input().split())) # リストをmatrixに追加 matrix.append(d) #▼Aここでmatrixを可視化しようとした print(matrix.append(d)) print(app) #▼Bここでもmatrixを可視化しようとした print(matrix) # 1行目の要素0 first_element = matrix[0][0] print(first_element) #11 #==出力結果================== None None None None None None [[11, 14, 16, 9], [11, 14, 16, 9], [13, 15, 19, 10], [13, 15, 19, 10], [10, 11, 14, 11], [10, 11, 14, 11]] 11

  1. カテゴリ
  2. [技術者向] コンピューター

カテゴリ