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

全364743件中341~360件表示
  • クイックアクセスのフォルダを新しいウインドウで開く

    エクスプローラーの左側に並んでいるクイックアクセス、ここのフォルダを新しいウインドウで開く方法について教えてください。 右クリック→新しいウインドウで開く をクリックは分かるのですがこの方法は使いたくありません。他の方法はありますか? ブラウザでは「shiftを押しながら左クリック」で新しいウインドウで開いてくれますがこれに慣れているので同じ方法で開いて欲しいと思います。 上記の方法でサクサク開けるように設定する方法はありますか? windows10です。

  • Excelに対応してコンボボックスを選択するマクロ

    Excelのコンボボックスの表記と同じ表記のものをゆっくりムービーメーカーという別アプリの指定したコンボボックスから選ぶVBAマクロを開発したいです。カスタムと書かれたコンボボックスを動かしたいです。ですが、他にもclassnameやAoutmationIDが同じコンボボックスがあります。その中で自分の指定したコンボボックスを動かす方法も教えて頂きたいです。エクセルの「セリフ」sheetのE列にコンボボックスがあり、コンボボックスの中身は「表情」sheetのA列の表記(例魔理沙笑う) Excelのコンボボックスの表記と同じ表記のものをゆっくりムービーメーカーという別アプリの指定したコンボボックスから選択するVBAマクロを開発したいです。見づらいですが画像の右端の真ん中くらいにあるカスタムと書かれたコンボボックスを動かしたいです。ですが、他にもclassnameやAoutmationIDが同じコンボボックスがあります。その中で自分の指定したコンボボックスを動かす方法も教えて頂きたいです。エクセルの「セリフ」sheetのE列にコンボボックスがあり、コンボボックスの中身は「表情」sheetのA列の表記(例:魔理沙笑う)です。ゆっくりムービーメーカーのコンボボックスにも「表情」sheetのA列の表記(例:魔理沙笑う)と同じものが複数存在します。私はゆっくりムービーメーカーのコンボボックスの中からExcelのコンボボックスの表記と同じ表記のものを選択するVBAマクロを開発したいです。ご指導よろしくお願いします。下のマクロを改良したいですが、あくまで前のバージョンかつ私が作りたいマクロと似ていますが違うものなので参考程度にお願いします。 これと全く違うスクリプトでも構いません。よろしくお願いいたします。 Private Sub zputTachieParam(Param() As Variant) Dim i, j, k, row_blank, f_hetitem As Integer Dim x_char As String Dim tmp, x_last_item As Variant Dim elmYukkuri_tachie As IUIAutomationElement 'RegExpオブジェクトの作成 Dim reg As Object Set reg = CreateObject("VBScript.RegExp") '正規表現の指定 With reg .Pattern = "[^0-9]" 'パターンを指定 .IgnoreCase = False '大文字と小文字を区別するか(False)、しないか(True) .Global = True '文字列全体を検索するか(True)、しないか(False) End With hWnd = FindWindowA(vbNullString, C_アプリ名) Set uiAuto = New CUIAutomation Set elmYukkuri = uiAuto.ElementFromHandle(ByVal hWnd) Set iCnd = uiAuto.CreatePropertyCondition(UIA_ClassNamePropertyId, "ItemEditorView") Set elmYukkuri = elmYukkuri.FindFirst(TreeScope_Subtree, iCnd) Set iCnd = uiAuto.CreatePropertyCondition(UIA_ClassNamePropertyId, "ScrollViewer") Set elmYukkuri = elmYukkuri.FindFirst(TreeScope_Subtree, iCnd) Set iCnd = uiAuto.CreatePropertyCondition(UIA_ClassNamePropertyId, "Editor") Set elmYukkuri = elmYukkuri.FindFirst(TreeScope_Subtree, iCnd) Set iCnd = uiAuto.CreatePropertyCondition(UIA_NamePropertyId, "立ち絵") Set elmYukkuri = elmYukkuri.FindFirst(TreeScope_Subtree, iCnd) Dim elms_ComboBox As IUIAutomationElementArray Set iCnd = uiAuto.CreatePropertyCondition(UIA_ClassNamePropertyId, "ComboBox") Set elms_ComboBox = elmYukkuri.FindAll(TreeScope_Children, iCnd) Dim ptnVal As IUIAutomationSelectionItemPattern f_hetitem = 0 x_last_item = "" For j = 0 To elms_ComboBox.Length - 1 tmp = Split(elms_ComboBox.GetElement(j).CurrentHelpText, "\") If UBound(tmp) > 0 Then '選択されてるコンボボックス '現状の設定とパラメータ値を比較 If Param(j) <> Int(Replace(tmp(UBound(tmp)), ".png", "")) Then elms_ComboBox.GetElement(j).SetFocus 'ENDキーで最後の選択肢に持っていく wshSendKeys "{END}", True f_hetitem = 0 For k = 0 To 200 elms_ComboBox.GetElement(j).SetFocus 'Debug.Print "1> " & elms_ComboBox.GetElement(j).CurrentHelpText tmp = Split(elms_ComboBox.GetElement(j).CurrentHelpText, "\") If UBound(tmp) > 0 Then 'Debug.Print "2> " & reg.Replace(tmp(UBound(tmp)), "") If Param(j) = Int("0" & reg.Replace(tmp(UBound(tmp)), "")) Then f_hetitem = 1 Exit For End If wshSendKeys "{UP}", True Else 'Debug.Print "nohit!" wshSendKeys "{DOWN}", True Exit For End If Next End If End If Next Sleep 100 End Sub

    • ベストアンサー
    • noname#259561
    • Visual Basic
    • 回答数1
  • Kateの字下げ

    Kateの字下げ  Kateの字下げの記事を発見しました。以下の通り、質問いたします。    いつも、回答ありがとうございます。  文章を入力すると改行すると  改行  されて、改行の後に、一つのスペースが、入ります。     つまり、   字下げに  なってしまいます。     ●Q01.  字下げ   をしないようにするには、どのように操作すれば、良いでしょうか? ●Q02.字下げの設定は、どの画面で、どのような操作でできますか?  たとえ一つだけでも、お知りのことがありましたら、教授方よろしくお願いします。  敬具

  • C言語

    これで入れた数字を素因数分解する事が出来ません。また間違っている理由がわからないのでご指摘お願いします。

  • Scikit-learnを利用してデータの分類

    Scikit-learnを利用してデータの分類を行いたいと考えております。 ★検証したいこと マスタデータの名称、大分類CDを元に小分類CDを予測する 現状で実現できたこと ・学習モデルを生成(MLPClassifier)/保存 ・分類対象データを訓練データ/テストデータに分割 ・fitを利用して学習 ・predictを利用してテストデータの予測  ※精度は65%程度   実現できないこと ・ロードした学習モデルを呼び出して新たな分類対象データを  もとにpredictを行うと予測結果の精度が低い(1件も正しい予測がされない) 基本的な知識が欠落していることも想定され、大変恐縮ですが、ご存じの方がいらっしゃればご教授頂けますと幸いです。 yosoku.py ========================================== import os import sys # パラメータ渡しに必要 # [Scikit-learn] [サイキットラーン]機械学習ライブラリ from sklearn import datasets # サンプルのデータ from sklearn.neural_network import MLPClassifier # [ニューラルネットワーク]アルゴリズム from sklearn.model_selection import train_test_split # 訓練データ】と【テストデータ】を簡単に分けることができるライブラリ import sklearn as skl # [サイキットリーン]機械学習用ライブラリ import numpy as np # [ナンパイ]数値計算用ライブラリ import pandas as pd # [パンダス]データ解析ライブラリ import matplotlib.pyplot as plt # [マットプロットリブ]画像描画用のライブラリ import joblib as job # 学習モデルの保存/ロード #from sklearn.externals import joblib # 学習モデルの保存/ロード from datetime import datetime debug = "1" # DEBUGモード 0:ログ出力なし 1:ログ出力あり Dip_Glaf = "1" # グラフモード 0:なし 1:表示あり if debug == "1": print('*****************商品分類 予測 開始*****************') ret = "0" # 戻り値 try: filename = 'Hin_Bunrui_model_' filename = filename + datetime.now().strftime('%Y%m%d') + 'sav' df = pd.read_csv('test_BUNRUI_20620_2_kensyou.csv', encoding='shift_jis') # 品名を10新数に変換する事である程度法則性を持った値となるため品名も機械学習に有益となる print('*******品名10新数変換*********') for index, row in df.iterrows(): str_wk = row['HIN_NAME'] # DataFrameの品名を変数にセット str_wk2 = str_wk.encode('utf-8', 'replace').hex() # 品名を16新数に変換 [0x99のような形式] df.at[index, 'HIN_NAME'] = int(str_wk2,16) # 16新数の品名を10新数に変換しdataFrameを更新 #------------------------------------------------------------------------------ # 文字列カテゴリーを数値化する #------------------------------------------------------------------------------ #print('[HIN_NAME_SUB]の数値化') data = pd.factorize(df.iloc[: , 3]) df["HIN_NAME_SUB"] = data[0] # 0列目に変換後の値 1列目に変換前の値 #print('[HIN_NAME_SUB2]の数値化') data = pd.factorize(df.iloc[: , 4]) df["HIN_NAME_SUB2"] = data[0] # 0列目に変換後の値 1列目に変換前の値 print('[BUNRUI_SYO_NM]の数値化') data = pd.factorize(df.iloc[: , -1]) df["BUNRUI_SYO_NM"] = data[0] # 0列目に変換後の値 1列目に変換前の値 skl_Data = skl.utils.Bunch() # [target]目的変数[正解ラベル]にCSVデータの[Bunrui](分類CD)をセット skl_Data['target'] = df['BUNRUI_SYO'] print("***** 正解ラベル セット完了 [BUNRUI_SYO][小分類CD] *****") skl_Data['data'] = df.loc[:, ['HIN_NAME_SUB','HIN_NAME_SUB2', 'HIN_KBN', 'BUNRUI_DAI', 'BUNRUI_CHU' ]] skl_Data['feature_names'] = [ 'HIN_NAME_SUB','HIN_NAME_SUB2', 'HIN_KBN', 'BUNRUI_DAI', 'BUNRUI_CHU' ] if os.path.isfile(filename): print("ロード") # ★機械学習モデルが存在する場合はロード clf = job.load(filename) else: # ★機械学習モデルが存在しない場合は新規作成 print("新規作成") clf = MLPClassifier(hidden_layer_sizes=10, activation='relu',solver='adam', max_iter=500) print("予測 ") # 戻り値で予測結果を戻す [skl_Data['target'] = df['Bunrui']]なので分類CDが戻る print(clf.predict(skl_Data['data'])) # 戻り値で予測結果を戻す [skl_Data['target'] = df['Bunrui']]なので分類CDが戻る print("正解 ") print(df["BUNRUI_SYO"]) except Exception as E: sys.exit() # 処理終了 # 戻り値格納(正常終了) print("Result {0}".format(ret))

  • 【営業マンに質問です】SFA(営業支援システム)の

    【営業マンに質問です】SFA(営業支援システム)のSFAって何の略ですか? どういう機能があるのか教えてください。

  • エクセルファイルのマクロ ファイル変換

    micrsoft365のエクセルファイル たとえば a.xmlファイルを開いたときに a.xmlのセルA1 = あ a.xmlのセルB1 = い a.xmlのセルC1 = う と 出るとします これを別の b.xmlファイルに 次のように変換したいとき b.xmlのセルD2=a.xmlのセルA1 = あ b.xmlのセルE2=a.xmlのセルB1 = い b.xmlのセルF2=a.xmlのセルC1 = う 以上の操作をしたいのですが a.xmlファイルを開いて マクロを実行して b.xmlファイルを作成したいのですが、 やりかた コードなど教えていただけますと 助かります 宜しくお願い致します OS win10

    • ベストアンサー
    • sushidokei
    • XML
    • 回答数1
  • VB.NET DataTableについて

    質問失礼します。 VB.Netで、テーブルに格納されたデータをDataTableを利用し、SQLを実行、抽出してきました。 その結果から、さらに抽出したいのですが、方法がわかりません。 dataに格納したものは、問題なく抽出できています。(データセットビジュアライザーで確認済み) 以下、 番号 名前 合計 1 りんご 10 2 ぶどう 20 3 りんご 30 の、ように3行結果が取れました。 そこから、名前が重複していル値があるかどうか、またその数を確認したいです。 (りんごが、2行ある) この方法がどうしてもわからず、 Dim rows As DataRow() から rows = data.Select("名前 = りんご") とすれば、りんごが2行あると数がわかりますが、 これが、りんごとは、限らないため、 重複している名前があるか、どうかを調べたいところです。 勉強して、まだ浅く、わかりづらい説明で申し訳ありませんが、ご回答のよろしくお願いします。

  • デスクトップ機をiPhoneのインターネット共有で

    クローズな環境のPCを一時的にインターネットへ繋げたいと思っています。 状況: Windows11のデスクトップ機があります。固定アドレスでLAN接続されていますが、閉じたLANでインターネットへは接続できません。 共通のハブに繋げられるWindos10のノートPCがあります。 このノートPCをiPhone SE(第2世代)のインターネット共有でインタネットへ繋げます。 ノートPCのネットワークの設定で”アダプターの設定変更”でwifiとイーサネットの両方を選んでブリッジ設定します。 これだけの設定でWindows11のデスクトップ機はインターネットへ接続できるでしょうか? 要点は、一時的にインターネットへ接続したいWindows11機のIPアドレス等はどの様に設定すべきでしょうか? ノートPCのwifi側はiPhoneから自動で割り当てられる様に設定しています。 状況: 現テスト環境は本番と同じではありません。ノートPCとiPhone及びハブは本番と同じですが、WIndows11機のところがWindows10機でテストしています。 自動取得と固定アドレスでも試してみましたが、インターネットへ接続出来ていません。 そもそもこの様な手法でインターネットへ接続できるのでしょうか? (ノートPCはインターネット接続出来ています。ブリッジの先が繋がりません) アドバイス願えればと思います。

  • 出発駅A、到着駅Bを選択すると、距離と運賃が返る

    出発駅A、到着駅Bを選択すると、2.3㎞と170円と返るようにしたいです。 具体的には{ name:["A", "B"], distance: 1.5,between:1}に対して、{ between:1,fare:170 }と返るようにしたいです。 実装方法がわからないです。 また、これらをifで分岐させたいです。どうしたらいいのでしょうか。 <head> <meta charset="UTF-8"> <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script> <script> /** * distance : 区間距離(km) * name : 区間名 * price : 区間における乗車運賃 */ const price_table = [ { distance: 0, name: '見送り', price: { normal: 120, child: 60 } }, { distance: 3, name: '1区間', price: { normal: 150, child: 80 } }, ]; /** * name: '駅名' * distance: 次の駅までの距離 */ const stations = [ { name: 'A', distance: 1.5 }, { name: 'B', distance: 1.5 }, ]; </script> <script> $(function () { $(document).on('change', function () { var f = $('[name=from]').val(); var t = $('[name=to]').val(); // 何番目の駅かを探す let from_idx = stations.findIndex(station => station.name == f); let to_idx = stations.findIndex(station => station.name == t); // from, to が昇順になるようにする。 let from_to = [from_idx, to_idx].sort(); // どちらかが未入力の場合、もしくは駅名が見つからない場合は処理を受け付けないようにする。 if (from_to[0] < 0) { return; } // 駅間の距離を加算する。 let d = 0; for (let i = from_to[0]; i < from_to[1]; i++) { d += stations[i].distance; } // 距離の合計値による料金テーブルを探す const period = price_table.find(price => d <= price.distance); $('span[name=distance]').html(d); $('span[name=kukan]').html(period.name); $('span[name=price]').html(period.price.normal); }); }); </script> </head> <body> <div> 出発駅: <select name="from"> <option value="">--</option> <option value="A">A</option> <option value="B">B</option> </select> </div> <div> 到着駅略 </div> 距離:<span name="distance"></span>km<br /> 区間:<span name="kukan"></span><br /> 料金:<span name="price"></span>円 </body> </html> jsのプログラムサイトをいろいろ調べてみましたが、グッとくるものはなかったです。

  • デバイスの場所が解らない

    PCにあるマルウェアを探しているのですが \Device\HarddiskVolumeShadowCopy13\Users\ユーザー名\AppData\Local\Mozilla\Firefox\Profiles\cn5el3dq.default-release-1650237823568\cache2\entries\076122AE23CE85C43076E87050A38C8F17CDEF76 この中の\Deviceというのはどこにあるのでしょうか? 見つからないのですが。 ご教示お願いします。

  • vector works 2021で属性パレット

    属性パレットをクリックしても出てきません。 どうしたら出てきますか?

  • プロバイダはどうやって利用者を識別しているの?

    DHCPによってIPアドレスを割り振る時に契約者情報を紐づけて管理していると思いますがパソコン自身が契約者情報をそえてリクエストしているのでしょうか?

  • パソコン容量圧迫

    特別なことはしてないのですが、パソコンの容量がいっぱいになりました。 OS (c:)空き容量が、1.34GB/108GBになっています。 自分なりに調べて、不要なアプリアンインストール、ゴミ箱削除、キャッシュクリアしたり、一時ファイルを消す、Cドライブをデフラグをしてファイルの断片化を解消する 、ストレージセンサーオン、今すぐクリーンアップ、などやりましたがあまりかわりませんでした。。 詳しい方教えていただければありがたいです。 よろしくお願いします。

  • エドワード・スノーデン氏の学歴について

    https://ja.wikipedia.org/wiki/%E3%82%A8%E3%83%89%E3%83%AF%E3%83%BC%E3%83%89%E3%83%BB%E3%82%B9%E3%83%8E%E3%83%BC%E3%83%87%E3%83%B3 こちらを見たのですが、日本で言う高認を持つ中卒でしょうか?

  • セキュリティ更新プログラムしないでいると

    Windows10/11の更新プログラム(KB5034441)更新しないとどうなりますか。

  • WindowsのSysprepについて

    WindowsのSysprepについて HKEY_CURRENT_USERで設定したものがSysprep後のイメージから消えてしまうのは仕様ですよね? HKEY_LOCAL_MACHINEで設定できないものはあきらめるしかないのでしょうか。

  • ゆっくりムービーメーカーを動かすExcelVBAの

    https://www.youtube.com/watch?v=r_9JLzXMsk4&t=16s この動画のマクロをゆっくりムービーメーカーの最新のバージョンでも使えるようにしてほしいです。或いは立ち絵変更の時にカスタムをいじってスムーズに立ち絵変更が出来るようにしてほしいです。v14.01ではバージョン名の変更を除いてそのまま利用できました。よろしくお願いします。

  • ファイルサーバーを外部からアクセスしたいです。

    自分のPCにはWindows11Homeが導入されていて、そのPCにUSBHDDをつないでファイルサーバーを構築しています。 以前までは外部からアクセスするためにはVPNを使用して外部からアクセスできるようにしていたのですが不安定だったため、ほかの方法を使ってファイルサーバーを外部からアクセスしたいです。

  • 【FTP不可能。更新編集したい】FTP接続更新が出

    【FTP不可能。更新編集したい】FTP接続更新が出来ない@ISPぷらら docomo。上級者向け。 自分のぷららWebSiteです。 FTP接続転送して更新が出来ないです。新し目のAndroid端末で、アプリはx-ploreです。他のぷららメール等は問題無しです。アカウント等に誤りもないです。CXだとGETは可能です。 理由も確実にわかる方で理解してる方は、Androidアプリ(Android希望は2以上、出来れば8以上、最悪13で確実に安全に稼働する物)を、しっかりとした確実な根拠を併記して推薦して下さい。文字コード種別対応具合も。また、良いオーサリングツールも推薦して下さい。 「必ずtestした画像を見て理解して回答解決出来る方だけが返答して」下さい。良くわからない方や機械的Template回答マスター等は返信をご遠慮下さい。かたく。 例外として、作成更新編集FTPアプリの推薦は、環境と理由併記で文頭に「※推薦など」と書いて投稿するのはOKといたします。 有効に活用したいです。 また、有効な活用例や裏技があれば教えて下さい。 他にメールは使用してます。 下記が出て際限がないので、 https://imgur.com/Bxup7D9.png ↓ 画像の投稿に失敗しました 画像の投稿が必要な場合は、質問を削除し再度投稿をお願いします。閉じる