Відео

？こちらこそ

コメントありがとうございます！

プロパティウィンドウで該当するコンボボックスの Style を「2 - fmStyleDropDownList」にしてください。 選択しかできなくなります。

回答頂きありがとうございます。 請求書の動画、これから見ます。 　CHIKARAEMONのロゴマーク カッコいいですね！😊

@@りょう介 ロゴマークの指摘は初めてですね！マニアッックですが、メタリカというバンドが好きなので、それ風です。わかりませんね（笑）

メタリカ好きです。‼️ AND JUSTICE FOR ALL 好きですね。 メタリカ他なにが好きですか？ 　ためになる動画ありがとうございます。 おかげで、あらためてVBAを学ぶ気になりました。 これからも、応援します。

@@りょう介その世代ですな！メガデス　とかですね。今更ですが、クイーンズライチのオペレーションマインドクライムなど最近聴いています。

コメントありがとうございます！！！😊

コメントありがとうございます！！！😊

貴公の環境は分かりかねますし、私も日々業務で忙しいのですが。 MAMPは普段使いませんので知りませんが、 ポート番号が　3306 ではなく　8889 DB_PASSWORD=は　空白ではなく　root かもしれません。

こんばんわ。ご自身のパソコン上で、phpmyadminをブラウザからデータベースやテーブルの作成を行ったりできていますか？

@@ちからえもん返信誠にありがとうございます。 はい、作成はできます。 phpmyadminはブラウザ上からもmampからもアクセスでき、テーブル作成もできるのですが、 terminalにてシーダーを実行し成功したはずであるのにテーブル作成が確認できず、、、

@@八雲-x2r Laravelの.envファイルにDBと接続するための情報　書かれていますか？

@@ちからえもん 投稿者様の動画を参考に.envファイルのDBと接続するための情報を追記しております。。。

@@八雲-x2r DB_CONNECTION=mysql DB_HOST=127.0.0.1 DB_PORT=3306 DB_DATABASE=手動で作成されたデータベース名 DB_USERNAME=root（rootで設定したのであればこのまま） DB_PASSWORD=（パスワード無しであれば空白）このようにですか？

恐縮ですが、素のLaravelをXサーバーで運用したことはありますが、React,Inertia絡んだレンタルサーバーでの運用はしたことがないです。ページのロードの速度は　ちょっと分からないですが、私の環境では　遅いと感じたことはないですね。今はSvelte絡みを調査しており、いつになるか分かりませんがアップしたいと思ってます。

こんにちは 05:20でファクトリーを編集しています。 05:40でシーダーを編集しています。 06:05でそのシーダーを実行しています。 その結果　7つのダミーデータをララベルが自動t的に生成してくれています。

そのように思っていただけたら、うれしいです。

コメントありがとうございます。すいませんが、本日も貧乏暇なしで業務バリバリです。 時間ができたら　ご返事できる可能性があります。 ua-cam.com/video/Zc014S3_POM/v-deo.html こちらのブログの作り方もやってることは同じようなものです。

良かったです！

コメントありがとうございます。検証していませんが、D列に02,05,11,12,18,21,25のように記述して、3行目の日付部分と比較するようにすれば　出来ると思いますよ。

日本の祝日リストを調べて別のページにでも祝日一覧表を作り、判別するような処理を作る必要があります。

コメントありがとうございます。お役に立てたようでよかったです！

お騒がせしました Cells(row_no, 2) = UserForm1.TextBox1.Value 書き込み時に数値変換でいいみたいですね。

コメントありがとうございます。そうですか、よかったです！

おはようございます。コメントありがとうございます。画像へのパスを併せて管理するなど。そういう機能があるのも良いでしょうね。

こんにちは。こちらのブログに記載しておりますので、ご参照ください。chikaraemon.com/wordpress/2022/06/04/laravel1/

こんにちわ。コメントありがとうございます。

こんにちわ。コメントありがとうございます。 この動画は、VBAというプログラミング言語を扱った動画です。 そのため、左側手打ち　右側にそれを反映するという要望をかなえるためにも、多少はプログラミング作業をしないといけません。 せっかくですが、　私には　セル関数で解決する術は知りませんので、　ご要望のことを叶えるには、　多少はVBAでプログラムを書いていただく必要があります。

コメントありがとうございます。そのようにプログラムを組めば出来ると思いますよ。

コメントありがとうございます。時間を見つけてブログの方にコードアップします。

良かったです。ありがとうございます！

コメントありがとうございます！

コメントありがとうございます。 折角ですが、多忙で動画をつくる時間がありません。検討します。

おはようございます。コメントありがとうございます！

コメントありがとうございます。

こんばんわ。 シートのイベントを感知して動作させるために、Sheetにコードを書き込み フォーム上のイベントを感知して動作させるために、UserFormにコードを書き込み 他から呼び出す必要もないので　Private となっていますが、 そこまで　厳格に考えずに　普段書いています。😅 目的を果たすために、コードを書いていますが、あまり深く考えていないです。

