kumadayoのプロフィール

EXCELVBAで非表示にしてあるワークシートをVisibleにするよう記述していますが、たまになぜかVisibleプロパティを変更できません。となります。これは、VBEditorのプロパティウィンドウで手動でもできません。また、いったんファイルを閉じてもう一度開きなおして実行するとうまくいくことがあります。 もう１点、フォーム上のラベルの名前を初期名から変更して保存したのに、ラベル名がまた初期値（Lable1 など）になります。さらに、私のパソコンと、上司のパソコンで同時に開いてみると、上司のパソコンではラベル名が初期値になっており、私のパソコンでは変更後のラベル名になっているということが起きています。（ラベルを表示・非表示するコードを書いているのに、ラベル名が変わってしまうので、制御できません。） これはなぜなのでしょうか？

sheet1からsheet2にセル２箇所を転記するのにコマンドボタンを使用しています。 sheet2の転記先はB5,B6で固定しています。 sheet1にあるコマンドボタンは ２つのグループに５つずつ 合計１０個あります。 ２つのグループというのは sheet1の転記元のグループわけのことです。 すなわち buttun1はsheet1のA1,A2 buttun2はsheet1のA1,A3 buttun3はsheet1のA1,A4 buttun4はsheet1のA1,A5 buttun5はsheet1のA1,A6 buttun6はsheet1のB1,B2 buttun7はsheet1のB1,B3 buttun8はsheet1のB1,B4 buttun9はsheet1のB1,B5 buttun10はsheet1のB1,B6 をそれぞれ転記します。 現在これを Private Sub CommandButton1_Click() Worksheets("sheet2").Range("B5") = Worksheets("sheet1").Range("A1") Worksheets("sheet2").Range("B6") = Worksheets("sheet1").Range("A2") End Sub といったような式をすべてのボタンに適用しています。 当然ながらエディターはかなりごちゃごちゃしてます。 今はいいのですが、グループが増えたとき、グループ内の項目がふえたりしてボタンが４０くらいになったら、わけがわからなくなりそうなのです。 これを変数か何かをつかって、すっきりと更新しやすいコードはないものでしょうか？ 皆様ご教授よろしくおねがいします。

WIn2000　と　WindowXP において、 Ｅxcel　VBA　で、現在、ログインしているアカウント（ユーザー）名を取得して、表示させたいのですが、どうすればいいのですか？ 見よう見まねの独学なので初心者の域をでていませんので、宜しくお願いします。

下記のようにAccess 2000のVBからDAOを使ってテーブルを作っておりますが、 作るフィールドに規定値の設定もVBからできないのでしょうか？DAOだと無理なのでしょぅか？ 教えてください Dim db As DAO.Database Dim tbdef As DAO.TableDef Dim flID As DAO.Field Set db = CurrentDb Set tbdef = db.CreateTableDef("テーブル") Set flID = tbdef.CreateField("ID", dbInteger) 　　tbdef.Fields.Append flID 　　db.TableDefs.Append tbdef db.Close: Set db = Nothing

Excelの関数には、MODという関数がありますが、Accessにはそのような関数がありませんね。 intやroundはあるのに。 皆様はどのようにして余りを求められているのでしょうか？ VBAでユーザー関数を作るのは面倒なので、関数だけで処理したいのですが。