常連

### 前提・実現したいこと

いつもお世話になっております。
VBA初心者ですが宜しくお願い致します。

Vlookup関数の代替として、Dictionaryを使用しております。
そこで質問なのですが、1つのKeyに対して複数のItemを持たせることは可能でしょうか？
それとも、Dictionaryとは別の方法が良いのでしょうか？
お手数お掛けしますが、ご確認お願い致します。

検索結果の出力先 : Book_bのSheet_cのAQ列とAR列
検索値 : Book_bのSheet_cのJ列
検索範囲 : Book_dのSheet_eのC~H列
列番号 : 5と6(E列とF列)
検索方法 : 完全一致 


### 該当のソースコード
下記のコードはDictionaryを使用し、1つのKeyに対して1つのItemを持たせております。

```ここに言語名を入力
Dim d As String
    Dim e As Worksheet
    Dim b As String
    Dim c As Worksheet
    Dim hsaisho As Long
    Dim isaigo As Long
    Dim dic_bpl As Dictionary
    Dim buff As Variant
    Dim name_b As Long
    Dim name_c As Long
        
            d = Application.GetOpenFilename(",*.xlsx")
    If d <> "False" Then
            With Workbooks.Open(d)             
Set e = .Worksheets("Sheet1")
            End With
    Else
            MsgBox "キャンセルしました"
            Exit Sub 
    End If

            b = Application.GetOpenFilename(",*.XLSX")
    If b <> "False" Then
            With Workbooks.Open(b) 
            Set c = .Worksheets("Sheet1")
            End With
    Else
            MsgBox "キャンセルしました"
            Exit Sub
    End If

            
    Set dic_bpl = New Dictionary
            
            Cells(1, 43) = "BPL"
            isaigo = e.Cells(Rows.Count, 3).End(xlUp).row
            hsaisho = c.Cells(Rows.Count, 43).End(xlUp).row + 1
            hsaigo = c.Cells(Rows.Count, 8).End(xlUp).row
        
  
    For name_c = 1 To isaigo
    
    If dic_bpl.Exists(e.Cells(name_c, 3).Value) = False Then
            dic_bpl.Add Key:=CStr(e.Cells(name_c, 3).Value), Item:=e.Cells(name_c, 6).Value
    End If
    Next name_c

            buff = c.Range(c.Cells(1, 1), c.Cells(hsaigo, 43)).Value
    
    For name_b = hsaisho To hsaigo

            buff(name_b, 43) = WorksheetFunction.RoundUp(c.Cells(name_b, 11).Value / dic_bpl.Item(CStr(buff(name_b, 10))), 0)

    Next name_b

            c.Range(c.Cells(1, 1), c.Cells(hsaigo, 43)) = buff
            

```




    


### 試したこと

・set Dictionary名 = nothing にしてから set Dictionary名 = new Dictionary

VBA Dictionary 1つのKeyに対して複数のItemを持たせることは可能でしょうか？

現在、ポートフォリオとして育児記録アプリをRailsにて作成中です。
育児日記作成時にタグを追加できるようにしてタグ検索機能を実装したいのですが、タグ検索機能のビューが構文エラーにより表示できません。

コントローラやビューの構文についても見直しましたがどの部分で失敗しているのかわからず、質問させていただきました。
ビューのファイルはslim形式で記載しています。

### 実現したいこと

タグ検索機能のビューを正常に表示したい

### 前提

タグ検索機能を実装するにあたり、下記モデルを作成してdiariesコントローラおよび各種ビューを作成しました。

・Diaryモデル
→カラム(:title, :content)

・DiaryTagRelationモデル(中間テーブル)
→カラム(:diary_id, :diary_tag_id)

・DiaryTagモデル
→カラム(:tag_name)

手動で確認した際には、詳細表示や一覧表示画面は正常に表示できています。
しかしdiaries#search_tagのビューについてのみ構文エラーで表示ができず、自力で解決できませんでした。

こちらで初めて質問させていただくため、情報の不備などあればお手数ですがご教授ください。
よろしくお願いいたします。

参考サイト
https://zenn.dev/goldsaya/articles/625bdf837c1c68

### 発生している問題・エラーメッセージ