@@ちからえもん 丁寧な解説ありがとうございます！返信の内容からこれが噂のイベントプロシージャなんだと言うことを理解しました🎉だからシートを限定して書いているのですね。同時にブログも読み「「発火」」の意味がやっと分かりました〜😍😍 早速、真似して自分で書いてみたら見事にプログラムが動いてくれて感動しました😂！ありがとうございました！

はい、使ってみてください

こんばんわ。 気になるほどの速度ではないかと思いますが、早くするには次のようにされればよいかと思います。以下の6行目から20行目まで１セルづつ処理している箇所を書き直します。 '請求書明細部分を消去 j = 6 For j = 6 To 20 With Sheets("請求書") .Cells(j, 1) = "" .Cells(j, 2) = "" .Cells(j, 3) = "" .Cells(j, 5) = "" .Cells(j, 7) = "" .Cells(j, 8) = "" End With Next j これを Sheets("請求書").Range("A6:I20").ClearContents としてみてください。早くなるかと。

こんばんわ。 If Cells(i, j).DisplayFormat.Interior.Color = RGB(255, 255, 0) Then のように　DisplayFormat. を挟んでみてください。

@@ちからえもん できました。最高です。ありがとうございます。

ありがとうございます。

ありがとうございます。

ありがとうございます！そうですね。頑張ってみます。

😅あくまで　ユーザーフォームの使用例の動画ですが、違いとしては、 直接入力の場合、長い会社名、長い商品名、商品コード　などのヒューマンエラーによる入力間違いが起こりえますが、ユーザーフォーム内で選択することにより、そのような間違いを防止します。また、直接入力の場合、最下行まで手動で移動するようなことも発生しますが、VBAで最下行を自動的に取得します。 直接入力よりも作業時間は短縮できるかと思います。 まあ、実務的に利用するには、シートに直接入力を不可にして、ユーザーフォームからしか　登録・更新ができないようにするのが良いです。

おはようございます。 ２行目の日付欄はセルの書式設定を文字列として、 一桁の日付については、0をつけて　 1　→　01 2　→　02 3　→　03 略 9　→　09 のようにしてください。

どうしても出来なかったので休みを2022/2/22で入力して2/22で表示してカレンダーも同じ表示にして出来ました。素人だと何が原因かわからないので難しかったのですが、楽しかったです。ありがとうございました。

こんにちは chikaraemon.com/wordpress/2022/01/22/howtomake_userform/ こちらにソースコードを載せていますので、それを貼り付けてみてください。

@@ちからえもん サイトをお持ちだったのですね。お返事も早々に、本当に有り難いです✨ 熟読＆間違い探しします。もう一度チャレンジするモチベーションをいただきました！ ご親切に本当に有難うございました。

@@ちからえもん お世話になります。一生懸命、、何度も、、トライするも未だ成功しません…。 ↓こちらは、サンプルとして抜き出しだ一部分です。単純にこれだけでは分からないかとは思いますが、このあとには｢単価*数量＝金額｣的なところにも続けたいのですが、｢登録｣ボタンを押しても、当該セルに反映されないため、まだそこまでも到達できません｡｡ 他に何か考えられるケース?障壁?にお心当たりはありますでしょうか？ 稚拙な質問で申し訳ありません…。 ー－－－－－－－－－－ Private Sub btn登録_Click() '登録ボタン Dim row_no As Long Cells(row_no, 2) = UserForm.cmb2 Cells(row_no, 3) = UserForm.txt3 Cells(row_no, 4) = UserForm.cmb4 End Sub

@@micobmhbc3659それはそれは、お疲れ様です。 まず、フォームの部品名ですが、私の動画では、UserForm1としています。あなた様が作成されているフォームのオブジェクト名はUserformですか？私の動画は以下のように記載しています。テキストボックス等のオブジェクト名も私は以下のようにしています。 Cells(row_no, 2) = UserForm1.TextBox1 Cells(row_no, 3) = UserForm1.ComboBox1 Cells(row_no, 4) = UserForm1.ComboBox2 シンプルに Cells(row_no, 2) ="あいうえお"として セルに「あいうえお」が登録されるのか 試してみてください。

@@ちからえもん いつも早々のご対応有難うございます。 まず、フォーム名は確認しました。ブログ内のコードをコピペさせていただいた際に、私がひとつずつ1を消していったものです。 また、"あいうえお"も同様にデバッグとしてハイライトされてしまいます…💧

どちらかといえば　オ　なんですね。勉強になりました。

こんばんわ　コメントありがとうございます。 シート　「マスター」　にデータがあるとします。 そのデータを参照するには、 Sheets("マスター").Cells(i, 2) のように cells(i,2)の前に　Sheets("マスター").　を付ければ良いだけですよ。

やはり超初歩レベルなことですよねw 何の知識もないと、この( )や.の使い方が分からず、こんな小さなことにも躓きます｡｡ ですが、これだけでも他に応用が利きそうですし、本当に有り難いです。 早速チャレンジしてみたいと思います。 早々且つご親切な返信有難うございました！

こんんばんわ! 私は、そこまで厳格ではなく、動けばOKな考えなのですが、 ご指摘のとおり、厳格には Option Explicit と最初に記載して 全て　変数を宣言するのが行儀良い書き方です。

