第1弾は趣味Q&A!
コンピューター・テクノロジーのQ&A
回答数
気になる
-
こんなことてしますか??
おもいつきで書いてみました。こういうことをすることはありますか?? すごい無駄ですか??
質問日時: 2024/03/28 23:26 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
2
0
-
どちのほうがすきですか?
私の書いた def fizzBuzz(self, n: int) -> List[str]: res = [] for i in range(1, n + 1): s = '' if i % 3 == 0: s += 'Fizz' if i % 5 == 0: s += 'Buzz' if not s: s += str(i) res.append(s) return res いちばんはやいひとの def fizzBuzz(self, n: int) -> List[str]: fb_list = [] for i in range(1, n+1): if (i % 15 == 0): fb_list.append("FizzBuzz") elif (i % 3 == 0): fb_list.append("Fizz") elif (i % 5 == 0): fb_list.append("Buzz") else: fb_list.append(str(i)) return fb_list たぶんstrの操作って計算コスト大きいて思うし if, elif, else の塊にまとめたほうが各iで入るのは一この条件だけなのでそっちのほうがはやいとおもいましたけど、どっちがよきですか?? int nにたいしてindex n に FizzBuzzを格納している配列を返す問題です。
質問日時: 2024/03/28 22:38 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
解決済
8
0
-
息子は中学1年軽度知的障害があります。勉強は同じ内容を学校をしています。語彙力やコミュニケーション力
息子は中学1年軽度知的障害があります。勉強は同じ内容を学校をしています。語彙力やコミュニケーション力が小3しかありません。イメージする力が弱くあります。パソコンが好きでタイピングはすばねけてうまく正確性もあります。パソコン自宅にあるのでソフトで言葉や文章力をあげるソフト購入を考えています。言葉を調べると画像とか動画でわかりやすくイメージしやすいのあると本人助かると思います。ご存知の方アドバイスお願いします。
質問日時: 2024/03/28 17:15 質問者: つばさこう カテゴリ: 教育ソフト・学習ソフト
解決済
3
0
-
SMS認証が10年くらい前から普及したのはなぜですか? ログインに使用してるスマホが使えなくて、代わ
SMS認証が10年くらい前から普及したのはなぜですか? ログインに使用してるスマホが使えなくて、代わりのスマホでログインしようとするとSMS認証で詰みました。 携帯番号とパスワードでは信用しない時代なんですか? ガラケーの時代はそんなのがなくて、あったとしても私は1つも経験した事はありません。 他人に見られないように打てばいいだけなのに。仕事とかで本当にそのアプリが必要の時とか不便ですが。
質問日時: 2024/03/28 16:51 質問者: gchcgnqchcc カテゴリ: その他(セキュリティ)
ベストアンサー
6
0
-
Apple careに加入しているMacBookが塗装ハゲや、傷があれば、、安く交換してくれますか?
Apple careに加入しているMacBookが塗装ハゲや、傷があれば、、安く交換してくれますか? その場合、何という項目での修理対象になり、価格はいくらになりますか?
質問日時: 2024/03/28 16:10 質問者: ka.ttjttwwwww カテゴリ: Mac OS
解決済
2
0
-
ExcelのVBAコードについて教えてください。
下記のコードを一つにまとめる方法を教えてください。 下記のコードはセル値「F3」に「札幌市」と表示されると マクロ Call 注意2表示 Call 札幌道路図形表示 Call 札幌開発資料図形表示 Call 札幌資料図形表示 が実行されます。 このコードを一つにまとめる方法を教えてください。 現状のコード If Range("F3").Value = "札幌市" Then Call 注意2表示 End If If Range("F3").Value = "札幌市" Then Call 札幌道路図形表示 End If If Range("F3").Value = "札幌市" Then Call 札幌開発資料図形表示 End If If Range("F3").Value = "札幌市" Then Call 札幌資料図形表示 End If 以上となります。 よろしくお願いいたします。
質問日時: 2024/03/28 13:38 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Word VBA MSGBOX 内で降順表示
下記のVBAはWORDファイル内の青文字で書かれた登録日を検索し、MSGBOXに表示するもので、正常に使えています。 しかし、MSGBOX内の表示がファイル内での順番になっています。昇順または降順表示にしたいのですが、 ネット検索してトライしましたが結果が得られていません。ご指導いただければ大変たすかります。よろしくお願いします。 Sub TEST() '検索 青文字「ABC」+ 日付 Dim vv As Variant Dim i As Integer i = 0 ReDim vv(i) ActiveDocument.Range(0, 0).Select With Selection.Find .Font.Color = wdColorBlue .Text = "登録日 202[0-9]/[0-9]{1,2}/[0-9]{1,2}" .MatchFuzzy = False .MatchWildcards = True Do While Selection.Find.Execute vv(i) = Selection i = i + 1: ReDim Preserve vv(i) Loop End With MsgBox "登録日" + vbCrLf + vbCrLf + Join(vv, vbCrLf) End Sub
質問日時: 2024/03/28 13:12 質問者: oldhidesan カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
AmazonでMacBookを買ってパスワードがわからない時はどうしたら良いですか?
AmazonでMacBookを買ってパスワードがわからない時はどうしたら良いですか?
ベストアンサー
3
1
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると 指定フォルダ内の指定ファイルを開く事が出来ますが、 マクロを実行すると、PDFファイルが、Excelシートの呼び込みされてしまします。 マクロを実行した時に、PDFそのままの状態で開く事が出来る方法を教えてください。 現状のマクロ Sub 道路資料を開く() Dim alert As VbMsgBoxResult alert = MsgBox("道路確認照会確認をしますか?", vbYesNo + vbQuestion, "道路確認") If alert <> vbYes Then Exit Sub End If On Error Resume Next Workbooks.Open Filename:=" \\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\資料\道路開発照会資料\道路照会の要否.pdf" End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/03/28 12:00 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
エクセル関数について
左の表から空白の行を除き右の表のようにしたいのですがフィルタ機能を使うと一つづつフィルターがかかってしまいうまくいきません。 そこで関数を使い例えばB列からE列まで全て空白ならF列に特別な表示(例えばデータなし等)をするようなことはできませんでしょうか? そうすればフィルターで排除できると思うのですが・・・ どなたかお知恵を貸してください。
質問日時: 2024/03/28 12:20 質問者: hs2425262008 カテゴリ: その他(Microsoft Office)
ベストアンサー
4
0
-
Word・Excel→PDF の際、画像のみ90度回転してしまう
画像を張り付けたWordやExcelをPDF化する際、画像のみ90度回転してしまう現象を何度も経験しています。(画像以外の情報は回転しません) 時期は20年くらい前から、OSやPDF化ソフト、Officeのバージョンも様々です。 これはどうしたら防げるのでしょう? 毎回必ず起きるわけではなく忘れた頃に起こり、しかも大抵急いでいる時なので慌てます。 どうぞよろしくお願い致します。
解決済
2
0
-
i Tune でCDからハードディスクにダビングする方法
お世話になります。 i Tuneを介して、CDに入っている音楽から、パソコンのハードディスクにダビングする方法を教えてください。 よろしくお願いします。
質問日時: 2024/03/28 08:26 質問者: aytensi カテゴリ: その他(ソフトウェア)
ベストアンサー
2
0
-
会社で使用しているUSB(Trend Micro USB Security搭載)を個人Pcに挿すと管
会社で使用しているUSB(Trend Micro USB Security搭載)を個人Pcに挿すと管理者に通知が行ったりしてバレるのでしょうか。 普段会社端末にUSBを挿すとパスワードが求められるUSBですが、USB自体に通知される機能等は設定出来ないと思いますが認識合っておりますでしょうか。
質問日時: 2024/03/28 07:29 質問者: scriptxx66 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
6
0
-
この前掃除してたら、5.6年くらい前に買ったpsvitaが出てきました。 見つけた場所はベットの下に
この前掃除してたら、5.6年くらい前に買ったpsvitaが出てきました。 見つけた場所はベットの下にあって、調べた感じ錆びやすい環境だと書いていて、中の基盤は素人目だと特に錆びてない感じなのでどなたか見てもらえないでしょうか。 画質悪くてすいません
質問日時: 2024/03/28 00:29 質問者: 笠間 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
1
0
-
googelスプレッドシートをダウンロードした場合
ファイルを.xlsx形式でダウンロードしてメール等に添付した場合ですが、作ったファイルにはあったチェックボックスが表示されなくなります。Falseと表示されます。それはそういう仕様でしょうか? 理由があってファイルを共有できないためダウンロードする必要があるのですが、チェックボックスを表示させることが可能な方法をご存じの方教えて下さい。
質問日時: 2024/03/27 15:56 質問者: cafesweets カテゴリ: ソフトウェア
解決済
3
0
-
エクセルのマクロについて教えてください。
下記のマクロは以前教えて頂いたマクロで、マクロを実行すると、指定フォルダ内に指定セル値にて 保存されますが、 その時に指定の非表示シート 「List = Array("休日", "受付", "管理表", "300")」 が削除されますが、この部分の非表示シートを全て削除しないように変更出来る方法を教えてください。 現状のマクロ Sub 行政報告標準() Dim alert As VbMsgBoxResult alert = MsgBox("行政報告を保存します。", vbYesNo + vbQuestion, "行政報告確認") If alert <> vbYes Then Exit Sub End If Application.ScreenUpdating = False Dim folder As String folder = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\" & Worksheets("選択シート").Range("E4").Text & " 【担当】確認番号 建物名称\" & Worksheets("選択シート").Range("E3").Text & "\" Dim initName As String initName = folder & Worksheets("【標準】第1号様式").Range("Z1").Value Dim newName As String newName = initName & ".xlsm" Dim thisBk As Workbook Dim copyBk As Workbook Set thisBk = ActiveWorkbook ThisWorkbook.SaveCopyAs newName Set copyBk = Workbooks.Open(newName) Dim ws As Worksheet Dim TargetCheck As String Dim List As Variant Dim i As Long Dim Chk As Boolean List = Array("休日", "受付", "管理表", "300") For Each ws In copyBk.Worksheets Chk = False If ws.Visible = False Then For i = 0 To UBound(List) If ws.Name = List(i) Then Chk = True Exit For End If Next i If Chk = False Then TargetCheck = TargetCheck & ws.Name & vbCrLf Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If End If Next ws copyBk.Close SaveChanges:=True Application.ScreenUpdating = True End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/03/27 14:27 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
UNIQUE関数が使えないバージョンで重複削除したい。
UNIQUE関数以外の方法で重複を削除したい。 「データ」の「重複削除」ではなく、可変的に更新されるリスト内の重複削除を関数で実現したい。 ぜひExcel関数に詳しい方、ご教示願います。 どうぞ宜しくお願い致します。 画像のシートで、I7~I31に入る「名前」のリストを重複削除した状態で「C18~C33」に表示させたい。 黒枠内は他のデータが入っています。 それ以外の枠は作業用として利用可能です。 宜しくお願い致します。
質問日時: 2024/03/27 15:20 質問者: niioka-k カテゴリ: Excel(エクセル)
ベストアンサー
1
0
-
パソコンのウイルス対策
ウイルスにやられると結局どういう事が起こるんですか? 例えば完全に動画をみるためだけのパソコンであればなにかが起こってもパソコンが壊れるだけってことですか?
質問日時: 2024/03/27 12:04 質問者: キテネ カテゴリ: マルウェア・コンピュータウイルス
解決済
11
0
-
パソコン初期化すればある程度動く?
10年くらい使ってて、システムの不具合かなんかで起動にすごい時間かかって修復してたりする 初期化してもHuluみるくらいには使えるようにならないかなぁ
質問日時: 2024/03/27 12:00 質問者: キテネ カテゴリ: Windows 10
解決済
2
0
-
Sub 要具ライフ() ActiveSheet.Cells.Find(what:="TOPゴム").
Sub 要具ライフ() ActiveSheet.Cells.Find(what:="TOPゴム").offset(0,3) = ActiveSheet.Next.Cells.Find(what:="TOPゴム").Offset(0, 3).Value + 1 End Sub 上記のコードで、選択している隣のシート中にある特定の文字の下のセル内の数値に加算した値を選択しているシート中の同じ文字の下のセルに入れたいのですが実行できません。 シートを新しく作った時、隣のシートの行数が挿入するなどで変更される場合があるため行位置が一定でありません。よって、特定の文字のセル位置から出力するセルを探したいです。 どなたか、教えていただけないでしょうか?
質問日時: 2024/03/27 11:57 質問者: かなもゆ カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
エクセルに詳しい方教えて下さい! 以下の画像のデータ入力表の内容を運行日報平日に反映させたいです。
エクセルに詳しい方教えて下さい! 以下の画像のデータ入力表の内容を運行日報平日に反映させたいです。 運行日報平日の日付と一致する列のデータを反映させる方法を教えて下さい。
質問日時: 2024/03/26 20:10 質問者: 山の里天の声 カテゴリ: Excel(エクセル)
ベストアンサー
1
0
-
SSDをフォーマットしたら、そのSSDのファームウェアは消えてしまうのでしょうか?
SSDをフォーマットしたら、そのSSDのファームウェアは消えてしまうのでしょうか?
質問日時: 2024/03/26 17:53 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
3
1
-
SSDのファームウェアはNANDフラッシュメモリに保存されているのでしょうか?
SSDのファームウェアはNANDフラッシュメモリに保存されているのでしょうか?
質問日時: 2024/03/26 17:49 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
4
0
-
Excelについて質問です。 表の上部1.2.3列aからafまでをウインドウ枠の固定で固定しました。
Excelについて質問です。 表の上部1.2.3列aからafまでをウインドウ枠の固定で固定しました。 表の下部120列から下も固定したいのですがどうすればいいですか??
質問日時: 2024/03/26 16:59 質問者: 山の里天の声 カテゴリ: Excel(エクセル)
ベストアンサー
1
0
-
CSSデータの作成方法について(FTP内)
専門の方にショップページを作成していただき、その後ちょっとしたページのレイアウト編集は、自力でしております。 FTP内に、CSSデータが組み込まれていますが、一部デザインの色を変更したいと考えております。 FTPをのぞいてみると、CSSファイルがあったのですが、そちらはメモ帳で開くことができました。 メモ帳でCSSデータを作成することは可能でしょうか。 ファイル名は「カスケードスタイルシートドキュメント」と記載されています。 どうぞ、よろしくお願いいたします。
ベストアンサー
5
0
-
VBA listBoxについて
動作としてはTextBox1に検索対象(管理№例100053)を入力(完全一致ではなく一部入力でも)該当する№がリストボックスに表示します 表示したリストから該当の№をクリックしたらsheet1のB列にカーソルが移動した対象を確認、 その№行の指定したセルに転記させるというながれになります 検索対象の桁数があるので下桁でも表示はするのですが クリックしてカーソルがその対象とは違うところに移動してしまいます 問題なく動くときは頭の1桁検索しスクロールで対象をクリックした時になります 現状はこのようになってます どのようにしたら改善するのでしょうか?(´;ω;`) Private Sub TextBox1_Change() ' TextBox入力した時の処理 Dim i As Long Dim Mydata As Variant Dim lastRow As Long Dim Cnt As Long Dim searchTerm As String Dim listBoxIndex As Integer ' 配列カウント初期化 Cnt = 1 ' 最終行を取得 lastRow = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, 2).End(xlUp).Row ' 2次元配列の要素数を変更 ReDim Mydata(1 To lastRow, 1 To 20) ' 検索対象が空の場合は処理を終了 searchTerm = Me.TextBox1.text If Len(searchTerm) = 0 Then Exit Sub For i = 1 To lastRow If InStr(1, Sheets("Sheet1").Cells(i, 2), searchTerm) > 0 Then ' 配列に列の値と、セル番号を格納 Mydata(Cnt, 1) = i + 1 Mydata(Cnt, 2) = Cells(i, 2) Mydata(Cnt, 3) = Cells(i, 3) Mydata(Cnt, 4) = Cells(i, 4) Mydata(Cnt, 5) = Cells(i, 5) Mydata(Cnt, 6) = Cells(i, 6) Mydata(Cnt, 7) = Cells(i, 7) Mydata(Cnt, 8) = Cells(i, 8) Mydata(Cnt, 9) = Cells(i, 9) Mydata(Cnt, 10) = Cells(i, 10) Mydata(Cnt, 11) = Cells(i, 11) Mydata(Cnt, 12) = Cells(i, 12) Mydata(Cnt, 13) = Cells(i, 13) Mydata(Cnt, 14) = Cells(i, 14) Mydata(Cnt, 15) = Cells(i, 15) Mydata(Cnt, 16) = Cells(i, 16) Mydata(Cnt, 17) = Cells(i, 17) Mydata(Cnt, 18) = Cells(i, 18) Mydata(Cnt, 19) = Cells(i, 19) Mydata(Cnt, 20) = Cells(i, 20) ' 他の列のデータも同様に追加 ' ... ' 配列カウント増加 Cnt = Cnt + 1 End If Next i ' 検索で一致したデータをリストボックスに表示 With ListBox1 .ColumnCount = 20 .ColumnWidths = "30;55;40;0;150;90;130;130;0;0;60;150;0;0;0;0;120,60,130,30" .List = Mydata End With End Sub Private Sub ListBox1_Click() ' リストボックス内をクリックして該当セルを選択 Dim rowIndex As Integer Dim targetCell As Range ' 選択された項目の行番号を取得 rowIndex = ListBox1.ListIndex + 2 ' 対応するセルを選択 Set targetCell = Sheets("Sheet1").Cells(rowIndex, 2) targetCell.Select End Sub Private Sub CommandButton1_Click() Dim selectedRow As Integer Dim r As Integer If Me.ComboBox6 = "" Then MsgBox "管理場所が入力されてません" Exit Sub End If If Me.ComboBox7 = "" Then MsgBox "担当者が入力されてません" Exit Sub End If ' リストボックス内で選択された行のインデックスを取得 selectedRow = ListBox1.ListIndex For r = 2 To Cells(Rows.Count, "B").End(xlUp).Row If ListBox1.ListIndex = r - 2 Then ' 選択された行が有効かどうかを確認 ' 選択された行に基づいてデータを転記 Cells(r, 18).Value = Me.TextBox4.Value Cells(r, 19).Value = Me.ComboBox6.Value Cells(r, 20).Value = Me.ComboBox7.Value Cells(r, 21).Value = Me.TextBox2.Value ' 選択された行をリストボックスから削除 ListBox1.RemoveItem r - 2 Exit For ' 処理が完了したらループを終了 End If Next r End Sub
質問日時: 2024/03/26 16:14 質問者: kacky76 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
自作のソフトウエアをandroidへ移植したい
複数本の自作ソフトウエアを持っています。 サポートするプラットフォームはWindows/WindowsCE(Win32)などをVisualStudio、Unix/Linux(X-window)をgccで製作しております。 androidでの開発環境はc/c++は傍流で...等と聞いた覚えがあるのですが、どの様なアプローチで進めたら良いのかアドバイスをいただきたいと思います。 特にGUIに付いて不安に感じています。現在OSが異なってもUIが同一になることを保証しています。 移植性を高める目的でOS固有のAPIは殆ど使用していません。 具体的には... ●画面上の色の管理(カラーパレット)をソフトウエア独自に持っている。 ●例えば画面上の"塗りつぶし"は複数の直線を引くことで行う。 ●ビットマップファイルは独自のフォーマットを持ち、画面への表示は1ピクセルずつソ> フトウエア自ら(API使わない)が行う。 などです。 昔々『Microsoft C/C++ ランタイムライブラリ リファレンス』等という本を勉強したのですが、それに相当する参照すべき本やurlが存在すればご紹介ください。 ソフトウエアGUIの一部ハードコピーを添付します。
ベストアンサー
1
1
-
勤務表をエクセルで作る際、 最初の頭だけ日付を打つと、横に並ぶ日付が変わるのと、曜日が代わり、土日の
勤務表をエクセルで作る際、 最初の頭だけ日付を打つと、横に並ぶ日付が変わるのと、曜日が代わり、土日の色を変えるところまでできたのですが 祝日リストを使って、色を変える方法がいまいちわかりません わかりやすく教えてもらえませんか?
質問日時: 2024/03/26 14:06 質問者: 山田辰雄 カテゴリ: Excel(エクセル)
解決済
3
0
-
オートフィルのショートカットキーを教えてください。 行数が10,000を超えるファイルでの作業です。
オートフィルのショートカットキーを教えてください。 行数が10,000を超えるファイルでの作業です。 列をひとつ追加して別ファイルの情報をVLOOKUPで入れた後、データが入っている最後の行までフィルダウンさせたいです。 セルの右下にカーソルを合わせ、 Wクリックで出来るのは知っているのですが、 Wクリックでしたのと同じ動作をショートカットキーでやりたいです。 (Wクリックが一番早いと思うのですが、 非常に静かなオフィスで、 マウス音に反応する人がいるためです。) Ctrl+Shift+↓でデータが入っている最後の行まで選んでコピペをしようかと思いましたが、なぜかできませんでした。(かなり下のデータが入っていないセルまで選択されてしまう) Wクリックだとデータが入っている最後の行までフィルすることができます。。 列を全選択でコピペすると、ファイルサイズが大きくなってしまうのでダメです。。 すみません。 よろしくお願いします。
質問日時: 2024/03/26 13:24 質問者: BB-88 カテゴリ: Excel(エクセル)
ベストアンサー
3
0
-
Excelで「時間の足し算」はどうすればいいですか?
添付画面の表はスマホの通話時間で 単位は「分:秒:秒」になってます。 これら2~10まである時間を全て足して「A-11」のセルに反映させるには どうしたらよいでしょうか?
質問日時: 2024/03/26 14:23 質問者: n741963 カテゴリ: Excel(エクセル)
ベストアンサー
6
0
あなたの趣味に関するQ&Aを探してみてください!
おすすめ情報