第1弾は趣味Q&A!
コンピューター・テクノロジーのQ&A
回答数
気になる
-
931
Gom Player 動画を再生できなくなった
先週あたりから、Gomプレイヤーで見ていた動画が再生できなくなりました。 再生しようとすると、音だけは聞けるのですが、肝心の動画は音符のアイコンが表示されるだけです。 さらに「必要なコーデックがインストールされてないか設定が正しくない」という警告が出るのですが、ついこの間まで同じ動画ファイルが問題なく再生できてましたので、ファイルがおかしいとは考えられません。 全ての動画が再生できないわけじゃなくて一部で、拡張子はmkvが多いですがmp4でも同じ症状のものがあります。 同じ形式でも再生できるものとできないものがあります。どちらも、以前はまともに再生できました。警告には「コーデックナビをクリックすると検索できます」と出るので、クリックすると、怪しげな韓国語のページに飛ばされて、その先に進めません。 https://www.gomlab.com/codec-info?id=730&bitType=2&codecType=5&page=1 ちょうど同じ頃、Gomプレイヤーの更新の案内があったのでアップデートしたのですが、これが原因でしょうか? 同じ症状の方はいますか? どう対処したら良いのでしょうか? Gomプレイヤーは無料版を使ってますが、正規バージョンを購入すれば解決できるのでしょうか? そもそも、コーデックのなんたるか、どうインストールできるのかも理解してないので、初心者向けの解決策をご教授願います。
質問日時: 2024/05/31 10:21 質問者: ringxjjv カテゴリ: 画像編集・動画編集・音楽編集
ベストアンサー
4
0
-
932
Windowsの契約期限がもうすぐ切れます は、放置してていいですか?
その文の後に「設定」でライセンス認証を行う必要があります...という警告文が 10日ほど前から起動するたび出てくるようになりました。 「設定」を開くと 「Windowsは組織のライセンス認証サービスを使用して、ライセンス認証されてます」 となってます。 このまま使い続けててよいのでしょうか? このPCの履歴を書いておきます。 2017年に中古ショップからWin7搭載のディスクトップを購入 2019年にWin10にアップグレードし現在に至ってます。 筐体に貼ってあるProduct Keyと実際のProduct Keyが違うので、多分業者で新たに入れ直したのではないかと思われます。 放置しておくと支障が出るのか分かりませんため、よろしくお願いします。
質問日時: 2024/05/30 13:45 質問者: 960ra カテゴリ: Windows 10
ベストアンサー
6
1
-
933
UTF-8とUTF-16とUTF-32ってどれが良いのでしょうか?どれかが将来使われなくなってファイ
UTF-8とUTF-16とUTF-32ってどれが良いのでしょうか?どれかが将来使われなくなってファイルを読み込めなくなる事によりデータを失うのが怖いのです、、、
質問日時: 2024/05/17 11:23 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
4
0
-
934
授業の内容なのですがほんとになにも分からないのでおしえてください。 単純パーセプトロンをベタに実装し
授業の内容なのですがほんとになにも分からないのでおしえてください。 単純パーセプトロンをベタに実装しなさい。(今後拡張するので、できるだけ一般的に実装すること)。
質問日時: 2024/05/12 20:25 質問者: れお___ カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
4
0
-
935
VBAでパワーシェルを実行したいのですが、なかなかうまく出来ず、有識者の知識をお借りさせてください。
VBAでパワーシェルを実行したいのですが、なかなかうまく出来ず、有識者の知識をお借りさせてください。 wshShellだと引数が上手く渡せない(PowerShell自体実行できてなさそう?)ですが、shellだと上手く実行できます。 ただ、非同期ではその後の処理に影響があるため同期で処理したいところです。 どこか記載が誤っている、もしくは改善点等あればご教授してください。 以下に簡潔にコードを記載します。 【前提】 指定のフォルダ下にあるファイルすべてのハッシュ値を取得したい 【VBAコーディング】 Dim psFilePath as String 'PowerShell格納先 Dim FolderPath as String 'ハッシュ取得先パス格納 Dim textOutputPath as String 'PowerShellから取得したハッシュを書き出すパス Dim wshShell as Object '同期してPowerShellを動かすため Dim ToolPath as String '本ツールパス格納 Dim ToolBook as Workbook '本ツールを変数に格納 Set ToolBook =ThisWorkbook ToolPath = ToolBook.Path Set wshShell =CreateObject("WScript.Shell") '実行するPowerShell格納先 psFilePath =(ToolPath + "¥Tools¥hash.ps1") 'ハッシュ取得先 FolderPath = (ToolPath + "¥export") 'ハッシュ取得結果出力先 textOutputPath = (ToolPath + "¥Tools¥hash.txt") 'PowerShell実行 wshShell.Run "powershell.exe -File """ & psFilePath & """ """ & FolderPath & """ """ & textOutputPath & """", vbNomalFocus 【PowerShellコーディング】 param( [string]$folderPath, [string]$textOutputPath ) # 指定したフォルダ内のすべてのファイルのハッシュ値を取得してテキストファイルに書き出す # 指定したフォルダ内のすべてのファイルのフルパスを取得する $files = Get-ChildItem -Path $folderPath -Recurse -File # ファイルを書き込むためのストリームライターを作成する $streamWriter = New-Object System.IO.StreamWriter($textOutputPath, $false, [System.Text.Encoding]::UTF8) # 指定したフォルダ内のすべてのファイルのハッシュ値を計算して書き込む foreach ($file in $files) { try { $hash = Get-FileHash -Path $file.FullName -Algorithm SHA256 $filePath = $file.FullName -replace '"', '' $line = "$filePath`t$($hash.Hash)" $streamWriter.WriteLine($line) } catch { $_.Exception.Message | Out-File -FilePath "C:\path\to\your\errorlog.txt" -Append } } # ストリームライターをクローズする $streamWriter.Close() よろしくお願いいたします。
質問日時: 2024/05/11 00:25 質問者: ぎゃす カテゴリ: その他(プログラミング・Web制作)
解決済
2
0
-
936
エクセル初心者です 関数の入れ方を教えてください
B列の個数をC列のセットで掛ければD列の通りになりますが、求めたい数値はF列の通りになります。 3行目 実際の数値の10の位が奇数の場合は偶数になるように繰り上げて+20 330→340→360 4行目 実際の数値の1の位が奇数の場合は10の位が偶数になるまで繰り上げて+20 345→360→380 5行目 実際の数値の10の位が偶数の場合はそのまま+20 360→380 どのような数式、関数を入れればいいのでしょうか? 宜しくお願いします。
質問日時: 2024/05/10 00:10 質問者: 多肉植物沼にハマりかけマン カテゴリ: Excel(エクセル)
ベストアンサー
4
1
-
937
事務の派遣で働いています。多人数の職場です。 パソコンの社内共有フォルダ内のファイルを勝手に消したり
事務の派遣で働いています。多人数の職場です。 パソコンの社内共有フォルダ内のファイルを勝手に消したり他人のファイルを勝手に編集する輩がいます。 それを出来ないようにする策がありましたら教えてください。 但し『共有フォルダを使わせない』は無しでお願いします。各自が作成したファイルデータはその共有フォルダに格納させる必要が有りますし、共有フォルダ内のファイルを、各自のPCのデスクトップにコピー&ペーストさせる必要があります。それらを禁止せずに、編集削除を出来なくする策を教えてください。
質問日時: 2024/04/27 04:52 質問者: toyotoyoi カテゴリ: その他(セキュリティ)
解決済
3
1
-
938
iPhoneで時計アプリ、メッセージアプリをロックしたい。 部活の大会の撮影でiPhoneを使うので
iPhoneで時計アプリ、メッセージアプリをロックしたい。 部活の大会の撮影でiPhoneを使うのですが、当然みんなが使うものになるので、下手にいたずらされないように(あと見た目)アップル純正の時計アプリとメッセージアプリを開けないようにしたいです。最悪、アプリとして使えなくなればいいです。 iPhone7でiOSは15.8.2です。
ベストアンサー
5
0
-
939
Microsoft office で ソフトを選んでインストールできるのか?
「Microsoft office 」をPCにインストールする際に、例えば「エクセル はインストールしない」というように、インストールするソフトを選択することはできるのでしょうか?
質問日時: 2024/04/16 21:41 質問者: hiyodoriganaku カテゴリ: 教育ソフト・学習ソフト
ベストアンサー
4
0
-
940
windows11 サービスにSecurity Centerがないです。
現在、windows11を使用しています。設定からWindowsセキュリティを開くことができず、なにか問題があるのか調べたところ、サービスにSecurity centerが見当たりませんでした。2012年頃に同じようにmicrosoftのサポートページで「Security centerがない」といった質問をして、解決した方がいらっしゃったのでその方法を参考にしようと思ったのですが、レジストリの変更をするらしいです。情報が10年前と古く、気軽に試せる方法ではないため実行するのに躊躇しています。なので、パソコンの知識がある方にアドバイスをもらいたいと考えここで質問しました。
質問日時: 2024/04/13 21:17 質問者: なんでもショシンシャ カテゴリ: セキュリティホール・脆弱性
解決済
1
0
-
941
Acer AXC605-H54D にOSをインストールしたいのですがWn8.1のインストール画面でデ
Acer AXC605-H54D にOSをインストールしたいのですがWn8.1のインストール画面でデバイスドライバがインストールできません何方か成功した方がいらっしゃいましたらご教授願います!
ベストアンサー
2
0
-
942
変なソフト
パソコンにIntel.system10.1.49.9というソフト?をインストールしろと出てきます。これは、大丈夫なんでしょうか?
質問日時: 2024/04/12 18:29 質問者: やばいさ カテゴリ: 教育ソフト・学習ソフト
解決済
3
0
-
943
システムエンジニアの適正について
組み込み系ITエンジニアになって、10数年程度経ちますが、いまいちパッとしません。 自己学習をしようと思って、microsoft learnのサイトを見てみたりしますが、 なかなか理解が出来ません。 このページを見て、一般的なエンジニアの方はサクサクと理解できるものでしょうか? https://learn.microsoft.com/ja-jp/cpp/cpp/cpp-type-system-modern-cpp?view=msvc-170
質問日時: 2024/04/03 00:46 質問者: まゆげ大好き カテゴリ: C言語・C++・C#
解決済
5
1
-
944
左右の表のキー位置を合わせたい
左表と右表がありますが、キーがあったりなかったりして行が ずれているのを一致させた表をつくろうとしています。 キーの有無を判定して相手方の表に空行を挿入する方法以外で もっと良い方法はありませんか?
質問日時: 2024/03/25 10:23 質問者: rexfan カテゴリ: Visual Basic(VBA)
解決済
4
0
-
945
Windows11で消してしまった初期フォントを復元する方法を教えてください
Windows11で消してしまった初期フォントを復元する方法を教えてください 先日Windows11の普段使わないフォントをツールを使用し削除したのですが、様々なソフトで文字化けするエラーが発生しました。 削除前に一応調べて、削除するべきでは無い物を調べ、一部のフォントは残していました。 Arial Comic Sans MS Courier New Courier 標準 FixedSys 標準 Impact 標準 Lucida Console 標準 Meiryo UI Modern 標準 MS P ゴシック 標準 MS P 明朝 標準 MS Sans Serif 標準 MS Serif 標準 MS UI Gothic 標準 MS ゴシック 標準 MS 明朝 標準 Roman 標準 Sans Serif Collection 標準 Segoe Fluent Icons 標準 Segoe MDL2 Assets 標準 Segoe UI Small Fonts 標準 Symbol 標準 System 標準 Tahoma Terminal 標準 Times New Roman Verdana Webdings 標準 Wingdings 標準 Yu Gothic UI メイリオ 游ゴシック 游明朝 というフォントを残しました。 一度消したフォントを復元したいので、復元させる方法を知っている人はいませんか? 初期化などは出来ません。 また復元が完了した後、削除してもよいフォントとしてはいけないフォントを知っている方も教えていただけると助かります。
質問日時: 2024/03/23 16:02 質問者: BHFJKMJJMHSGOPSMG カテゴリ: Windows 10
解決済
1
0
-
946
Androidのスマホを再起動しようとしたら「ピー」って言う音共に変な画面が出てきたんですが、これは
Androidのスマホを再起動しようとしたら「ピー」って言う音共に変な画面が出てきたんですが、これは何でしょうか? 再起動するにはどうしたらいいのですか?
ベストアンサー
2
1
-
947
ソフトはVectorでダウンロードしても窓の杜でダウンロードしてもフリーソフト100でダウンロードし
ソフトはVectorでダウンロードしても窓の杜でダウンロードしてもフリーソフト100でダウンロードしても全く同じ内容のソフトなのですか?
質問日時: 2024/03/20 19:38 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
4
1
-
948
stable diffusionのエラー
以下のようなエラーが出て実行できませんでした 解決策を教えてください *** Error setting up CodeFormer Traceback (most recent call last): File "/content/gdrive/MyDrive/sd/stable-diffusion-webui/modules/codeformer_model.py", line 30, in setup_model from modules.codeformer.codeformer_arch import CodeFormer File "/content/gdrive/MyDrive/sd/stable-diffusion-webui/modules/codeformer/codeformer_arch.py", line 9, in <module> from modules.codeformer.vqgan_arch import VQAutoEncoder, ResBlock File "/content/gdrive/MyDrive/sd/stable-diffusion-webui/modules/codeformer/vqgan_arch.py", line 11, in <module> from basicsr.utils import get_root_logger File "/usr/local/lib/python3.10/dist-packages/basicsr/__init__.py", line 4, in <module> from .data import * File "/usr/local/lib/python3.10/dist-packages/basicsr/data/__init__.py", line 22, in <module> _dataset_modules = [importlib.import_module(f'basicsr.data.{file_name}') for file_name in dataset_filenames] File "/usr/local/lib/python3.10/dist-packages/basicsr/data/__init__.py", line 22, in <listcomp> _dataset_modules = [importlib.import_module(f'basicsr.data.{file_name}') for file_name in dataset_filenames] File "/usr/lib/python3.10/importlib/__init__.py", line 126, in import_module return _bootstrap._gcd_import(name[level:], package, level) File "/usr/local/lib/python3.10/dist-packages/basicsr/data/realesrgan_dataset.py", line 11, in <module> from basicsr.data.degradations import circular_lowpass_kernel, random_mixed_kernels File "/usr/local/lib/python3.10/dist-packages/basicsr/data/degradations.py", line 8, in <module> from torchvision.transforms.functional_tensor import rgb_to_grayscale ModuleNotFoundError: No module named 'torchvision.transforms.functional_tensor'
ベストアンサー
1
0
-
949
Notepad++の関数リスト表示でC言語のプログラムが正しく表示できない。
C言語のプログラムを作成するエディタとしてNotepad++の使用を検討しています。 関数リストを表示すると、余計な行まで表示されてしまいます。 対応方法などあればお教えください。 例えば、下記のようなプログラムでは、 ------------------------- void functionA() //① { if(functionC()) //② { } catch() //③ { } while() //④ { } } void functionB() //⑤ { } ------------------------- 関数リストの表示では①と⑤のみを表示したいのですが、 ②と③も表示されてしまいます。(④は表示されない。) どなたか対応方法が分かる方がいましたらお助け下さい。 一度はあきらめ、別なエディタに乗り換えも考えたのですが、 notepad++他のプログラムで使用しており、その使い方になれてしまっているため、 諦めきれず、こちらに投稿させていただきました。 よろしくお願いいたします。
質問日時: 2024/03/09 10:38 質問者: GACHAPINA カテゴリ: C言語・C++・C#
ベストアンサー
3
1
-
950
ワードってスマホから見ると、アプリでは縦書きにできるが,ウェブから見ると横書きを変えることはできない
ワードってスマホから見ると、アプリでは縦書きにできるが,ウェブから見ると横書きを変えることはできないで認識あってますか?
ベストアンサー
5
1
-
951
Microsoft Officeを2台目のPCにインストールしたい!
仕事で使用するPCでWindows10をインストールしたPCが2台あります。 Officeは2台まで使用できるものを使用しています。 それで1台目はWindowsとOfficeのインストールもどちらも順調にできました。 けれど2台目の方ではWindowsのインストールが終わりOfficeをインストールしようとすると『Token Already Redeemed』とエラーコードが出ます。 この場合どうすればいいのか、教えてください。 よろしくお願いします。
質問日時: 2024/02/27 14:28 質問者: rie78 カテゴリ: その他(Microsoft Office)
ベストアンサー
5
0
-
952
最先端のCPUを詰んだAndroidスマホでもiPhoneに勝てないのは何故ですか?
最先端のCPUを詰んだAndroidスマホでもiPhoneに勝てないのは何故ですか?
ベストアンサー
6
0
-
953
指紋から個人を特定するのって指紋が分かったとこで個人の指紋のデータとか無いのにどう特定するんですか?
指紋から個人を特定するのって指紋が分かったとこで個人の指紋のデータとか無いのにどう特定するんですか?
質問日時: 2024/02/25 22:09 質問者: ajgmwtあ カテゴリ: ハッキング・フィッシング詐欺
ベストアンサー
4
0
-
954
VBA 別ブックから条件に合うものを転記したいです
上の表を埋めるため、別ブックの下の表から条件に合うセルを転記し、また、空白のセルに[x]を入れたいです。 東京-りんご セルB2に入るのはa(B4) セルC2、D2はx VBA初心者の為、なかなか上手く行かず、、、 ご教授よろしくお願いします。
質問日時: 2024/02/25 21:39 質問者: moff12010816 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
955
mac ファイルの詳細情報を編集する方法
macでファイルの詳細情報の編集方法が調べてもわからなかったので質問させていただきます。 今やりたいこととしては、ミュージックのアプリを使わないで詳細情報を編集したいです。 自分で録音した音楽ファイルを知人に渡したいのですが、自分が録音したファイルを管理してる場所(アルバム名)をみられたくないので、その情報を消した上で渡したいなと思ってます。 ミュージックのアプリで編集したら詳細情報のアルバム名等が変更できるのはわかっているのですが、できればそれ以外の方法があればそうしたいです。 拙い質問で恐縮ですがよろしくお願いいたします。
質問日時: 2024/02/24 15:21 質問者: takemaru-z カテゴリ: Mac OS
解決済
3
0
-
956
Excel VBA 文字列のセルを反映させたいです
大変お世話になっております。 以下のVBAを実行すると、セルの書式設定で『文字列』のセル(例えば、052等、数字の頭が0のため文字列にしたセル)が反映されません…。 (複数のシートを1つのシートにまとめるVBAでして、まとめる前の元のシートに文字列が含まれています) 文字列を反映したいため、コードの修正をしていただけると有難い限りです…。 お手数ですが、コードの全文をご記載いただけると本当に助かります…。 Sub 複数のシートを1つのシートにまとめる() Dim i As Long Dim r As Long Dim s As Long Dim Sh As Worksheet Dim MaxRow As Long Dim MaxCol As Long Dim MyArray As Variant Dim JoinSh As Worksheet Application.DisplayAlerts = False 'シート削除時のアラート停止 For Each Sh In Worksheets If InStr(Sh.Name, "統合") <> 0 Then Sh.Delete 'すでに統合シートが存在する場合は一旦削除 Next Application.DisplayAlerts = True 'シート削除時のアラート停止を解除 s = 1 '最大行を超えた場合次の統合シートを作成するための番号 Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加 ActiveSheet.Name = "統合" Set JoinSh = ActiveSheet '統合シートを変数に格納 For i = s + 1 To Worksheets.Count 'シートを統合シートの次~末尾までループ With Worksheets(i) '各月シート If i = 2 Then r = 1 '最初だけ項目も取得 Else r = 2 '最初以外は2行目から取得 End If MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '1列目で最終行を取得 MaxCol = .Cells(1, Columns.Count).End(xlToLeft).Column '1行目で最終列を取得 MyArray = Range(.Cells(r, 1), .Cells(MaxRow, MaxCol)) 'A1~データ末尾まで配列に格納 End With With JoinSh '統合シート MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '統合シートの1列目で最終行取得 If MaxRow + UBound(MyArray) > Rows.Count Then '最大行を超える場合の処理 s = s + 1 '統合シートの番号を加算 Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加 ActiveSheet.Name = "統合" & s '名前が同じにならないように番号を追加 Set JoinSh = ActiveSheet '統合シートを変数に格納 MaxRow = JoinSh.Cells(Rows.Count, 1).End(xlUp).Row '統合シートの1列目で最終行取得 End If If .Cells(1, 1) = "" Then '最初だけ1行目から貼り付け Range(.Cells(1, 1), .Cells(UBound(MyArray), MaxCol)) = MyArray Else '最初以外は最終行の次に貼り付け Range(.Cells(MaxRow + 1, 1), .Cells(MaxRow + UBound(MyArray), MaxCol)) = MyArray End If End With Next i End Sub ご回答を心よりお待ちしております。 大変恐縮ですが、どうぞ宜しくお願い申し上げます。
質問日時: 2024/02/24 00:06 質問者: yuri_7 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
957
Excel VBA マクロ あるフォルダー内の複数のファイルを統合したいです
大変お世話になっております。 ●あるフォルダー内の複数のファイルを1つのファイル統合したいです。 1)複数のファイルのファイル名は異なります。 2)複数のファイルの各々のシート名は同一です。 3)複数ファイルの形式は同一です。 4)一つに統合した際に、シート名・形式を保ったままにしたいです。 現在は… フォルダー内のファイルを一度各シートにし、その後、統合するVBAを使用しています。 統合した際に形式が保てませんし、2度手間になっています…。 ■1■まず…以下を行い Sub フォルダー内のファイルを各シートへまとめる() Dim Filename As String Dim IsBookOpen As Boolean Dim OpenBook As Workbook Dim ShCount As Long With CreateObject("WScript.Shell") .CurrentDirectory = "F:\2024.02.19_複数ファイルを一つにまとめる\新しいフォルダー" 'ここで読み込むフォルダを直接指定するF:\2022.12.01_複数ファイルを一つにまとめる End With Filename = Dir("*.xlsx") Do While Filename <> "" If Filename <> ThisWorkbook.Name Then IsBookOpen = False For Each OpenBook In Workbooks If OpenBook.Name = Filename Then IsBookOpen = True Exit For End If Next If IsBookOpen = False Then ShCount = ThisWorkbook.Worksheets.Count Workbooks.Open (Filename), UpdateLinks:=1 Worksheets.Copy after:=ThisWorkbook.Worksheets(ShCount) Workbooks(Filename).Close savechanges:=False End If End If Filename = Dir() Loop End Sub ■2■次に以下を行い… Sub 複数のシートを1つのシートにまとめる() Dim i As Long Dim R As Long Dim s As Long Dim Sh As Worksheet Dim MaxRow As Long Dim MaxCol As Long Dim MyArray As Variant Dim JoinSh As Worksheet Application.DisplayAlerts = False 'シート削除時のアラート停止 For Each Sh In Worksheets If InStr(Sh.Name, "統合") <> 0 Then Sh.Delete 'すでに統合シートが存在する場合は一旦削除 Next Application.DisplayAlerts = True 'シート削除時のアラート停止を解除 s = 1 '最大行を超えた場合次の統合シートを作成するための番号 Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加 ActiveSheet.Name = "統合" Set JoinSh = ActiveSheet '統合シートを変数に格納 For i = s + 1 To Worksheets.Count 'シートを統合シートの次~末尾までループ With Worksheets(i) '各月シート If i = 2 Then R = 1 '最初だけ項目も取得 Else R = 2 '最初以外は2行目から取得 End If MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '1列目で最終行を取得 MaxCol = .Cells(1, Columns.Count).End(xlToLeft).Column '1行目で最終列を取得 MyArray = Range(.Cells(R, 1), .Cells(MaxRow, MaxCol)) 'A1~データ末尾まで配列に格納 End With With JoinSh '統合シート MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '統合シートの1列目で最終行取得 If MaxRow + UBound(MyArray) > Rows.Count Then '最大行を超える場合の処理 s = s + 1 '統合シートの番号を加算 Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加 ActiveSheet.Name = "統合" & s '名前が同じにならないように番号を追加 Set JoinSh = ActiveSheet '統合シートを変数に格納 MaxRow = JoinSh.Cells(Rows.Count, 1).End(xlUp).Row '統合シートの1列目で最終行取得 End If If .Cells(1, 1) = "" Then '最初だけ1行目から貼り付け Range(.Cells(1, 1), .Cells(UBound(MyArray), MaxCol)) = MyArray Else '最初以外は最終行の次に貼り付け Range(.Cells(MaxRow + 1, 1), .Cells(MaxRow + UBound(MyArray), MaxCol)) = MyArray End If End With Next i End Sub ■3■最後に…、手作業で形式をコピーし、統合したファイルにペーストしています。 一度で解決するVBAをお教えいただけると本当に有難い限りです…。 お手数ですが、ご回答を心よりお待ちしております。 大変恐縮ですが、どうぞ宜しくお願い申し上げます。
質問日時: 2024/02/19 21:37 質問者: yuri_7 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
958
Access2021 「ISNULL関数には引数が2つ必要です」エラー
見積のシステムを作る際、AccessからSQL Serverに接続をするためパススルークエリーにて実行させようとしたのですが、エラーが発生してしまいます。 SQLビューのコード SELECT 見積明細備考.見積明細備考ID, 見積明細.見積明細ID, 見積明細.見積ID, 見積明細備考.型番, IIf((IsNull((SELECT Sum(Q_加工費.価格) FROM Q_加工費 WHERE 見積明細ID=見積明細.見積明細ID and 型番=見積明細備考.型番))),0,(SELECT Sum(Q_加工費.価格) FROM Q_加工費 WHERE 見積明細ID=見積明細.見積明細ID and 型番=見積明細備考.型番)) AS 加工費 FROM 商品 INNER JOIN ((見積明細 INNER JOIN 取引先 ON 見積明細.得意先ID = 取引先.得意先ID) INNER JOIN 見積明細備考 ON 見積明細.見積明細ID = 見積明細備考.見積明細ID) ON 商品.型番 = 見積明細備考.型番 GROUP BY 見積明細備考.見積明細備考ID, 見積明細.見積明細ID, 見積明細.見積ID, 見積明細備考.型番; エラー内容 ODBC-- 呼び出しが失敗しました。 [Microsoft][ODBC SQL Server Driver][SQL server]isnullには引数が2個必要(#174)。[Microsoft][ODBC SQL Server Driver][SQL server]')'付近に不適切な構文があります。(#102) IIfとIsNullを使い別クエリにある加工費の合計を計算し、見積明細備考というテーブルにある見積明細備考にあるID1つにつき加工費の集計結果を出力するレコードがありそれが原因だと思うのですが、どのように変更すればエラーがなくなるでしょうか? 長文になりましたが、ご助力願えればと思います。 宜しくお願い致します。 補足 見積(主キー 見積ID)ー見積明細(主キー 見積明細ID)ー見積明細備考(主キー 見積明細備考ID) 加工費(主キー 加工費ID) 材料費(主キー 材料費ID) 初回費用(主キー 初回費用ID) 運賃(主キー 運賃ID) 各テーブルに見積ID、見積明細IDがある 見積明細ID、見積明細備考にある型番から該当の費用を参照し合計を総合計クエリに表示させている 取引先(主キー 得意先ID) 商品(主キー 型番) 主キーを参照することで得意先名と商品名を表示させるようにしている データベースツールの「データベースの最適化」とデータベースツールの「パフォーマンスの最適化」では特に変化はありませんでした。
質問日時: 2024/02/16 14:06 質問者: シュウ11 カテゴリ: SQL Server
ベストアンサー
2
0
-
959
MACアドレスを偽装したい
Windows11のパソコンでMACアドレスを偽装することはできますか? 方法を教えて下さい
質問日時: 2024/02/16 13:42 質問者: nine0202 カテゴリ: Windows 10
ベストアンサー
7
0
-
960
Blenderが起動しなくなった。
こんにちは。 この前まで普通に起動していたBlender君が起動しなくなりました。2.62~4.0全てでです。 因みに起動時にこんなウィンドウがでてきました。OpenGLが消えた…のか!? あまりPCに詳しくないので、教えて頂きたいです。
ベストアンサー
1
0
あなたの趣味に関するQ&Aを探してみてください!
おすすめ情報