昨日会社で使ったVBA紹介します🚀

こんにちは〜ららぽてすらです！

昨日会社で使ったVBA紹介します♪

Sub CompareColumns()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet9") ' シートの名前を適切なものに変更してください

Dim i As Long, j As Long
Dim mValues As Variant

For i = 1 To ws.Cells(ws.Rows.Count, "H").End(xlUp).Row
mValues = Split(ws.Cells(i, "M").Value, " ") 'M列の値をスペースで区切ります

For j = LBound(mValues) To UBound(mValues)
If ws.Cells(i, "H").Value = mValues(j) Then
ws.Cells(i, "J").Value = mValues(j) & ", " & ws.Cells(i, "N").Value
Exit For ' 一致する値が見つかったら、それ以上チェックしない
End If
Next j
Next i

End Sub

2社のデータで共通のものを同じシートに貼り付けて揃えたい会社の方のデータに合わせてもう一社のデータを並び替えてそれに応じて紐づいていた隣のデータを横につける操作をしてます。

このVBA（Visual Basic for Applications）スクリプトもExcelの特定のワークシート（このコードでは"Sheet9"）内のセルを比較し、一定の条件下で値を生成・コピーする操作を行います。ただし、先程のスクリプトとはいくつかの点で動作が異なります。

具体的な操作は以下の通りです：

ワークシートの"H"列を上から下へ順にスキャンします。
各"H"列のセルの値を取得します。
同時に、"M"列の値をスペース(" ")で区切り、複数の部分文字列（単語）に分割します。これらの部分文字列は配列mValuesに格納されます。
その後、配列mValuesの各要素をスキャンします。
"H"列の値と配列mValuesの各要素を比較します。
もし"H"列の値と配列mValuesのある要素が一致した場合、その要素と、同じ行の"N"列の値を結合した文字列（要素、コンマ、スペース、"N"列の値）を、同じ行の"J"列にコピーします。そしてその時点でのループを終了します。

このコードを用いることで、"H"列の値が"M"列の値のいずれかの部分文字列（単語）と一致する場合、その一致した部分文字列と同じ行の"N"列の値を結合した文字列を"J"列にコピーすることができます。

Sub CompareAndCopy()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet9") ' シートの名前を適切なものに変更してください

Dim i As Long, j As Long
Dim hValue As Variant

' H列の各セルに対してループを回す
For i = 1 To ws.Cells(ws.Rows.Count, "H").End(xlUp).Row
hValue = ws.Cells(i, "H").Value

' M列の各セルに対してループを回す
For j = 1 To ws.Cells(ws.Rows.Count, "M").End(xlUp).Row
' H列の値とM列の値が一致したら、I列とJ列にコピー
If hValue = ws.Cells(j, "M").Value Then
ws.Cells(i, "I").Value = ws.Cells(j, "M").Value
ws.Cells(i, "J").Value = ws.Cells(j, "N").Value
End If
Next j
Next i

End Sub

都道府県別でみて一致したら出力

このVBA（Visual Basic for Applications）スクリプトは、Excelの特定のワークシート（このコードでは"Sheet1"）内のセルを比較し、一定の条件下で値をコピーする操作を行います。具体的な操作は以下の通りです。

ワークシートの"H"列を上から下へ順にスキャンします。
各"H"列のセルの値を取得します。
その後、ワークシートの"M"列を上から下へ順にスキャンします。
各"M"列のセルの値と"H"列の値を比較します。
もし"H"列の値と"M"列の値が一致した場合、その時点での"M"列と"N"列の値を、同じ行の"I"列と"J"列へそれぞれコピーします。

このコードを用いることで、"H"列の値が"M"列のどこかの値と一致する場合、一致した"M"列とその右隣の"N"列の値を、同じ行の"I"列と"J"列にコピーすることができます。

Sub CompareAndCopy()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet9") ' シートの名前を適切なものに変更してください