こんばんわ。ありがとうございます。コードを貼りつけます。 '体温 Cells(Label2.Caption + 1, ComboBox1.ListIndex + 2) = TextBox1.Text '咳 If CheckBox1.Value = True Then Cells(Label2.Caption + 2, ComboBox1.ListIndex + 2) = "有" Else Cells(Label2.Caption + 2, ComboBox1.ListIndex + 2) = "" End If カンマであることは間違いありません。間違って説明していましたかね？一年ほど前なので、はっきり覚えていませんが。時間が出来たら確認してみます。

早速のご回答ありがとうございます 弟パックエラーが出てコーどが黄色になり下記のような表示が出ます お忙しいと思いますが是非ご協力いただけないでしょうか 実行時エラー'13': 型が一致しません @@ちからえもん

@@satsu3172 Private Sub CommandButton1_Click()のすぐ下に MsgBox Label2.Caption MsgBox ComboBox1.ListIndex の二行を入れてください。どのように表示されるか教えてください。 cells(X,Y)のX、Yともに数値が入る必要があります。 Label2.Caption が数字として取得されているのかです。

@@ちからえもん おはようございます お手数かけます ご報告します 下記の参考コードを実行 1　体温 2　0 3　userformが表示 4　体温　咳　に入力 5　登録 6　実行時エラー7'13' 　 型が一致しません 7 クリック「デパック」 このコードが黄色に反転 Cells(Label12.Caption + 1, ComboBox1.ListIndex + 2) = TextBox1.Text 　　　※Label12はわたしの番号 参考 Private Sub CommandButton1_Click() MsgBox Label12.Caption MsgBox ComboBox1.ListIndex '体温 Cells(Label12.Caption + 1, ComboBox1.ListIndex + 2) = TextBox1.Text '咳 If CheckBox1.Value = True Then Cells(Label3.Caption + 2, ComboBox1.ListIndex + 2) = "有" Else Cells(Label3.Caption + 2, ComboBox1.ListIndex + 2) = "" End If

@@satsu3172 userform2 '登録ボタンクリックのところは、MSGBOXの二行だけにしてください。 Private Sub CommandButton1_Click() MsgBox (Label2.Caption) MsgBox (ComboBox1.ListIndex) End Sub このようにして、Label2.Caption　と　ComboBox1.ListIndex　が数値として取得されているのか 確認してください。 それと動作確認するときにuserform1を起動してから、 userform2を起動していますか？ おそらくですが、Label2.Caption　が数字として取得されていないのではないかと。 userform1の記述は下のようになっていますか？ userform1 'ログインボタンクリック Private Sub CommandButton1_Click() Select Case ComboBox1.Text Case "田中" If TextBox1.Text = "tanaka" Then UserForm2.Label1.Caption = ComboBox1.Text UserForm2.Label2.Caption = 7 * ComboBox1.ListIndex + 3 UserForm2.Show Else MsgBox ("ログインできません") End If 略 End Select End Sub

コメントありがとうございます！そうですね、気長に待っててください。盆休みくらいに頑張ってつくろうと思います。

@@ちからえもん 是非よろしくお願いします。 本当お願いします

@@久美太田-z7i こんにちわ。続編としてユーザーフォームの変更とキャンセルの機能をアップしました。 ua-cam.com/video/le3_2kItMQo/v-deo.html

@@ちからえもん ありがとうございます。早速勉強いたします。😃

こんばんわ 1 1 3 5 5 選択して、フィルター、詳細設定、重複するレコードは無視する →　抽出されたセルをコピーして　所定のセルにペーストする この流れをプログラミング化されたいのでしょうか？ マクロの記録を使って、上の流れを手動で行い、それをマクロ記録する。 そのマクロを見て、プログラム化されるヒントにされては　如何でしょうか？ ピント外れかな？

@@ちからえもん こんばんは、ご回答ありがとうございます。 記録された内容を見ていくと、Autofilter Field:=2,Criteria1:=Array(“1”、”3”、”5”),Operator:= xlFiterValuesが記録されています。 ということは、フィルターしたい項目は(“1”,”3”,”5”)手打ちで設定しないといけない事となりますので....グラフ用のクロス表を作りたいので、自動的にピックアップできたらいいなと思います🥲

@@PeaceOkinawa_Lee なるほど　目的とされている方法と異なるかもしれませんが、 数値が必ず　小　→　大　の順に並んでいて、 数値が重複しないように ということでしたら、フィルター使わずに VBAで　 n=仮の数値 for i= 1 to 9999 if cells(i,1)<>cells(i+1,1) then cells(転記先,n)＝cells(i,1) n=n+1 end if next i 下のセルと比較して　 異なっていたら（重複していないのであれば）　転記 同じであれば　転記しない とかも良いかもしれませんね。

@@ちからえもん さんご回答ありがとうございます！選択肢は数字だけじゃないですが、countif=1 then copy,>1 then 次の行行くと考えてますので、ヒント助かりました！ありがとうございます

@@ちからえもん さん、countifできなかったので、uniqueメソッドを試し使ってみたらできました！！おかげさまでありがとうございます！