```
### エラーメッセージ

Encountered a syntax error while rendering template: check h5 タグ「#{@tag.tag_name}」の日記一覧
// タグリスト
- @tag_list.each do |d|
  = link_to d.tag_name, search_tag_path(diary_tag_id:
    d.id)

### 該当のソースコード

diaries#search_tag

h5 タグ「#{@tag.tag_name}」の日記一覧

// タグリスト
- @tag_list.each do |d|
  = link_to d.tag_name, search_tag_path(diary_tag_id:
    d.id)
  = "(#{d.diaries.count})"

diariesコントローラ

def search_tag
    # 検索画面でタグを一覧表示する
    @tag_list = DiaryTag.all

    # 検索されたタグを受け取る変数を設定する
    @tag = DiaryTag.find(params[:diary_tag_id])

    # 検索されたタグに紐づく育児日記を表示する
    @diaries = @tag.diaries
end

```

### 試したこと

コントローラおよびeachメソッドで呼び出している変数の見直し

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。
- ruby 3.1.2p20
- Rails 7.0.6



[Rails]タグ検索機能のビューを表示できるようにしたい

GitHubの検索の仕方について質問があります。

 例えば、「Nuxt3」と「Vuetify3」を使用しているリポジトリを探したい場合、どのように検索をかければよいでしょうか。

自分は``"nuxt": "^3" "vuetify": "^3"``のように検索をかけましたが、以下の画像のようにvuetifyの2系やnuxtの3系が出てきてしまいます。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-09-20/e7f2a02a-fd13-4cb9-90bb-b8b498363fe7.png)

nuxt及びvuetifyの3系のみがヒットするように検索する方法はありますでしょうか。


GitHubで特定のライブラリが含まれているかを検索する方法

### 実現したいこと
・普通に検索されるようにしたい

### 前提
見ていただきありがとうございます。
ワードプレスでサイトを作成したのですが、ヤフーやグーグルで検索し、サイトをクリックすると
ロボットではないかの確認をされるサイトが表示されます。
何か間にサイトを嚙まされるような感じです。

何度か検索をすると普通に表示されるようになります。

スマホで見た場合には特に問題はないのですが、わかる方教えていただきたいです。

```
エラーメッセージ

表示させたいサイト

https://early1110.net

飛ばされるサイト
https://captchaone.lm.r.appspot.com/ms/index.html?c=3fa919eb-9c7a-4d4f-9e80-14f19ee6ca7b&a=l143904#




ワードプレスで作成したサイトで検索について

###前提・実現したいこと
2つシートがあり、それぞれに表があります。
一つは元表、もう一つは転記先の表です。

![イメージ説明](af116bf997474a5cd833ff70b6f3c351.png)
![イメージ説明](02b89a17df01013257c2ee70a912536f.png)

転記先の表は91行目まであります。


元表のデータを、「社名」と「見出し」で合致するセルに転記をさせ、元表に社名がない行は、空欄にしたいです。
ワークシート関数ですと、INDEX関数とMATCH関数の組み合わせでクロス検索するという方法があると思いますが、それをマクロで表現したいです。





###該当のソースコード
```ここに言語を入力
Sub 作成()

    Const KURIKOSIKIN_COL As Long = 4 '「転記先」シート「繰越税抜金額列」
    
    Const KENSAKU_CLM As Long = 2 '「転記先」シートＢ列
    Const KENSAKU_ROW As Long = 4 '「転記先」シート４行目
    
    Dim Sh_Tenki As Worksheet '「転記先」シート
    
    Dim Data_Hanni As Range 'index関数のデータ範囲
    
    Dim Kensaku_Hanni1 As Range  'match関数の検索する範囲①
    Dim Kensaku_Hanni2 As Range  'match関数の検索する範囲②
    
    Set Data_Hanni = Worksheets("元表").Range(Cells(7, 4), Cells(20, 8)) 'index関数のデータ範囲（$D$7:$H$20）
    Set Sh_Tenki = Worksheets("転記先")    
    Set Kensaku_Hanni1 = Worksheets("元表").Range(Cells(7, 3), Cells(20, 3)) '検索する範囲①（$C$7:$C$20）
    Set Kensaku_Hanni2 = Worksheets("元表").Range(Cells(6, 4), Cells(6, 8)) '検索する範囲②（$D$6:$H$6）
        
    Worksheets("転記先").Cells(5, 4).Value = WorksheetFunction.Index(Data_Hanni, _
    WorksheetFunction.Match(Sh_Tenki.Cells(5, KENSAKU_CLM), Kensaku_Hanni1, 0), _
    WorksheetFunction.Match(Sh_Tenki.Cells(KENSAKU_ROW, 4), Kensaku_Hanni2, 0))