Dim i As Long, j As Long
Dim oValue As Variant

' O列の各セルに対してループを回す
For i = 1 To ws.Cells(ws.Rows.Count, "O").End(xlUp).Row
oValue = ws.Cells(i, "O").Value

' P列の各セルに対してループを回す
For j = 1 To ws.Cells(ws.Rows.Count, "P").End(xlUp).Row
' O列の値とP列の値が一致したら、Q列の値をK列にコピー
If oValue = ws.Cells(j, "P").Value Then
ws.Cells(i, "K").Value = ws.Cells(j, "Q").Value
Exit For '一致する値が見つかったら、そのループは終了
End If
Next j
Next i

End Sub

前回出した都道府県に対応した金額を出力する

このVBA（Visual Basic for Applications）スクリプトは、Excelの特定のワークシート（このコードでは"Sheet1"）内のセルを比較し、一定の条件下で値をコピーする操作を行います。具体的な操作は以下の通りです：

ワークシートの"O"列を上から下へ順にスキャンします。
各"O"列のセルの値を取得します。
その後、ワークシートの"P"列を上から下へ順にスキャンします。
各"P"列のセルの値と"O"列の値を比較します。
もし"O"列の値と"P"列の値が一致した場合、その時点での"Q"列の値を、"O"列の値と一致した場所の同じ行の"K"列へコピーします。そしてその時点での"P"列に対するループを終了します。

このコードを用いることで、"O"列の値が"P"列のどこかの値と一致する場合、一致した場所の"Q"列の値を、同じ行の"K"列にコピーすることができます。

Sub Identify23Districts()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet9") ' シートの名前を適切なものに変更してください

Dim i As Long
Dim address As String

' 東京都23区の名前を配列に格納
Dim districts() As Variant
districts = Array("千代田区", "中央区", "港区", "新宿区", "文京区", "台東区", "墨田区", "江東区", "品川区", _
"目黒区", "大田区", "世田谷区", "渋谷区", "中野区", "杉並区", "豊島区", "北区", "荒川区", "板橋区", _
"練馬区", "足立区", "葛飾区", "江戸川区")

Dim district As Variant

For i = 1 To ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
address = ws.Cells(i, "B").Value

' 住所が東京都23区に含まれているか確認
If InStr(address, "東京都") > 0 Then
For Each district In districts
If InStr(address, district) > 0 Then
ws.Cells(i, "C").Value = 1
Exit For
End If
Next district
End If
Next i

End Sub

23区は、料金違うから東京都の中から23区抽出

このVBA（Visual Basic for Applications）スクリプトは、Excelの特定のワークシート（このコードでは"Sheet9"）に格納されている住所情報から、その住所が東京都23区内に存在するかを識別する操作を行います。具体的な操作は以下の通りです：

ワークシートの"B"列を上から下へ順にスキャンします。この"B"列は住所情報を含んでいると想定されます。
各"B"列のセルの値（住所）を取得します。
その住所が東京都内に存在するかを判断します。具体的には、その住所が"東京都"という文字列を含むかどうかをチェックします。
もし住所が東京都内に存在する場合、さらにその住所が東京都23区のどれかに該当するかを判断します。東京都23区の各区名を含む配列を作成し、その各区名が住所に含まれているかをチェックします。
もし住所が東京都23区のいずれかに該当する場合、同じ行の"C"列に1を記入します。

このスクリプトを用いることで、住所情報が東京都23区内に存在する行を識別し、その情報を"C"列にマークすることができます。これは地理的な範囲に基づいた分析やフィルタリング等で利用されます。

…と続きますが今回はこの辺で！

みたいな感じで何層にも分けてVBA実行して複雑なデータ抽出も簡単にこなしました♬

有機あずき美人茶ペットボトル 500mL 12本セット【送料無料】【有機JAS認定】

価格:3,240円
(2023/4/25 09:43時点)
感想(1件)

