常連

### 前提・実現したいこと

いつもお世話になっております。
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を持たせることは可能でしょうか？

###前提・実現したいこと
C#プログラミングにおいて、
連番付きの変数があるとします。（string a1, string a2…など）
そもそもこんな変数の宣言をせずに、配列とか使えという話ですが、
どうしてもこういった実装を行わなければならない事態が発生しているので、そこは保留してください。
 
この連番の変数を、ループで回して１つずつ値を取得したいと考えています。
この連番はa1 ～ a99まであります。


```
string a1 = "AAA";
string a2 = "BBB";
 ・
 ・
 ・
string a99 = "ZZZ";

```
 
そういったことは出来るでしょうか？
また、出来るとしたらどのような方法・コードの書き方をすればよいでしょうか。
C#初心者です。
宜しくお願い致します。


【追記】
 
（修正依頼内容１）
失礼いたしました。
クラス/構造体のメンバです。

【C#】連番付きの変数をループで処理したい。

Excel2010でマクロ、VBAを使わずに自動で同じ文字を複数行に表示するための関数の組み方などを探しています。

環境情報
・Excel2010

背景
・Excelをユーザに渡して、メンテや回収は自主的にやってもらうため、プログラムやマクロなどを設定はしない。
・ユーザは関数は理解でき、自分でカスタマイズもできる前提。

質問
・Excelで任意の数字(n)を入力したときに、関数である列に指定された文字列(Name)を入力されたn数だけ、表示したい。
・考え方としては、COUNTIFで同じ列の文字のカウントを求める逆のパターン（カウントの分だけ表示）。
・No.は表示する順番ですが、こちらはある程度並び替えれるやり方（VLOOKUPなど）がわかっているので、対象外で問題ないです（必要なら組み合わせていただいてもかまいません）。

Sample
[http://imgs.link/ffAXkK.png](http://imgs.link/ffAXkK.png)

考えた対策とそのNG内容
・REPT関数を使用して、同じセルにNameをn個つなげることができますので、それを分解して、セルにおいていくことを考えましたが、実現は可能ですが、次の文字（AAAの次であるBBB)を表示するのが条件が複雑すぎて断念しました。
⇒試した関数（Sample）
 G2：=REPT(A2,C2)
 G3以降：=LEFT(G2,LEN(G2)-LEN(A$2))
 D列：=IF(A$2=LEFT(G2,LEN(A$2)),A$2)
 IF文でG2とG3を組み合わせればできますが、$を条件をIF等を使って分岐すると複雑になりすぎました。
・INDIRECT関数とMATCH関数を組み合わせると2文字目以降がやはり複雑になりすぎたため断念しました。

条件
・Sampleでは7までしかありませんが、No.は概ね100前後で、数量に変動あり。
・Countは1～300としています。つまり最大で１列の自動表示のNameは30000セル。
・計算領域は自由。
・Sampleの列や行に関してはどの列や行を利用するかは自由としてます（作業列の追加など）。

求めている目標
・必要なのはCount個のName（SampleのE列）であって、No.やCountの表示方法は不要です。
・あまりに複雑な関数を多くのセルに適用すると、重くなることはさける（NGにした要因もその一つ）。

よろしくお願いいたします。

Excelの関数で同じ文字をn行表示したい

### 前提・実現したいこと

python超初心者です。
pythonのmatplotlibを使って複数（n個）のグラフを作成したいです。

あるデータフレームの各列についてヒストグラムを表示させることを考えています。
（1つのグラフに複数のデータを表示するのではなく、1つのデータにつき1つのグラフで表示する。）
拘りはないのですがとりあえずfor文で作成を試みたのですが、各グラフのやり方がわかりません。

### 発生している問題・エラーメッセージ

```
  File "<ipython-input-179-9e56d29f5a92>", line 6
    ax(j) = plt.subplot2grid((n,1),(j,0))
    ^
SyntaxError: can't assign to function call
```

### 該当のソースコード

