|
初めて編みぐるみに挑戦です！ こまかいパーツが多いのでなかなか思い通りにいきません。
を作るはずですがやっと雌猫（たぶん）だけ編めました。 寂しくないように早く相手も編んであげないと…
|
|||
過去の投稿日別表示
[ リスト | 詳細 ]
2006年02月25日
全1ページ
[1]
コメント（16）
|
メニューの〔ツール〕→〔マクロ〕→〔Ｖisual Ｂasic Ｅditor〕を選択します メニューの〔挿入〕→〔標準モジュール〕で 〔標準モジュール〕が右の編集欄に表示されたら〔名前〕に〔search〕と入力して 〔ＯＫ〕を押します Public Sub search（）が作成されますのでそこへ Dim param1 As String Dim data As String Dim i As Integer data = "データがありません" i = 0 param1 = Sheet1.Cells(2, 6).Value For i = 2 To 11 Step 1 If param1 = Sheet1.Cells(i, 1).Value Then data = Sheet1.Cells(i, 2).Value Exit For End If Next Sheet1.Cells(6, 6) = data と記述します 保存します。 【ＶＢＡを実行するためのボタンを作る】 〔四角形〕を描き〔テキストの追加〕で〔ボタン〕に表示する文字を入力します 〔四角形〕を選択状態にして〔右〕クリックでメニューから〔オートシェイプの書式設定〕を選択します 〔色〕や〔文字〕の配置を設定したら完了します 【マクロの登録画面から選択する】
〔四角形〕の枠を選択状態にして〔右〕クリック〔マクロの登録画面〕が表示されたら 上で作成した〔search〕を選択して〔ＯＫ〕を押します 保存します |
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- パソコン
全1ページ
[1]
