回答数
気になる
-
プログラマーと学歴の関係性について
プログラマーになるにあたって、 有名大学を卒業することで享受されるメリットを教えて下さい。 そしてそのメリットは、有名大学を卒業しなくても、 努力次第で手に入れることは可能でしょうか?
質問日時: 2024/04/26 00:21 質問者: 124590001 カテゴリ: その他(プログラミング・Web制作)
回答受付中
11
0
-
WORD VBA プログラム修正をお願いします。
以下のWORD VBAは選択したテーブル内のデータをワイルドカード検索し、抽出されたデータを重複非表示、降順ソートでMSGBOXに表示するものです。 問題が出ております。それが、WORDファイルに4つのテーブルがあるとして、最初のテーブルを選択して検索すると、2番目から4番目のテーブルにあるデータも一緒に検索されてしまいます。2番目のテーブルで検索すると、3から4番目のデータが、3番目のテーブルで検索すると、4番目のデータが一緒に表示されてしまいます。4番目のテーブルを選択した時のみ、4番目のデータが表示されます。 下のVBAは選択したテーブル内で検索していると思うのですが、どこに問題があるかわかりません。どなたか教えていただけないでしょうか、よろしくお願い致します。 Sub SearchUniqueAndDisplaySelectedTable() Dim tbl As Table Dim rng As Range Dim result As String Dim foundItems As New Collection Dim item As Variant Dim i As Integer ' 選択されたテーブルを取得します Set tbl = Selection.Tables(1) ' 結果を格納する変数を初期化します result = "" ' テーブル内のすべてのテキストを検索します For Each rng In tbl.Range.Cells ' セル内のテキストを検索します With rng With .Find .Text = "XYZ Reg. on 20[0-9]{1,2}/[0-9]{1,2}/[0-9]{1,2}" .Forward = True .Wrap = wdFindStop .MatchWildcards = True ' ワイルドカード検索を実行します If .Execute Then ' 重複したデータをチェックして追加します If Not foundItemsExists(.Text, foundItems) Then foundItems.Add .Text, .Text End If End If End With End With Next rng ' 検索結果を配列に変換します Dim resultsArray() As Variant ReDim resultsArray(foundItems.Count - 1) For i = 1 To foundItems.Count resultsArray(i - 1) = foundItems(i) Next i ' 配列を降順にソートします Call SortArray(resultsArray) ' 結果を文字列に変換します For i = LBound(resultsArray) To UBound(resultsArray) result = result & resultsArray(i) & vbCrLf Next i ' 結果を表示します If result <> "" Then MsgBox "検索結果:" & vbCrLf & result, vbInformation, "検索結果" Else MsgBox "指定された文字列が見つかりませんでした。", vbExclamation, "検索結果" End If End Sub ------------------------------------------------------------------------------------------- Function foundItemsExists(item As Variant, collection As Collection) As Boolean On Error Resume Next foundItemsExists = Not IsEmpty(collection(item)) On Error GoTo 0 End Function ----------------------------------------------------------------------------------------- Sub SortArray(ByRef arr As Variant) Dim i As Long, j As Long Dim temp As Variant For i = LBound(arr) To UBound(arr) - 1 For j = i + 1 To UBound(arr) If arr(i) < arr(j) Then temp = arr(i) arr(i) = arr(j) arr(j) = temp End If Next j Next i End Sub
質問日時: 2024/04/25 23:43 質問者: oldhidesan カテゴリ: Visual Basic(VBA)
回答受付中
0
0
-
explorerからQTTabBarが消えた
しばらくexplorerを使用していませんでした。しばらくぶりに起動するとQTTabBarが完全に消えていました。再度QTTabBar_1043をインストールしました。メニューが表示されません何度か繰り返しましたがかわらず。GitHubから以下をダウンロード"QTTabBar.Setup.No.Plugins._v1.5.5-beta.9_de.2023"を入れました。メニューを表示されるも英語になる。GitHubでは中国の説明なっていました。 以前は提供者のサイトからダウンロードして入れていました。 消えた理由は不明。 どなたかわかるかたいらしゃましたら教えて下さい、よろしくお願いいたします。
回答受付中
1
0
-
ブラウザ自体の事じゃなくてJavaScriptで書かれたブラウザ上で動作するアプリのことをなんといい
ブラウザ自体の事じゃなくてJavaScriptで書かれたブラウザ上で動作するアプリのことをなんといいますか?
質問日時: 2024/04/25 18:38 質問者: だいぬ カテゴリ: JavaScript
回答受付中
5
1
-
ジャバスクリプトについて。
ジャバスクリプトで、′console.log( )′は、出力するという意味で合っていますでしょうか?教えてくれませんか?
質問日時: 2024/04/25 17:49 質問者: メラゾーム カテゴリ: JavaScript
回答受付中
4
0
-
Vba SelStart、SelLen教えてください教えてください
いつもお世話になります 今、TextBoxを並べて入力しようとしていますが EnterKey入力では文字を全部、青く選択するのですが ↑Keyではカーソルが文字の後ろに ↓Keyではカーソルが文字の前に来るだけで青く選択してくれません これってダメなんですかね、教えてください 一応、質問用にプログラムを用意しました Sub test() UserForm1.Show End Sub Option Explicit Dim isw Private Sub UserForm_Activate() TextBox1.Value = 10 TextBox2.Value = 20 TextBox1.SetFocu End Sub Private Sub TextBox1_Enter() 'テキストボックスに入ったら色変える isw = 1 With TextBox1 .BackColor = RGB(&H0, &HFF, &HFF) .SelStart = 0 .SelLength = Len(TextBox1) End With End Sub Private Sub TextBox2_Enter() 'テキストボックスに入ったら色変える isw = 2 With TextBox2 .BackColor = RGB(&H0, &HFF, &HFF) .SelStart = 0 .SelLength = Len(.Text) End With End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNumeric(TextBox1.Text) Then TextBox1.BackColor = RGB(&HFF, &HFF, &HFF) ElseIf TextBox1 <> "" Then MsgBox ("数値以外の文字が入力されています") TextBox1 = "" Cancel = True End If End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNumeric(TextBox2.Text) Then TextBox2.BackColor = RGB(&HFF, &HFF, &HFF) ElseIf TextBox2 <> "" Then MsgBox ("数値以外の文字が入力されています") TextBox2 = "" Cancel = True End If End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Call chkFKey(KeyCode) End Sub Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Call chkFKey(KeyCode) End Sub Private Sub chkFKey(ByVal KeyCode As MSForms.ReturnInteger) If KeyCode = vbKeyReturn Then If isw = 2 Then isw = 0 With Me.Controls("TextBox" & isw + 1) .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With ElseIf KeyCode = vbKeyDown Then If isw = 2 Then isw = 0 With Me.Controls("TextBox" & isw + 1) .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With ElseIf KeyCode = vbKeyUp Then If isw = 1 Then isw = 3 With Me.Controls("TextBox" & isw - 1) .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With End If End Sub 長くてすみません 以上、宜しくお願い致します
質問日時: 2024/04/25 17:12 質問者: 公共ごま カテゴリ: Visual Basic(VBA)
回答受付中
0
0
-
プログラムについて。
コンソール(コマンドプロンプト)は、人間とコンピュータの仲介をしているということでしょうか?後、ログメッセージとは、何でしょうか?ちなみに、ジャバスクリプトでハローワールドを組んだときの疑問点です。教えてくれませんか?
質問日時: 2024/04/24 21:33 質問者: メラゾーム カテゴリ: JavaScript
回答受付中
3
0
-
goo は、放置?
https://beginreturnonassets.com/products/auric-spreader?utm_term=nPlamFeL3J0HqcrUAs9iU&adset_name=23&fbclid=IwAR3vJIHfh6Q-OYP4zgmMOIgABsh_s_PAJ45_XpJALqrB7EHIqnpQiiCtaGk_aem_AWoGuN07iOJhJpN0WYEf58C8Z-7ikE29METVt51SlKw2aH4sIMiohRnY5rizC6wLjuYvh5kl-WAHXk1VOatawuZx
回答受付中
1
0
-
MacOS:ターミナルではNPMのコマンドを受け付けるがVSCODEでは受け付けない現象
おそらくパスが通ってないものと想いますがなぜそうなるのか全くわからないので質問です。 MacOS(M1)を使用していてターミナルではNode -vやnpm run serveのコマンドが通るのに VSCODE上のターミナルでは通りません、cdでの階層は同じ場所にいます。 自身で調べてHomebrew、Nodebrewを使用してインストールしたもので Mavenプロジェクトです。 VSCODE上で行うコマンドとターミナルで行うコマンドで結果に差が出るものなのかもわかりませんが ・なぜそのようなことが起こるのか ・どうやって解消すればよいのか わかる方がいたらごお教示お願いいたします。 ソースコードなど詳細はセキュリティ上開示出来ないことをお詫び申し上げます。
質問日時: 2024/04/24 09:49 質問者: yasutaka2012ya カテゴリ: Java
回答受付中
1
0
-
楽しくて最高のプログラミング言語を作りたいのですが、そもそもプログラミング言語を作る意味なんてないと
楽しくて最高のプログラミング言語を作りたいのですが、そもそもプログラミング言語を作る意味なんてないと気づきました。 プログラミング言語を設計する楽しさってなんですか? Webサイトでも作ってた方がマシでしょうか。
質問日時: 2024/04/23 22:43 質問者: だいぬ カテゴリ: その他(プログラミング・Web制作)
回答受付中
5
0
-
ラズパイpico PIOモード
ハードウェア: Raspberry Pi Pico 開発環境:Micropython 目的:バックライトボードの点灯(まだ製作中、バックライトボードのICドライバーしかない) PIO関数を使って書き直したコードです: https://paste.fastmirror.net/?e090559df3021042#3Nn8CGbt1rdzy38VFLTXfx4Yg4MNJtUQVXCmWqAUs8Gx 問題点と解決したこと: 1.上記のコードを実行した後、ロジアナを使って検出されたタイミング図を見つけました:検出されたデータは8ビットで送信されますが、私は16ビット単位でデータを送信したいです。(csがHighのときに0x20、0x40が送られる;図のようにそれぞれ2回で0x20、0x40ではない) どのようにコードを修正すれば、検出データを16bit単位で送信できるようになりますか? https://imgur.com/uCT080a 2.バックライトはまだ持っておらず、ラズベリー・パイ・ピコ(メイン・デバイス)しか持っていないので、信号の送信をシミュレートしようとしています。 下の写真の赤丸で囲ったwrite_read_blockingをwrite_blockingに変えた方がいいというアドバイスをもらいました。 https://imgur.com/Q63ieOG その理由は、今のところ、マスター・デバイスからデータを送信しているだけで、データを読む必要のあるスレーブ・デバイスはないので、write_blockingに変更した方が良いのでしょうか? 3.write_blockingに変更してコードを実行したところ、検出されたデータは0x20, 0x40, 0x81,0x20のみでしたが、それ以降のデータが検出されていないのですが、これは意図通りに合っていますか? https://imgur.com/F5ZQYRu こちらはLED ICドライバーの仕様書の一部: https://imgur.com/i0eOBVw
質問日時: 2024/04/23 16:47 質問者: mada0121 カテゴリ: その他(プログラミング・Web制作)
回答受付中
0
0
-
ArduinoのジャイロモジュールMPU6050について
質問失礼いたします。 半年前ほどからArduinoのプログラムを始めまして、現在ジャイロセンサーのMPU6050モジュールを扱っているのですが、2つ使用して指の角度を計測するときに、指の角度は変えず、腕(手首)を動かすと計算値が変わってしまうのですが原因が今ひとつわかりませんので、どうかご教授いただけたらと思います。 計算値とは1つ目のジャイロから2つ目のジャイロの数値を引き算した結果の数値です。 分かりづらくて恐縮ですが、画像が指の断面図で、赤色がジャイロモジュールの位置です。 ③は①のように指の角度は変えず、手首や腕を動かした状態です。 ③の状態で数値が変わってしまします。②、④も同様です。
質問日時: 2024/04/22 23:13 質問者: タケシマン カテゴリ: C言語・C++・C#
回答受付中
2
0
-
VBA SaveChanges 上書きされない
Excel 2019 処理内容 ブック内のすべてのグラフのスケール変更 質問内容 wb.Close SaveChanges:=True 上記では上書き保存がされません。 以下の記述では問題なくできます。 wb.Close wb.Save テストで、保存前にwb.Savedの返り値を見てみたのですが、 スケール変更の処理を終えてもTrueでした。 Excelでは、グラフのスケール変更のみは「変更なし」という扱いということでしょうか。
質問日時: 2024/04/22 15:10 質問者: ぶつりがくっておいしいの カテゴリ: Visual Basic(VBA)
回答受付中
1
0
-
小学1年生の子です。塾に行かせるのは難しいので、自宅で学べたらと思うのですが、子供にプログラミングを
小学1年生の子です。塾に行かせるのは難しいので、自宅で学べたらと思うのですが、子供にプログラミングを学ばせるなら、マインクラフト等をスウィッチでやるか(プログラミングを学ぶのに良いと聞きました)、タブレットでアプリを入れてやるか、どちらか、または他に学ぶ方法がありますか?
質問日時: 2024/04/22 08:27 質問者: miniko4 カテゴリ: その他(プログラミング・Web制作)
回答受付中
9
0
-
Pythonでgif画像が上手く作れない
#ライブラリのインポート from PIL import Image #画像を入れる箱を準備 pictures=[] #画像を箱に入れていく for i in range(70): pic_name=str(i+1)+ '.png' img = Image.open(pic_name) pictures.append(img) #gifアニメを出力する pictures[0].save('anime.gif',save_all=True, append_images=pictures[1:], optimize=False, duration=16.66666, loop=0) このコードでgifを作成しましたが、画像が切り替わっても前の画像が消えずに残り続けてしまいます。例えば4枚目の画像に切り替わった時も1枚目、2枚目、3枚目の画像が残っています。全ての画像で同じ現象が起きます。画像が切り替わった時にそれ以前の画像を表示しない方法が知りたいです。 どうぞよろしくお願い致します。
質問日時: 2024/04/20 22:01 質問者: atasarrrrrrr カテゴリ: その他(プログラミング・Web制作)
回答受付中
1
0
-
pythonで複数画像からgifを作る方法
pythonで複数画像からgifを作る方法について質問です。 https://www.higashisalary.com/entry/python-make-gif#google_vignette このURLのサイトを参考にgifを作りたいのですが、実行コードの保存場所と同じフォルダの中に、4つの画像を連番で保存する方法が分からないため、ご教授して頂きたいです。 初歩的な質問で申し訳ありませんがよろしくお願いします。
質問日時: 2024/04/20 17:35 質問者: atasarrrrrrr カテゴリ: その他(プログラミング・Web制作)
回答受付中
2
0
-
プログラミング
現在中3です 中3でプログラミングをはじめてもおそくないですか?
質問日時: 2024/04/15 19:22 質問者: ._.._.._.._.._. カテゴリ: その他(プログラミング・Web制作)
回答受付中
12
0
- ←前の結果
- 1
- 次の結果→
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
goo は、放置?
-
プログラムについて。
-
楽しくて最高のプログラミング言語...
-
ArduinoのジャイロモジュールMPU605...
-
htmlの文字が縦書きになる
-
ジャバスクリプトについて。
-
Vba SelStart、SelLen教えてくださ...
-
explorerからQTTabBarが消えた
-
ビーリアルのユーザー名を変えたい...
-
C言語をコンパイルするとコンピュー...
-
小学1年生の子です。塾に行かせるの...
-
stable diffusionのエラー
-
XMLを作成してもタグしか表示されない
-
mallocについて
-
プログラミング
-
公文書のxmlファイルの開き方が分か...
-
phpでPEAR::DBを使っているのですが...
-
gccを行ってもexeファイルが生成さ...
-
配列にnullを代入すると、nullが文...
-
現在のブックを閉じないで、マクロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ビーリアルのユーザー名を変えたい...
-
htmlの文字が縦書きになる
-
dataファイルをxtxファイルにするには
-
エクセルに張り付けた写真のファイ...
-
iPhoneでXMLファイルを開くにはどう...
-
chatGPTで次々と質問をしていくコード
-
XMLを作成してもタグしか表示されない
-
VBAのコードを教えてください
-
gccを行ってもexeファイルが生成さ...
-
昔のパソコン少年の武勇伝「店先の...
-
あなたは、Excelはどうやって学びま...
-
WindowsのCapsLock(キャップスロッ...
-
質問失礼します。 プログラム言語を...
-
公文書のxmlファイルの開き方が分か...
-
double型が正常に認識されていない恐れ
-
Notepad++の関数リスト表示でC言語...
-
【ExcelVBA】インデックスが有効範...
-
ExcelVBA シート名を複数セルから取...
-
スカラーのベクトル微分
-
エクセルvbaについて
おすすめ情報