gootara555のプロフィール

Excel2003、VBAにて。 シートを自動で追加し、追加したシートのA1セルに全シート数を設定する方法が分かりません。 どなたか教えてください。

バックカントリースノーボードの入門にオススメの場所はありませんか？ 都内から日帰り圏内でお願いします。

「リンクを“はる”」は「張る」でしょうか「貼る」でしょうか? 過去にも同様の質問(http://okwave.jp/qa/q1511687.html)がありましたが 常用漢字の改定で「貼」が含まれるようになったので改めて質問します。 HTMLなどの記述子を書き込むこと自体を「貼る」と言うのはわかりますが 「張り巡らす」というようなニュアンスで「張る」と使用したときに 誤字だと指摘されたら嫌なので…。

複数の条件を満たすレコード検索教えてください！ 現在フォームのコマンドボタンでサブフォームの絞込みを下記のコードで行っています・・・が、 ”顧客コード”と”顧客名”を同時に入力して検索すると”顧客コード”を無視して”顧客名”だけを 検索してしまいます、複数の条件を全て満たすにはどうすれば良いか教えてください。 よろしくお願いいたします。 Private Sub cmd検索_Click() If Not IsNull(txt顧客コード) Then S顧客.Form.Filter = "顧客コード like '" & txt顧客コード.Value & "'" S顧客.Form.FilterOn = True End If If Not IsNull(cmb顧客区分) Then S顧客.Form.Filter = "顧客区分 like '" & cmb顧客区分.Value & "'" S顧客.Form.FilterOn = True End If If Not IsNull(txt顧客名) Then S顧客.Form.Filter = "顧客名カナ like '*" & txt顧客名.Value & "*'" S顧客.Form.FilterOn = True End If

エクセルVBAでsheet1!B2:B10までの値をsheet2!B2:K2にコピーする方法を教えて下さい。