《2000円クーポン配布中》ヤ−マンアセチノ5Dデザイニングクリーム 35g ボディクリーム美容クリームスキンケアアセチノクリームアセチノ美容クリーム

価格:3,980円
(2023/4/9 22:54時点)
感想(45件)

2023-06-04

金利計算ツール🚀

金利 複利計算ツール

元本:

年率(%):

期間(年):

有機あずき美人茶ペットボトル 500mL 12本セット【送料無料】【有機JAS認定】

価格:3,240円
(2023/4/25 09:43時点)
感想(1件)

価格:3,980円
(2023/4/9 22:54時点)
感想(45件)

2023-06-03

気圧計算ツール

標高 (メートル):

有機あずき美人茶ペットボトル 500mL 12本セット【送料無料】【有機JAS認定】

価格:3,240円
(2023/4/25 09:43時点)
感想(1件)

価格:3,980円
(2023/4/9 22:54時点)
感想(45件)

2023-06-03

メールエンコードしよう💫

こんにちは〜ららぽてすらです♪

今回は、ららぽてすらお手製メールエンコーダーについてご紹介します♪

データの保護：メールの内容をエンコードすることで、その内容を見るためにはデコードが必要となり、内容が普通に読まれることを防ぐことができます。ただし、この目的には通常、より安全な暗号化技術が用いられます。
データの整合性：電子メールはテキストベースのプロトコルを使用しており、すべてのデータがプレーンテキスト形式であることが期待されています。しかし、メールに添付されるファイル（画像やPDFなど）はバイナリデータであり、そのままテキスト形式で送ることはできません。これらのバイナリデータをテキスト形式にエンコード（たとえば、Base64エンコーディング）することで、これらのデータを電子メールを介して安全に送信することができます。
互換性とデータの損失防止：元々のメールの内容に特殊文字（例えば、非ASCII文字や特殊記号など）が含まれている場合、すべてのメールシステムやプログラムがこれらを正しく扱うことができるわけではありません。そのため、これらの特殊文字をエンコードすることで、メールが正しく送受信され、内容が損失されることを防ぐことができます。

メールエンコーダー/デコーダー

メール:

エンコード/デコード結果:

有機あずき美人茶ペットボトル 500mL 12本セット【送料無料】【有機JAS認定】

価格:3,240円
(2023/4/25 09:43時点)
感想(1件)

価格:3,980円
(2023/4/9 22:54時点)
感想(45件)

2023-06-01

QラーニングAI迷路学習過程可視化🚀

このプログラムはQ学習という強化学習の一種を用いて、5x5の迷路における最適なパスを学習します。
ユーザが「訓練開始」ボタンをクリックすると、訓練が開始され、エージェントが迷路を探索しながら学習します。
学習過程中のエージェントの動きはブラウザに可視化され、青色のセルがエージェントの現在位置を表します。

有機あずき美人茶ペットボトル 500mL 12本セット【送料無料】【有機JAS認定】

価格:3,240円
(2023/4/25 09:43時点)
感想(1件)

価格:3,980円
(2023/4/9 22:54時点)
感想(45件)

2023-06-01

DSPって何？！デジタルの世界での「DSP」の2つの意味🚀

皆さんこんにちは〜ららぽてすらです♪

今日は、「DSP」について話をしようと思います。これは今日のデジタル世界でよく見かける単語で、その意味は文脈によって変わります。2つの主な意味があるんですよ。それは、「デジタルシグナルプロセッサ（Digital Signal Processor）」と「デマンドサイドプラットフォーム（Demand Side Platform）」です。

デジタルシグナルプロセッサ（Digital Signal Processor）

まずは、デジタルシグナルプロセッサの方から見ていきましょう。これは一体何なのでしょうか？

デジタルシグナルプロセッサ（DSP）は、音声や画像、ビデオといったデジタル信号を高速に処理するためのスペシャルなマイクロプロセッサの一種です。その高速な処理力を使って、音声認識や画像処理、通信システムなど、さまざまなデジタルアプリケーションをサポートします。