End Sub
```

###試したこと
INDEX関数とMATCH関数を使って、転記先表の「Ｄ1」だけ転記させることはできました。
（その後FOR～を使って転記先表の91行目まで転記させるように書いてみましたが、うまく行かず、どう直せば良いのかも分かりませんでした）

やり方はこだわりません。
良いやり方がありましたら教えてください。
宜しくお願い致します。

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報

vba　行と列を指定→検索して値を転記

ソースを追っていて、Googleで検索することのできない記号が出てきた時、皆さんはその記号の意味をどのように調べていますか？

例えば
->
=>
>>>
|>
|
[]
::
など。

上手な調べ方があれば教えて下さい。

Googleで検索できない記号の調べ方

日付が一致した行に別シートに入力されているデータを転記する。

やりたいことは、入力データ1シートのE3から入力してある社員番号の一致したシートに入力データ1シートのB列からD列に入力されているデータを日付が一致した行のD列からF列に転記を行いたいです。
自分で書いてみたコードは以下の通りで入力データ1の社員番号から該当のシートをアクティブにすることまではできたのですが（見つけた場合の処理内容としてメッセージボックスが出るようにしてあります。）、入力データ2に入力されている日付を各社員番号の一致したシートから検索することがいろいろ試してもできませんでしたのでアドバイスをお願いします。日付行だけが取得できれば転記の作業はこれでできると思います。
※・シートは実際には1000枚もありません。後の修正で最終行までループさせるようにするつもりです。
　・入力シート1には入力シート2に入力された日付のB列：シフト番号、C列：出勤時間、D列：退勤時間が入　　力されています。
　・入力シート2にはマクロで組んだボタンを配置するつもりです。




```vba
Sub 個人別シートへ出力()
Dim ws As Worksheet
Dim 社員番号 As Long
Dim b As Long
For b = 3 To 1000
社員番号 = Worksheets("入力データ1").Range("E" & b).Value
    For Each ws In Worksheets
    ws.Activate
        If ws.Name Like "*" & 社員番号 & "*" Then
             Range("D" & 日付行).Value = Worksheets("入力データ1").Range("B" & b).Value
             Range("E" & 日付行).Value = Worksheets("入力データ1").Range("C" & b).Value
             Range("F" & 日付行).Value = Worksheets("入力シート1").Range("D" & b).Value

　　　　　　　 MsgBox "ありました"
        End If
    Next ws
Next b
End Sub
```

![イメージ説明](ba82ec7bf53c16567c368a6d8f393144.jpeg)



↑入力データ1


![イメージ説明](eb76d895663f452cad13c5dd1ed26709.jpeg)


↑入力データ2


![イメージ説明](1601a74b578e393bdbaa7595b64b138c.jpeg)


↑各社員の個人シート

日付が一致した行に別シートに入力されているデータを転記したい

### 前提・実現したいこと

WordPressの絞り込み検索をリアルタイムで行いたい

jQueryで現在表示されている記事の中からリアルタイムに絞り込むことは出来たがページネーションがすると条件が継続されない
またcssでdisplay:noneとして記事を消しているため条件に合う10件の記事を表示することが出来ないです

### 知りたいこと

・jQueryで絞り込みを行ったデータをPHPのクエリーに入れて分岐させることは出来るでしょうか？
・jQueryで絞り込みを行った条件を継承したページネーションはWordPressで可能でしょうか？

基本的には以下のサイトを参考に実装しました。
参考：
[jQueryでリスト表示を絞り込む処理を実装する](https://www.tam-tam.co.jp/tipsnote/javascript/post14636.html)


### 該当のソースコード

archive.php
```archive.php
<?php $args = array (
  'post_type' => array('product'),
  'posts_per_page' => 10,
  'paged' => $paged
); ?>
<?php $the_query = new WP_Query( $args ); ?>
<form>
	<input id="js-reset-button" type="reset" value="リセット">
	<div class="search-box">
		<span class="search-box_label">カテゴリー</span>
		<input type="checkbox" name="category" value="カテゴリー1">カテゴリー1
		<input type="checkbox" name="category" value="カテゴリー2">カテゴリー2
		<input type="checkbox" name="category" value="カテゴリー3">カテゴリー3
	</div>
	<div class="search-box">
		<span class="search-box_label">タグ</span>
		<input type="checkbox" name="tag" value="タグ1">タグ1
		<input type="checkbox" name="tag" value="タグ2>タグ2
		<input type="checkbox" name="tag" value="タグ3">タグ3
	</div>