```python
n = len(df_wine.columns)

fig = plt.figure(figsize=(4,8))

for j in range(n):
    ax(j) = plt.subplot2grid((n,1),(j,0))

#上記を例えばfor文を使わず1つずつ作成するならこういうこと
#fig = plt.figure(figsize=(4,8))
#ax1 = plt.subplot2grid((2,1),(0,0))
#ax2 = plt.subplot2grid((2,1),(1,0))
#ax1.hist(df_wine['fixed acidity'])
#ax2.hist(df_wine['volatile acidity'])

```

### 試したこと

グラフのオブジェクト(ax)に(j)で附番することが構文エラーなのはわかりましたがどうやってaxに附番すればいいのかわかりません。

最初に書いた通りforループにこだわりはないので全く異なる解決方法で複数グラフをn個表示しても大丈夫です。

### 補足情報（FW/ツールのバージョンなど）

初めて投稿するのでかってがわかりません。
失礼がありましたらご指摘いただければ直します。

forループを使ったmatplotlibのn個のグラフ表示

例えばこんなふうなコードを書いたとすると、変数dogの中身がどんどん更新されていってしまいますよね。
``` python
class Animal():
    def __init__(self, h, n):
        self.height = h
        self.leg_num = n
    def walk(self):
        pass
    def run(self):
        pass

animal_data = [ [20,4], [100,2], [50,4] ]

for  h, n in animal_data:
    dog = Animal(h, n)

dog.walk()
print(Animal.height)
```

こんなときに、変数の名前をfor文の中で毎回変えたりすることはできないのでしょうか？
配列を使うといいよと言われたことがあるのですが、いまいち理解できませんでした。
易しく教えてくださると嬉しいです。

ループの中で変数名を変えたい

forループに関して、初歩的な質問です。いろいろ試したり調べたりしたのですが、解決しないので、ご教授願います。

・課題
「1から100までの間で、3の倍数の数だけ表示してください」

・自分のコード
<!DOCTYPE html>
<html lang="ja">
<head>
   <meta charset="UTF-8">
   <title>t</title>
</head>
<body>
   <script>
    for(var i=0;i<=100&&i%3===0;i++){
        document.write(i);
    }
  　</script>
</body>
</html>
```ここに言語名を入力
JAVASCRIPT
ソースコード
```

・困っていること
上記のコードで正しいと思っていたのですが、　0(ゼロ)　とだけ表示されてしまいます。
ちなみに、この後この３の倍数を足した合計の数値を表示させなければなりません。
ですが、そもそも、３の倍数だけを表示させることができなくて、困っています。

0～１００までの間で、３の倍数だけを表示させたい

皆様はじめまして。よろしくお願いいたします。
ＶＢＡやプログラム言語は全く初めてです。
初歩的なことで躓くことが多く、お忙しいとは存じ上げますが、ご教授いただければ幸いです。

画像を添付いたします。
ワークシートチェンジで、単純に、
Ｔ１の内容をＴ10に転記するとしたいのですが、

「Rangeメソッドは失敗しました　Worksheetオブジェクト」と何度やっても表示されます。
調べてみると、無限ループしているとか、なんとか、、、でちんぷんかんぷんです。
単純な処理をしているだけと思っているのですが、何が間違っているのか、ご教示いただければ幸いです。
![イメージ説明](bd9130b7ad59ee08a2381446a7c10552.png)

「Rangeメソッドは失敗しました　Worksheetオブジェクト」のエラーの解決方法

SeleniumのPythonのforループで以下のエラーの回避方法をご教示ください。

```Python
hoges = driver.find_elements(By.XPATH, '//*[@id="form1"]/table/tbody/tr')
for hoge in hoges:
    hoge.find_element(By.XPATH, 'td[2]/a').click()
    
    # 処理内容
    
    driver.find_element(By.XPATH, '//*[@id="wrapper"]/div[2]/form/div[3]/input[1]').click() # 前のページに戻る
    time.sleep(2)
```
1つの目の処理は想定にでき、その後、以下のエラー文が表示されます。

selenium.common.exceptions.StaleElementReferenceException: Message: stale element reference: element is not attached to the page document

なお、「hoge.find_element(By.XPATH, 'td[2]/a').click()」のリンク先はPOSTで送信されているため、hrefの値を取得することよって遷移することはできません。