1 / 8

Dim str As String ' 文字列格納用 str = ActiveCell.Value ' アクティブセルの内容を str

Dim str As String ' 文字列格納用 str = ActiveCell.Value ' アクティブセルの内容を str ListBox1.AddItem (str) ' に代入し、リストに追加 ListBox1.Value = str. Dim str As String str = ListBox1.Value ' リストボックスの内容の取得 ActiveCell.Value = str ' アクティブセルに表示. ListBox1.RemoveItem (0) ' リストの先頭の削除. ListBox1.Clear

stephen-maldonado
Download Presentation

Dim str As String ' 文字列格納用 str = ActiveCell.Value ' アクティブセルの内容を str

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Dim str As String '文字列格納用 str = ActiveCell.Value 'アクティブセルの内容をstr ListBox1.AddItem (str) 'に代入し、リストに追加 ListBox1.Value = str Dim str As String str = ListBox1.Value 'リストボックスの内容の取得 ActiveCell.Value = str 'アクティブセルに表示 ListBox1.RemoveItem (0) 'リストの先頭の削除

  2. ListBox1.Clear ListBox2.Clear ListBox1.AddItem ("青方偏移") ListBox1.AddItem ("ワープ") ListBox1.AddItem ("バリヤー") ListBox1.Clear ListBox2.Clear ListBox1.AddItem ("A.オリゼー") ListBox1.AddItem ("C.トリコイデス") ListBox1.AddItem ("A.アセチ") ListBox1.Clear ListBox2.Clear ListBox1.AddItem ("錬金術") ListBox1.AddItem ("ポリウォーター") ListBox1.AddItem ("窒素爆弾")

  3. Dim a, b(4) As String Dim i As Integer a = ListBox1.Value'左のリストボックスで選択されている項目名 '生物学用語 If a = "A.オリゼー" Then b(1) = "学名：Aspergillus oryzae" b(2) = "和名：ニホンコウジカビ" b(3) = "澱粉を糖に分解する。" b(4) = "日本酒を作るときにかもしまくり" End If If a = "C.トリコイデス" Then b(1) = "学名：Cladosporium trichoides" b(2) = "和名：クラドスポリウム" b(3) = "お風呂の黒ずみの原因。" b(4) = "アニメではムーディ勝山が声を担当" End If If a = "A.アセチ" Then b(1) = "学名：Acetobacter aceti" b(2) = "和名：酢酸菌" b(3) = "ビールや日本酒を酢に変える。" b(4) = "醸造酒をかもすぞー！" End If '化学用語 If a = "錬金術" Then b(1) = "Alchemy" b(2) = "化学(Chemistry)の語源。" b(3) = "鉛等の卑金属から金等の貴金属を創る学問。" b(4) = "最新科学ではこれも可能だったり。" End If

  4. If a = "ポリウォーター" Then b(1) = "1966年にソ連で発見された。" b(2) = "水分子が重合しており、通常の水と物性が異なる。" b(3) = "新しい工業に発展すると期待されたが・・・" b(4) = "実はただの不純物による誤確認だった。" End If If a = "窒素爆弾" Then b(1) = "窒素を1700℃、110万気圧で圧縮すると" b(2) = "ポリ窒素になると言われ、原爆を上回る爆弾になる。" b(3) = "現在の科学では、作製は不可能。" b(4) = "エヴァンゲリオンを始め、多くのSFで登場する。" End If '物理学用語 If a = "青方偏移" Then b(1) = "英単語:blueshift" b(2) = "光のドップラー効果で、近づく物体が青く見える現象。" b(3) = "分光学では、短波長シフトのことを指す。" b(4) = "" End If If a = "ワープ" Then b(1) = "空間の歪みを利用した超光速移動。" b(2) = "SFではほぼ必ず出てくる。" b(3) = "空間歪曲に莫大なエネルギーが必要なため、" b(4) = "実際は不可能とされている。" End If If a = "バリヤー" Then b(1) = "英単語：varrier、deflector shield(偏向シールド)" b(2) = "量子ビームや重力場などにより、主に物理的攻撃を遮断。" b(3) = "SFではほぼ必須の技術。" b(4) = "なぜか音を立てて割れる。" End If 続き

  5. ListBox2.Clear For i = 1 To 4 ListBox2.AddItem (b(i)) Next 続き

  6. スケジュール帳 偶数、奇数の仕分け 左列の数列をListFillRangeプロパティで コンボボックスに取り込み、 選択した数字を偶数、奇数で仕分け プログラムは簡易クリップボードと同じ 以前のレポートの時間割と組み合わせて、 スケジューラとしての使用を提案 ことわざ辞典 プログラムは簡易辞書とほぼ同等 辞典系のプログラムはデータベースが命

More Related