</form>

<?php if ( $the_query->have_posts() ) : ?>
<?php while ( $the_query->have_posts() ) : $the_query->the_post(); ?>
<?php
$terms = get_the_terms( $post->ID, 'product');
if ( !empty($terms) && !is_wp_error($terms) ) {
  foreach( $terms as $term ) :
    $term_array[$post->ID][] = $term->name;
  endforeach;
  $product = '"'.implode('","',$term_array[$post->ID]).'"'; 
} else {
  $product ="";
};

$terms = get_the_terms( $post->ID, 'tag');
if ( !empty($terms) && !is_wp_error($terms) ) {
  foreach( $terms as $term ) :
    $term_array[$post->ID][] = $term->name;
  endforeach;
  $tag = '"'.implode('","',$term_array[$post->ID]).'"'; 
} else {
  $tag ="";
};
?>

<li class="list_item" 
    data-category='[<?php echo $category; ?>]' 
    data-tag='[<?php echo $tag; ?>]'
>
  <a href="<?php the_permalink(); ?>">
    <h2><?php the_title(); ?></h2>
  </a>
</li>
<?php endwhile; ?>
<?php endif; ?>
```

script.js
```script.js
/****************************************************************
 * 絞り込み検索
 ****************************************************************/
var searchBox = '.search-box'; // 絞り込む項目を選択するエリア
var listItem = '.list_item';   // 絞り込み対象のアイテム
var hideClass = 'is-hide';     // 絞り込み対象外の場合に付与されるclass名

$(function() {
	// 絞り込み項目を変更した時
	$(document).on('change', searchBox + ' input', function() {
		search_filter();
	});
});

/**
 * リストの絞り込みを行う
 */
function search_filter() {
	// 非表示状態を解除
	$(listItem).removeClass(hideClass);
	for (var i = 0; i < $(searchBox).length; i++) {
		var name = $(searchBox).eq(i).find('input').attr('name');
		// 選択されている項目を取得
		var searchData = get_selected_input_items(name);
		// 選択されている項目がない、またはALLを選択している場合は飛ばす
		if(searchData.length === 0 || searchData[0] === ''|| searchData[0] === '') {
			continue;
		}
		// リスト内の各アイテムをチェック
		for (var j = 0; j < $(listItem).length; j++) {
			// アイテムに設定している項目を取得
			var itemData = get_setting_values_in_item($(listItem).eq(j), name);
			// 絞り込み対象かどうかを調べる
			var check = array_match_check(itemData, searchData);
			if(!check) {
				$(listItem).eq(j).addClass(hideClass);
			}
		}
	}
}

/**
 * inputで選択されている値の一覧を取得する
 * @param  {String} name 対象にするinputのname属性の値
 * @return {Array}       選択されているinputのvalue属性の値
 */
function get_selected_input_items(name) {
	var searchData = [];
	$('[name=' + name + ']:checked').each(function() {
		searchData.push($(this).val());
	});
	return searchData;
}

/**
 * リスト内のアイテムに設定している値の一覧を取得する
 * @param  {Object} target 対象にするアイテムのjQueryオブジェクト
 * @param  {String} data   対象にするアイテムのdata属性の名前
 * @return {Array}         対象にするアイテムのdata属性の値
 */
function get_setting_values_in_item(target, data) {
	var itemData = target.data(data);
	if(!Array.isArray(itemData)) {
		itemData = [itemData];
	}
	return itemData;
}

/**
 * 2つの配列内で一致する文字列があるかどうかを調べる
 * @param  {Array} arr1 調べる配列1
 * @param  {Array} arr2 調べる配列2
 * @return {Boolean}    一致する値があるかどうか
 */
function array_match_check(arr1, arr2) {
	// 絞り込み対象かどうかを調べる
	var arrCheck = false;
	for (var i = 0; i < arr1.length; i++) {
		if(arr2.indexOf(arr1[i]) >= 0) {
			arrCheck = true;
			break;
		}
	}
	return arrCheck;
}


```

style.css
```
.is-hide {
	display: none;
}
```