ja7awu の回答履歴

Excel2000を使って、出庫実績表を作っています。 その表は、注文番号ごとにシートを分けて管理しています。 現在シートは10枚程度です。 各シートのフォーマット（項目名・開始位置・書式など）は全て同じですが、 データの個数（行数）はバラバラです。 これらのシートの内容を、元のシートはそのままにして、 同じブック内の新しいシートに１つにまとめたいのです。 この時、特に並べ替え・集計などは必要無く、 ただ、シート１の内容の下にシート２の内容、その下にシート３の内容... といった感じで、ただデータを下に続けてコピーさせたいだけです。 （もちろん、シート２からの項目名は要りません。データの内容のみのコピーです） 簡単に出来る方法は無いでしょうか？ ご教授いただきたく、よろしくお願いします。m(__)m

Access97を使用しています。 フォーム上のテキストBOXにデータをモジュールで入力するのですが その際、テキストBOXの幅より大きいデータが入った場合、 出てしまいます。 この時、モジュールで自動調整する方法はあるのでしょうか？ 要望としては、文字数が多い場合、自動でフォントサイズを小さくする　です。

EXCELで困ってます。 複数の列にあるデータをカウントしたいのです。 例えば↓の様なデータがあります。 名前　値　　値　　値　　値 あか　1-1 　1-2 　2-5 　7-3 あお　7-3 　8-3 　1-1 かい　2-5 　7-3 　8-3 　1-2 　 うみ　1-2 　2-5 　7-3 どんな値が何個あるのか？ その値はどの名前にあるのか？ オートフィルタを使ったり、 ピボットテーブルを利用したりしましたが、 なかなかうまく出来ません。 例だと、 値　個数　名前 1-1　2　　あか　あお 1-2　3　　あか　かい　うみ　 2-5　3　　あか　かい　うみ 7-3　4　　あか　あお　かい　うみ 8-3　2　　あお　かい 以上のような感じのものが欲しいのです。 別のシートに出来ると嬉しいです。 実際は、値の列が１０個あります。 名前は、1000個ぐらいあります。 どうか、よろしくお願いします。

ACCESSのデータを読み込み、エクセルの元帳からレイアウトをコピー、新しいExcelのSheetにレイアウトとデータを書き込もうとしていますがうまく動きません。どこが悪いのでしょうか？次のように書きました。 Private Sub NEW_BOOK() Dim xlBookOrig As Workbook Dim xlBookNew As Workbook Dim xlSheetOrig As Worksheet Dim xlSheetNew As Worksheet Set xlApp = CreateObject("Excel.Application") xlApp.Application.Visible = True Set xlBookOrig = xlApp.Workbooks.Open("C:\元帳.xls") Set xlSheetOrig = xlBookOrig.Worksheets(1) Set xlBookNew = xlApp.Workbooks.Add Set xlSheetNew = xlBookNew.Worksheets(1) xlSheetOrig.Copy xlSheetNew.Paste xlSheetNew.Name = Left$(strMODL, 9) xlSheetNew.Cells(5, 1).Value = strSTAT xlSheetNew.Cells(4, 3).Value = strITEM ..... xlSheetNew.SaveAs "C:\'" & Left$(strMODL, 7) & "'.xls" これで実行すると、BOOK1 BOOK2 の2つが生成され、 BOOK1にはSHEET名、各データが書き込まれ、BOOK2には元帳のレイアウトがコピーされレイアウトとデータが一つになりません。 どこが間違っているのでしょうか？ 宜しくお願いします

ACCESSのデータを読み込み、エクセルの元帳からレイアウトをコピー、新しいExcelのSheetにレイアウトとデータを書き込もうとしていますがうまく動きません。どこが悪いのでしょうか？次のように書きました。 Private Sub NEW_BOOK() Dim xlBookOrig As Workbook Dim xlBookNew As Workbook Dim xlSheetOrig As Worksheet Dim xlSheetNew As Worksheet Set xlApp = CreateObject("Excel.Application") xlApp.Application.Visible = True Set xlBookOrig = xlApp.Workbooks.Open("C:\元帳.xls") Set xlSheetOrig = xlBookOrig.Worksheets(1) Set xlBookNew = xlApp.Workbooks.Add Set xlSheetNew = xlBookNew.Worksheets(1) xlSheetOrig.Copy xlSheetNew.Paste xlSheetNew.Name = Left$(strMODL, 9) xlSheetNew.Cells(5, 1).Value = strSTAT xlSheetNew.Cells(4, 3).Value = strITEM ..... xlSheetNew.SaveAs "C:\'" & Left$(strMODL, 7) & "'.xls" これで実行すると、BOOK1 BOOK2 の2つが生成され、 BOOK1にはSHEET名、各データが書き込まれ、BOOK2には元帳のレイアウトがコピーされレイアウトとデータが一つになりません。 どこが間違っているのでしょうか？ 宜しくお願いします

私はアクセス2000を使っていますが、わからない事があるのでお願いします。 ACCESSのテーブルに、[誕生日]をフィールドに設定して、[年齢]を後から追加しました。クエリの演算フィールドで、例えば、 年齢:Year(date())-Year([誕生日]) とすると、年齢が求まるように、 テーブルにおいても、年齢フィールドにそのような計算の結果としての年齢を求めたいのです。 クエリでは演算フィールドに、クエリビルダーから計算式を使って年齢をもとめられるのですが、テーブルで年齢を求める場合のやり方がわかりません。 お分かりの方教えて下さい。 宜しくお願いします。