音声認識がどういったものか疑問に思う人もいるかもしれませんね。例えば、スマートスピーカーに「明日の天気は？」と聞くと、それが正しく理解され、あなたに明日の天気を教えてくれますよね。これが音声認識の一例です。そういった機能を支えているのが、このDSPなんです。

デマンドサイドプラットフォーム（Demand Side Platform）

次に、デマンドサイドプラットフォーム（DSP）について見てみましょう。このDSPは、広告業界で非常に重要な役割を果たしています。

デマンドサイドプラットフォームは、デジタル広告スペースを購入するためのシステムです。このシステムを使うことで、広告主はリアルタイムで広告スペースの入札と購入ができ、それによって自分の広告がターゲットとするオーディエンスに最適化された形で表示されます。

例えば、あなたが最近新しいギターをオンラインで検索したとします。その後、ウェブサイトを巡っていると、ギターの広告が表示されることがありますよね。これは、DSPがあなたの検索履歴や行動を基にして、あなたがギターに関心があると判断し、その広告を表示したからなんです。おもしろいでしょう？

まとめ

DSPは、デジタルシグナルプロセッサとして、またデマンドサイドプラットフォームとして、私たちのデジタル生活を豊かにしてくれています。それぞれが異なる領域で活躍しているものの、どちらもデジタル技術の進歩とともにますます重要な役割を果たしていくことでしょう。

有機あずき美人茶ペットボトル 500mL 12本セット【送料無料】【有機JAS認定】

価格:3,240円
(2023/4/25 09:43時点)
感想(1件)

価格:3,980円
(2023/4/9 22:54時点)
感想(45件)

2023-06-01

🌸パスワード強度チェッカー🌸

こんにちは〜ららぽてすらです♪

今日は非常に便利でシンプルなツール、パスワード強度チェッカーについてご紹介します。ユーザーがセキュアなパスワードを作成する際に非常に役立つツールなのです🧰

パスワード強度チェッカーって何？

パスワード強度チェッカーは、パスワードの「強度」、つまりセキュリティ上の堅牢さをチェックするツールです。以下の要素を考慮して評価します:

パスワードの長さ
大文字、小文字の使用
数字の使用
特殊文字の使用

これらの要素がバランスよく使われているパスワードほど「強い」パスワードと評価されます。

なぜパスワード強度チェッカーが必要なの？

パスワード強度チェッカーは、ユーザーが安全なパスワードを作成する手助けをします。強力なパスワードは、不正アクセスやハッキングのリスクを軽減します。パスワード強度チェッカーを使うことで、ユーザーは自分が作成したパスワードが十分に強力かどうかをすぐに確認することができます。

使い方

このパスワード強度チェッカーの使い方はとても簡単です。

まず、パスワードを入力するフィールドにあなたのパスワードを入力します。
次に、「確認」ボタンをクリックします。
ボタンの下に表示されるメッセージでパスワードの強度を確認します。

これで完了です！非常に簡単にパスワードの強度を確認できますね。

まとめ

このシンプルなパスワード強度チェッカーは、あなた自身や他の人がより強固なパスワードを作成するのに役立ちます。パスワードのセキュリティは、オンラインの安全において非常に重要な要素です。このツールを使うことで、あなたのパスワードが不正アクセスを防ぐのに十分強力であることを確認できます。安全なオンライン生活のために、ぜひパスワード強度チェッカーを活用してみてください♪

有機あずき美人茶ペットボトル 500mL 12本セット【送料無料】【有機JAS認定】

価格:3,240円
(2023/4/25 09:43時点)
感想(1件)

価格:3,980円
(2023/4/9 22:54時点)
感想(45件)

金利複利計算ツール

気圧計算ツール

メール エンコーダー/デコーダー

メールエンコーダー/デコーダー