第1弾は趣味Q&A!
コンピューター・テクノロジーのQ&A
回答数
気になる
-
再質問、VBA シート間の転記で、条件の追加コードの書き方について教えて下さい。
昨日解決させていただいた件名内容で、質問したいのですが、サンプルはうまくいきましたが、実際のものに、変えて動かすと、エラーがでます。 エラー内容はあとで送ります。 再度確認なのですが、以前送付いただいた転記部分で、変数iがどうしても、0になり、値が入りません。 もしかして、比較しているws1とws2で、データが無いものが、あれば、エラーになるでしょうか? 実際のものはws1にあって、ws2にないもの、または逆、があります。 何度もすみませんが、よろしくお願い致します。
質問日時: 2023/02/28 15:32 質問者: qazwsx7410 カテゴリ: Visual Basic(VBA)
ベストアンサー
9
0
-
webで賞で送る場合、パソコンの見え方とスマホの見え方が違い,見え方が縦書きが横書きになっていても仕
webで賞で送る場合、パソコンの見え方とスマホの見え方が違い,見え方が縦書きが横書きになっていても仕方ないですよね?スマホの仕様ですから。
質問日時: 2024/03/20 16:26 質問者: まいこさん_2975 カテゴリ: Word(ワード)
解決済
9
1
-
昔のパソコン少年の武勇伝「店先のパソコンでゲームを作成し、それを売り、その金でパソコンを買う」本当?
パソコンがまだ高根の花で、オフィスでも一部でしか導入されず、個人所有に至っては 相当マニアックな人や高偏差値大学の理工系学部の学生しか持っていないような時代の話です。 パソコン少年の武勇伝としてこんな話を聞きました。 *** 上記のようなパソコン黎明期、パソコンが金持ちやインテリのホビーとして使われていた時代、 秋葉原の電気店やパソコンメーカーのショウルームのパソコン売り場に置いてある ”店頭展示品のパソコン”に毎日のように通いつめ、プログラミングをして、その場でBASIC言語でゲームを作ってしまう少年たちがいた。 彼らは作ったゲームのプログラムリストをパソコン店に売り、パソコン店はそれを商品化して 自社ソフトとして売っていた。パソコン少年はその対価として小遣い程度の報酬をもらっていた。 そういったパソコンゲーム作成少年の中にはそうやって得た報酬を貯めこんで、 ついには自分でパソコンを購入する剛の者さえ現れた *** これって本当でしょうか? パソコンホビー黎明期に、自作のゲームプログラムをパソコン雑誌に送って、原稿料や賞金を得た、という話は聞いたことがありますが、 「パソコン屋に売って、報酬を得て、 さらにはそれを繰り返して 遂に自分でパソコンを買うまでに至った」 という話は聞いたことがありません。 こういったプログラマ少年(高専生、大学生なども含む)たちが、ゲームプログラムコンテストで得た賞金でパソコンを買った、という話は聞いたことがありますが、パソコン屋にゲームソフトを売って、その金でパソコンを買うにはいったいどれほどの量のゲームプログラムを作ったことでしょうか? 買い取る側のパソコン屋にしても、渡す金はせいぜい数千円だったでしょう(どうせ少年たちだから報酬の多寡を巡って訴訟沙汰になることもないでしょうから、体のいい労働力としてしか見ていなかったでしょうし) この話の真偽を知っている方、ご回答お願いします。
質問日時: 2024/03/07 18:52 質問者: s_end カテゴリ: その他(プログラミング・Web制作)
解決済
9
0
-
【マクロ】for next構文について
以下のマクロをご覧ください -Excel-Excel-Excel が答えとなります B = B & "-" & "Excel" ←この処理を3回 実施した結果かとは思います B & の部分が分かりません。 ●B=Bなら分かりますが、B = B & "-" & "Excel" がなぜ、イコールになるのか? ●B & の部分を削除すれば良いですが、-Excel-Excel-Excel の結果は出ません コードの意味が分かるかた教えて下さい 宜しくお願いします 【コード】 Sub B() Dim i As Long, B As String For i = 1 To 3 B = B & "-" & "Excel" Next i MsgBox B End Sub
質問日時: 2024/06/21 08:49 質問者: aoyama-reiko カテゴリ: Excel(エクセル)
ベストアンサー
9
0
-
一年保証のノートパソコンのSSDを換装したら保証は使えなくなりますが、これって元々入っていたSSDを
一年保証のノートパソコンのSSDを換装したら保証は使えなくなりますが、これって元々入っていたSSDをまた中に入れたらバレないですよね?
質問日時: 2023/07/22 15:44 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
9
0
-
PDFページを Word または Excel に張り付け
PDFページを Word または Excel に張り付けることはできますか。
質問日時: 2023/01/10 20:32 質問者: ahkrkr カテゴリ: その他(Microsoft Office)
ベストアンサー
9
1
-
ただ動画と動画を結合できればいいのですが、無料のソフトはありますか
ただ動画と動画を結合できればいいのですが、無料のソフトはありますか
質問日時: 2023/11/04 08:19 質問者: pogi2415 カテゴリ: 画像編集・動画編集・音楽編集
ベストアンサー
9
0
-
パソコンで、残暑見舞いのハガキ作成するのは、難しいですか
パソコンで、残暑見舞いのハガキ作成するのは、難しいですか
質問日時: 2023/04/10 19:34 質問者: 犬23 カテゴリ: 年賀状作成・はがき作成
解決済
9
0
-
Windows11にしてもWindows10のときのクローンディスクを作っておけば11から10にいつ
Windows11にしてもWindows10のときのクローンディスクを作っておけば11から10にいつでも戻せると思うのですが? それともライセンス認証で戻せなくなるのでしょうか もし戻して動かないときは、新たに10のプロダクトキーを購入すれば動かせるでしょうか ご存知の方がおりましたら教えて下さい。 どうぞ宜しくお願い致します
質問日時: 2023/04/09 18:57 質問者: daruma3 カテゴリ: Windows 10
解決済
9
0
-
デスクトップはバッテリーがないので不便なのでノートパソコンを買い、災害時に持ち運びやすくするためにノ
デスクトップはバッテリーがないので不便なのでノートパソコンを買い、災害時に持ち運びやすくするためにノートパソコンは13.3インチや14インチのものを買って、大きな画面が必要な時はノートパソコンをモニターに接続するという使い方がパソコンの一番賢い使い方なのですか?
質問日時: 2023/10/28 09:57 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
9
0
-
Excelでこんなことはできないでしょうか?
社員全員に全く同じ内容の表を送りますが、全員の名前を1枚ずつに入れて印刷したいです。 その場合、100名いたらやはり100個表をコピペして作って名前を入力していくしかないでしょうか??
質問日時: 2022/09/24 10:07 質問者: bluerestaurant カテゴリ: Excel(エクセル)
解決済
9
0
-
グリコが「システム障害」で大変な事に成ってますが
是は、人間に「システム設計」をやらせるから、こんな大失敗に成ったのですよね? 何故かと言うと、人間は「必ず間違う」からです。では、どうするか? 人間より、はるかに間違いが少ないAIにシステム設計をやらせるべきですよね?
ベストアンサー
9
2
-
windows11でクイックスキャン等ができない件については
最近windows11を使い始めたのですが、MicrosoftDefenderのクイックスキャンを実行しようとしたら「ページを使用できません。このアプリの一部の領域へのアクセスはIT管理者によって制限されています。アクセスしようとした項目は利用できません。詳細についてはITヘルプデスクに問い合わせください」と表示されました。スキャン以外でも同様のポップアップがでることもあります。アカウントの種類は管理者、開催者となっておりソフトのインストールなどは問題なくできています。工場出荷時の状態にもどす以外どうしようもないでしょうか?
ベストアンサー
9
0
-
エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい
EXCELマクロ初心者です。 マスターシート(Sheet1)にある表が「シート分け」ボタンを押されると 「名前」列(A列)にある名前ごとにシート分けし、そのシート分けしたものに「野菜」列を表示する処理を追加思っています。 [名前] [野菜] 佐藤 だいこん 井上 レタス 佐藤 にんじん これがマスターシートの場合は [佐藤]というシートが作成され、作成されたシートのA1には「だいこん」、A2には「にんじん」と表示されるようにしたいです。 色々検索をし、 ①マスターシートをフィルタ掛けする(AutoFilter処理) ②フィルタ掛けした結果のA列セルの名前を新しいシートに作成(Worksheets.Add処理) ③フィルタ掛けした結果を操作する(SpecialCell処理) ④フィルタ掛けした結果のB列を対象分(A1~個数分)を対象のシートのセルにA行に書き込む このようにすればうまくいきそうな気はするのですが、最後の④の処理以降つまづいてしまっています。 そもそもの①からのやり方がよくないからうまくいかないのか、④の構文が間違っているからうまくいかないのかでお手上げ状態です。 For I = 1 To xCol.Count Call Worksheets(Sheet1).Range("A1:B1").AutoFilter(1, CStr(xCol.Item(I))) '変数「xNSht」を初期化 Set xNSht = Nothing '変数「xNSht」にそれぞれのワークシート名を入れる(佐藤,井上) Set xNSht = Worksheets(CStr(xCol.Item(I))) 'シートが見つからない場合 If xNSht Is Nothing Then '新しくシートを挿入 Set xNSht = Worksheets.Add(, Sheets(Sheets.Count)) '新しくできたシート名を「Sheet1」のA2以降のセルの名前にする xNSht.Name = CStr(xCol.Item(I)) 'すでにシートがある場合 Else '一番後ろのシート後方に移動する xNSht.Move , Sheets(Sheets.Count) End If '絞り込んだセルの行のみ操作 Dim rowCounttest As Integer With xNSht.Range("A1").CurrentRegion '見出しを除いて表示している行をループ For Each a In .Resize(.Rows.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).Rows rowCounttest = 1 Range("A" & rowCounttest).Value = a.Cells(1, 2) Next End With Next 一部変数の宣言部分などは省略をしていますが、①~④の処理はこのように入力しています。 '絞り込んだセルの行のみ操作 部分が何か間違っているような感じもするのですが、お力添えいただければと思います。 よろしくお願いいたします。
質問日時: 2022/08/24 13:23 質問者: doborn カテゴリ: Visual Basic(VBA)
ベストアンサー
9
0
-
無料でMP4動画をBluRayレコーダーで再生できるように変換するソフトはありませんか? みつけたと
無料でMP4動画をBluRayレコーダーで再生できるように変換するソフトはありませんか? みつけたとおもったら変換すると真ん中にロゴが出たりとつかえないのでほかに何かあれば教えていただけませんでしょうか。 また有料でも安く手に入るソフトがあればそちらも教えてください。
質問日時: 2023/02/22 08:15 質問者: kazukish0918 カテゴリ: 画像編集・動画編集・音楽編集
ベストアンサー
9
0
-
VBAで、シート間の転記するコードをFOR~NEXTで教えてください。
シート間の転記VBAのコードを記載中ですが、このコードではエラーも出ず、全く転記できません。下記の内容でどのようにコードを修正すれば、転記できますでしょうか?ご教授の方お願いします。 【やりたい事】 ・A.xlsmにAシート、Bシートがあります。 下記①~⑧の内容で、AシートからBシートに転記します。 ①Aシートの1列目と、Bシート4列目が同じ場合 ②かつAシートの7列目、および8列目に何も記載がない場合 ③Bシート6列目の数量に合う個数まで ④下記を転記 ・Aシートの3列目のデータを、Bシートの10列目へ転記 ・Aシートの4列目のデータを、Bシートの11列目へ転記 ⑤Aシートの1列目と、Bシート4列目が同じ場合 ⑥かつAシートの7列目、および8列目に何も記載がない場合 ⑦下記を転記 Aシートの4列目各車種名毎に、それぞれ最大4つのデータを、 ④で転記した続きの製造NOを、予備としてAシートから下記を転記 ・Aシートの3列目のデータを、Bシートの10列目へ転記 ・Aシートの4列目のデータを、Bシートの11列目へ転記 ⑧Aシートの1列目と、Bシート4列目が同じ場合 ⑨かつAシートの7列目、および8列目に何も記載がない場合 ⑩かつBシートの4列目に、同じ車種名があり、3列目に行先が違う物がある場合 ⑦で転記した続きの製造NOを、予備としてAシートから下記を転記 ・Aシートの3列目のデータを、Bシートの10列目へ転記 ・Aシートの4列目のデータを、Bシートの11列目へ転記 ⑪AシートのG列またはH列に"○"がある場合⑩ ⑩で転記した続きの製造NOを、×としてAシートから下記を転記 ・Aシートの3列目のデータを、Bシートの10列目へ転記 ・Aシートの4列目のデータを、Bシートの11列目へ転記 【VBAコードの書きかけ途中の物】 Sub TENNKI() Dim lastRowA As Long Dim lastRowB As Long Dim i As Long Dim j As Long Dim k As Long Dim 車種名 As String Dim orderNo As String Dim quantity As Long Dim maxCount As Long Dim rowCount As Long Dim count As Long lastRowA = Sheets("A").Cells(Rows.count, 1).End(xlUp).Row lastRowB = Sheets("B").Cells(Rows.count, 4).End(xlUp).Row For i = 5 To lastRowA 車種名 = Sheets("A").Cells(i, 1).Value For j = 1 To 4 rowCount = 0 count = 0 For k = 5 To lastRowB If Sheets("B").Cells(k, 4).Value = 車種名 Then rowCount = rowCount + 1 If Sheets("B").Cells(k, 8).Value <> "" Then quantity = Sheets("B").Cells(k, 8).Value End If End If Next If count >= quantity Or rowCount = 0 Then Exit For End If If Sheets("A").Cells(i, 1).Value = Sheets("B").Cells(k, 4).Value _ And Sheets("A").Cells(i, 7).Value = "" _ And Sheets("A").Cells(i, 8).Value = "" Then Sheets("B").Cells(k, 10).Value = Sheets("A").Cells(i, 3).Value Sheets("B").Cells(k, 11).Value = Sheets("A").Cells(i, 4).Value count = count + 1 End If Next End Sub すみませんが、よろしくお願いいたします。
質問日時: 2023/04/30 20:04 質問者: qazwsx7410 カテゴリ: Visual Basic(VBA)
ベストアンサー
9
2
-
手持ちのパソコンに、Windows11を購入してインストールする予定です。もしこのパソコンが壊れて、
手持ちのパソコンに、Windows11を購入してインストールする予定です。もしこのパソコンが壊れて、例えばWindows10の中古を購入すると、前のパソコン用に購入したWindows11は再度使用出来るのでしょうか?もちろん2台並行して使うことはありません。よろしくお願い申し上げます。
ベストアンサー
9
0
-
Windows 7 のパソコンをどうやって使えばいいでしょうか?
こんばんは。 先日、質問させていただきましたが、 私の知人にWindows7 に無料avast! を入れてネット接続してるお友達がいるのですが セキュリティー的に問題がある 無料avast! にはファイアーウォール機能がないのでダメということで 無料でWindows 10 Windows 11 にはできないということですよね。 以前、教えていただいたのはライセンスキーをヤフオクでダメもとで購入してみるか・・・ という感じでしょうか・・・ でもヤフーショッピングやAmazon を見てると古いパソコンにWindows 11 を入れて販売 してますよね?これは中古用のライセンスを持ってるショップなのでしょうか? メルカリの個人出品でも、こういう商品が多いと思うのですが、どうやってWindows 11 に してるのかなあ・・・ ヤフオクでライセンスキー探してみようかなあ・・・ あと教えていただいたのはLinux で仮想Windows 7 を動作させるということですが、 Windows 7 のライセンスキーってわからないですよね?
質問日時: 2023/10/31 23:31 質問者: Love_neko_2023 カテゴリ: Windows 7
解決済
9
1
-
行政文書を、フロッピーで渡しますと、役所から言われてるんですが、フロッピーなんていま見れますか?ネカ
行政文書を、フロッピーで渡しますと、役所から言われてるんですが、フロッピーなんていま見れますか?ネカフェなどなら見れるんですかね。
質問日時: 2023/10/23 14:41 質問者: ぼくちんさあ カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
9
0
-
Windows10でネットやソフトが重くなって来たのでメモリ解放をしようとPC Managerていう
Windows10でネットやソフトが重くなって来たのでメモリ解放をしようとPC Managerていうソフトを知ってインストール、起動したのですが起動してしばらくして強制終了してしまいます。 ネットで調べてアプリの「修復」「リセット」、再インストールとしたのですが直りませんでした。 直し方わかる方お願いします。
質問日時: 2024/05/24 23:02 質問者: ken555555 カテゴリ: Windows 10
解決済
9
0
-
今朝の出来事です。私は職場に遅刻してしまいました。今回で5回目です。ついに上司に怒られてしまいました
今朝の出来事です。私は職場に遅刻してしまいました。今回で5回目です。ついに上司に怒られてしまいました(今までは次は気をつけてねくらいでした)。 しかし怒られただけでなく「お前の遅刻はぶっ弛んでる証拠だ!これで怒鳴ればパワハラになんだろ?これだからゆとりとZは嫌いだ」と差別的なことを言われて肩を強く押されました。 パワーハラスメントを受けてしまいました。午後に早退して通報しようと思います。確かに遅刻した私も悪いですが手を出したり「ゆとり世代」など差別用語を使うのは絶対にいけないことだと思いませんか?
質問日時: 2023/12/02 08:45 質問者: けいしんたろう カテゴリ: その他(セキュリティ)
解決済
9
0
-
会社でMacを使っているところが少ないのはなぜでしょうか
やはりソフトが対応していないのが多いからでしょうか
解決済
9
0
-
有名でないメーカーのドライバーを使うとネジ穴がぐちゃぐちゃになったりドライバーの先がぐちゃぐちゃにな
有名でないメーカーのドライバーを使うとネジ穴がぐちゃぐちゃになったりドライバーの先がぐちゃぐちゃになったりしやすいって本当ですか? ベッセル、トネ、京都機械工具、 wera、アネックスとかのを使うべきなのですか?
質問日時: 2023/11/14 20:47 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
9
1
-
追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し
追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記しています。今回、図にあるJ列のコードもA列へ追記したいのですがどう記述したら良いかわかりません。助けてください。 Dim I, L, lRow, mRow As Long Dim CheckCells As Range With ActiveSheet lRow = .Cells(Rows.Count, "E").End(xlUp).Row 'A列の最終行を取得します。(元データ) mRow = .Cells(Rows.Count, "K").End(xlUp).Row 'K列の最終行を取得します。(追記対象データ) L = lRow + 1 '追記行を求める(E列最終行+1) For I = 2 To mRow '追記対象データ分繰り返す(最終行まで) Set CheckCells = .Range("E:E").Find(.Cells(I, "K")) 'E列全てに対してN列の追記対象データを1件ずつ照合する。 If CheckCells Is Nothing Then 'データが無ければ追記対象データをE列の最終行に追記します .Cells(L, "E") = .Cells(I, "K") L = L + 1 'E列の追記行に+1を加算する。 End If Next I End With
質問日時: 2022/10/05 10:50 質問者: momo_2123 カテゴリ: Visual Basic(VBA)
ベストアンサー
9
0
-
windws10 起動しないのでセーフモードで立ち上げようとしたが失敗
長らく使っていなかったWindows10を使おうとしたら起動しない。 ロゴマークが出て、F2とF12を選択する画面が出ては消え、しばらくすると同じ画面が何度も繰り返される。 まともに立ち上がっていないのならセーフモードで立ち上げようと電源OFF後に再度ONにしてF8を連打もしくは押しっぱなししたが、先ほどの画面の繰り返し、さらにF11でも試みたが失敗。 何とか、起動させたいが何か方法がありませんか? F2とF8は既定通り必要な画面が出て選択もできますが、ここから起動させることができるなら試してみたいです。
質問日時: 2024/05/19 18:28 質問者: atyaa カテゴリ: Windows 10
解決済
9
0
-
MP4動画をISOに変換
初心者質問ですいません。 MP4動画を、ISOに変換できますでしょうか? ImgBurnというソフト使用しましたが、ISO変換できましたが、 マウントすると、中にMP4動画が入ってるだけでした。 他にありましたらよろしくお願いします。
質問日時: 2023/06/12 18:20 質問者: ankorogd カテゴリ: 画像編集・動画編集・音楽編集
解決済
9
0
-
Windows7でMicrosoft VirtualPC2007 SP1を使用する
Windows7がVirtualPC 2007をサポートしていないことを承知で使い続けています。 ここに来て,PCを新しくしてWindows7 SP1とWindows10のデュアルブートにして,Windows7にVirtualPC 2007 SP1をインストールし,旧PCのバーチャルマシン(Windows 98SE)をコピーして起動したところ,「invalid disk」のエラーメッセージが出て,起動しません。 今まで,いくつかのPCで,このやり方でバーチャルマシンを使用してきました。 コピー元のバーチャルマシンもWindows7上のCドライブにあり,フォルダ構成も同じです。 当方,Windows以前のMS-Dosを使用する必用があり,それにはWindows 98SEのDosモードが最適なのです。 なお,他のWindows XPやMS-Dosのバーチャルマシンも軌道の途中で止まります。 どなたか,よく似た環境でVirtualPC 2007を使用している方がおられましたら,ご教示下さいませんか? 新しい環境は以下の通りです。 PC:Lenovo ThinkPad e450 OS:Windows7とWindows10のデュアルブート。CドライブにWindows7。 メモリ:16G
ベストアンサー
9
0
-
社会人なら入れておいて困らないおすすめアプリを教えてください。
社会人なら入れておいて困らないおすすめアプリを教えてください。
解決済
9
0
-
EXCEL AVEREGE関数について
EXCEL 表の上部に行を追加すると、AVEREGE関数の範囲がずれて正確な値が求められない。
質問日時: 2023/08/13 12:27 質問者: ymhirokazuym カテゴリ: Excel(エクセル)
ベストアンサー
9
0
-
ペイントで丸くトリミングして保存って出来ないのでしょうか?
ペイントのアプリで一部分を丸くトリミングして、その丸い部分だけを保存したいのですが、出来ませんでしょうか? 調べたところそういった事を説明しているサイトがどうしても見つからなくて…。 丸くトリミングする方法についてのサイトは出てきましたが、それを実行して保存してデータを開いてみても、白い四角のキャンバスに丸い絵が貼ってあるような状態でした。これでは例えばその画像を何かに張り付けても周りの白い四角の部分も一緒に貼られてしまいます…。トリミングした丸い部分だけの絵をデータとして残したいのですが出来ないでしょうか?
質問日時: 2022/10/03 14:18 質問者: ももの2022 カテゴリ: Photoshop(フォトショップ)
ベストアンサー
9
0
あなたの趣味に関するQ&Aを探してみてください!
おすすめ情報