WIN98SEでエクセル2000を使用しています。 ダイアログボックスを使って、選択したファイル（複数）のフルパスを取得したいのですがどうすればよいでしょうか？

　現在時刻をその都度(毎秒)表示するには、どうすればいいですか？ 　良い方法があれば教えてください。

(1)excel97にのVBAでフォームを作成します。 デフォルトの場合はUserForm1という名前がつきます。 (2)標準モジュールとして下記のコードを作成します。 Sub ボタンを付けて表示() Dim btn As Control 　With UserForm1 　　　 　　’ボタンを"button"という名前で作成します 　　Set btn = .Controls.Add("Forms.CommandButton.1", "button") 　　’ボタンの設定をします 　　With btn 　　　.Top = 5 　　　.Left = 5 　　　.Height = 20 　　　.Width = 200 　　　.Caption = "push me!" 　　End With 　　’フォームの設定をし、表示します 　　.Height = 60 　　.Width = 220 　　.Show 　End With End Sub (3)マクロを実行するとフォームが表示されます。 そこでこのボタン（"push me!"と表示されています）をクリックします。 このクリックを検知してマクロを動かしたいのですが可能でしょうか？ なおUserForm1に下記のコードを付けてみたのですがクリックは検知できませんでした。 Private Sub button_Click() 　MsgBox "You click the button." End Sub

　現在時刻をその都度(毎秒)表示するには、どうすればいいですか？ 　良い方法があれば教えてください。

　現在時刻をその都度(毎秒)表示するには、どうすればいいですか？ 　良い方法があれば教えてください。

今A1のセルに10文字以内の全角の文字列が入っています。 この文字列をばらしてそれぞれ先頭文字から一つづつ セルに格納していきたいのですが可能でしょうか？ （例） A1のセルに”はじまして”の文字列が入っている これをばらして A2のセルには "は" B2のセルには "じ" C2のセルには "め" D2のセルには "ま" E2のセルには "し" F2のセルには "て" と入れたいのですが、やり方ご存知の方教えて頂けないでしょうか？よろしくお願い致します

コマンドプロンプトを最大化しても画面一杯になりませんよね。コマンドプロンプトのプロパティから起動オプションを指定する事になる訳ですが、これまた上手く画面一杯になってくれません。縦にスクロールが出たり横にズレたりと、数値もリミットがあったりと謎です。何か良い方法ありませんか。

アクセスで作成したクエリーをエクセルに出力します。フォームに作成したコマンドボタンを押すと、マクロが起動して、マクロで指定してあるフォルダにエクセルが出力されます。出力先にすでに同名のブックがある場合、「すでファイルが存在しています。上書きしますか。」と、いうメッセージが表示されますが、このメッセージを表示せずに無条件ですでに存在するファイルに上書きをしたいと思います。 メッセージを表示しない方法はありますか。一番いいのは,マクロ内でこのメッセージの非表示を指定できるのがいいのですが。 よろしくお願いします。

　エクセルなどのファイルでマクロを使っている場合確認のアラートがでてくると思います。 　これを特定のファイルだけでないようにする方法ってないのでしょうか？

　エクセルなどのファイルでマクロを使っている場合確認のアラートがでてくると思います。 　これを特定のファイルだけでないようにする方法ってないのでしょうか？

アクセスで作成したクエリーをエクセルに出力します。フォームに作成したコマンドボタンを押すと、マクロが起動して、マクロで指定してあるフォルダにエクセルが出力されます。出力先にすでに同名のブックがある場合、「すでファイルが存在しています。上書きしますか。」と、いうメッセージが表示されますが、このメッセージを表示せずに無条件ですでに存在するファイルに上書きをしたいと思います。 メッセージを表示しない方法はありますか。一番いいのは,マクロ内でこのメッセージの非表示を指定できるのがいいのですが。 よろしくお願いします。

エクセル2000で上書き保存したはずのファイルが、上書き保存されてませんでした。 上書き保存をしたファイルを見つけたいのですがどうしたらいいのでしょうか？ ファイル名で検索や日付で検索しても見つかりませんでした。 ご教授宜しくお願いします。

アクセスで作成したクエリーをエクセルに出力します。フォームに作成したコマンドボタンを押すと、マクロが起動して、マクロで指定してあるフォルダにエクセルが出力されます。出力先にすでに同名のブックがある場合、「すでファイルが存在しています。上書きしますか。」と、いうメッセージが表示されますが、このメッセージを表示せずに無条件ですでに存在するファイルに上書きをしたいと思います。 メッセージを表示しない方法はありますか。一番いいのは,マクロ内でこのメッセージの非表示を指定できるのがいいのですが。 よろしくお願いします。

エクセルで入力していたら、突然数字が消えてしまい、このプログラムは不正な処理を行ったので強制終了しますっていうメッセージがでてきました。 この場合、入力したものはどこかに残ってないのでしょうか？ また自動的にバックアップする設定とかはできないのでしょうか？