x0000x の回答履歴

見積書を作成しているんですが、1枚目のシート（見積書）に明細が書ききれなかった時に、マクロを実行すると、『明細書』と言う名前のシートが(1)～(5)枚目まで追加され、各シートの小計を1枚目のシートに書き出す・・・と言うマクロを作りたいのですが、うまくいかずに困っています＞＜ 追加されるシートの元となる『見積もりマスター』と言うシートがあって、そのシート内でそれぞれのシートの小計は取れるのですが・・・ 下記のマクロの中に何か追加すればうまくいく方法はありますか？？ （明細書は追加する時もあれば追加しない時もあってその都度、使う人が、最大5枚まで何枚追加するかを決めるそうです。） Sub Macro1() Dim cnt As Integer Dim wkNum As Double Dim ws As Worksheet 　For Each ws In Worksheets 　　If Left(ws.Name, 4) = "明細書(" Then 　　　If IsNumeric(Mid(ws.Name, 5, 1)) Then 　　　　wkNum = Val(Mid(ws.Name, 5, 1)) 　　　　If cnt < wkNum Then 　　　　　cnt = wkNum 　　　　End If 　　　End If 　　End If 　Next ws 　If cnt >= 5 Then 　　MsgBox ("明細書シートが既に５枚以上あるため追加できません") 　　Exit Sub 　Else 　　Sheets("明細マスター").Copy after:=Sheets(Worksheets.Count) 　　ActiveSheet.Name = "明細書(" & cnt + 1 & ")" 　End If End Sub マクロ自体をあまり理解できてなくて、会社の人や、ここで教えていただいて進めているので、出来ればそのままコピーして使用できるようにしていただけるとありがたいです。 よろしくお願いします。

リストボックスの列幅で2cm;3.81cm;3.81cm;2.51cm;4cm;2.505cm;2.51cm;2.51cm;2.51cm;2.702cm;3.3cm;2cmとあります。最後の2cmが表示されてもスクロールでずっと右までいきます。もちろん何もデータは入っていません。データが入っている2cmまで表示したらもう右部分にスクロール自体出来なくていいのですが、・・・2.702cm;3.3cm;2cmときて、2cmまで見たら、もうそれ以上は右にスクロールできなくなるようなつくりには出来ないのでしょうか？何か方法はあるのでしょうか。それともしょうがないことなのでしょうか？初歩的な質問ですみません。出来るのであれば教えてください。宜しくお願いいたします。

3週間ぐらい前から 指や手のひらに痒みを伴う腫れが出来ます。 それはずっと同じところではなく その日その日で場所を移動し、 指の先から根元、手首の辺りまで左右様々です。 （多いのは指。） 指を曲げたり、箸や鉛筆の当たり所が悪いと少し痛みますが それ以外は痛みはほとんどありません。 （腫れているためジンジン痺れた感じはあります。） 時間帯は夕方が酷いです。 また、3週間と書きましたが 症状が出なかった日もちらほらあり、 最長5日くらい症状が出なかったこともあります。 病院で観てもらおうと思うのですが どういう病気（？）で、何科に行けば良いか分かりません。 教えてください、お願いします。

ワードで写真を貼り付けてポップを作りたいのですが、A4の用紙に 余白なしの状態で紙全体に写真を貼り付けたいのですが、 周りに少しづつ余白が出てしまいます。 何か良い方法はあるでしょうか？ お願いします。

Aceess2003にて在庫管理の.mdbファイルを作成しました。 2人で共有すれば十分なので、ネットワーク上のHDDにそのファイルを置いて共有をテストしてみました。 すると、片方のユーザ(PC)で開いているときは問題なく二人でファイルにアクセスできるのですが、 もう片方のユーザ(PC)が先に開いていると残りの一人のユーザはファイルを開く事ができませんでした。 分かりにくいかもしれませんので、以下に状況をまとめてみます。 ・mdbファイルを共有したいPCの台数は2台 ・各PCのユーザーアカウントは別々である(仮にA,Bとします) ・Aはデータベースの製作者である ・Aが共有HDD上のmdbファイルを先に開いているときにBは同じ共有HDD上のmdbファイルを開く事ができた ・同じように先にBがmdbファイルを開き、そのままAがファイルを開こうとすると、開く事ができない ・前項で開く事ができないときの状況は「無反応」であり、何らかのメッセージが表示される事はない ・状況の発生後、再びA→Bの順番ではmdbファイルを共有して開く事はできる 要するにBがファイルを先に開いてるときはAはファイルを開く事ができないということなのですが、逆ができる以上なぜそうなるのかが分かりません。 原因に心当たりがありましたら、是非教えて頂ければ助かります。 よろしくお願い致します。

Aceess2003にて在庫管理の.mdbファイルを作成しました。 2人で共有すれば十分なので、ネットワーク上のHDDにそのファイルを置いて共有をテストしてみました。 すると、片方のユーザ(PC)で開いているときは問題なく二人でファイルにアクセスできるのですが、 もう片方のユーザ(PC)が先に開いていると残りの一人のユーザはファイルを開く事ができませんでした。 分かりにくいかもしれませんので、以下に状況をまとめてみます。 ・mdbファイルを共有したいPCの台数は2台 ・各PCのユーザーアカウントは別々である(仮にA,Bとします) ・Aはデータベースの製作者である ・Aが共有HDD上のmdbファイルを先に開いているときにBは同じ共有HDD上のmdbファイルを開く事ができた ・同じように先にBがmdbファイルを開き、そのままAがファイルを開こうとすると、開く事ができない ・前項で開く事ができないときの状況は「無反応」であり、何らかのメッセージが表示される事はない ・状況の発生後、再びA→Bの順番ではmdbファイルを共有して開く事はできる 要するにBがファイルを先に開いてるときはAはファイルを開く事ができないということなのですが、逆ができる以上なぜそうなるのかが分かりません。 原因に心当たりがありましたら、是非教えて頂ければ助かります。 よろしくお願い致します。

Aceess2003にて在庫管理の.mdbファイルを作成しました。 2人で共有すれば十分なので、ネットワーク上のHDDにそのファイルを置いて共有をテストしてみました。 すると、片方のユーザ(PC)で開いているときは問題なく二人でファイルにアクセスできるのですが、 もう片方のユーザ(PC)が先に開いていると残りの一人のユーザはファイルを開く事ができませんでした。 分かりにくいかもしれませんので、以下に状況をまとめてみます。 ・mdbファイルを共有したいPCの台数は2台 ・各PCのユーザーアカウントは別々である(仮にA,Bとします) ・Aはデータベースの製作者である ・Aが共有HDD上のmdbファイルを先に開いているときにBは同じ共有HDD上のmdbファイルを開く事ができた ・同じように先にBがmdbファイルを開き、そのままAがファイルを開こうとすると、開く事ができない ・前項で開く事ができないときの状況は「無反応」であり、何らかのメッセージが表示される事はない ・状況の発生後、再びA→Bの順番ではmdbファイルを共有して開く事はできる 要するにBがファイルを先に開いてるときはAはファイルを開く事ができないということなのですが、逆ができる以上なぜそうなるのかが分かりません。 原因に心当たりがありましたら、是非教えて頂ければ助かります。 よろしくお願い致します。

今月はじめ頃から、何もしていない時でも尿道口（尿等が出る口周辺）が チクチク？ヒリヒリ？するのです。（♂です。） 排尿時や精通時に尿道等に痛み等の違和感はありません。 また、性器そのものに外観的に異変はありません。 1週間ほど前に、風邪の症状が出て、病院に行きました。 この症状も話して、尿検査をしたのですが、特に問題ないとの回答でした。 （風邪と診断されました。） 性感染症では？と言う気もするのですが、その可能性はあるのでしょうか？ なにか思いつく方がいらっしゃいましたが よろしくお願いします。

　TEXTで書かれている文章があるのですが、メールで送ってきたために、かなり改行が入っています。この改行ブロック単位でを削除したいのですが、何か良い方法はないでしょうか？ 　ブロック単位でとは、例えば、１～５行を１行として結合し（当然、行数での折り返しは出来ますが）、６，７行は、そのままで、８～２２行までをまた結合するという感じです。 　ご指導の程よろしく願います。

アクセス初心者です。（2003です） 商品コードのテーブルから、 32個のキーワードを含むものを抽出したいです。 商品コードの中のキーワードの位置は 先頭や最後など決まりはなく、バラバラです。 クエリの抽出条件の欄が9個しかないので、 9個ずつバラバラにクエリを作ってみました。 *02S* *05F* ... ... というふうに条件を並べています。 この３つのクエリ結果を エクセルに出してはっつけて1枚のマスターに しようかと思っていますが… かなり手作り感があふれていて…(^^;)汗汗 もうちょっと単純な方法はないでしょうか？ また、なんだか心配なので エクセルでテーブルをフィルタにかけ キーワードを一個ずつ抽出してみましたが アクセスで出た結果と違います…。（エクセルのが少ないです） 重複するキーワードがあるからかと思い ピボットで見ても、重複は4件しかありません。 クエリを分けているからでしょうか？ どっちが正しいのでしょうか？ 自分の作ったデータにまったく信頼が持てません。。。（--；） これを出さないと退社できないのですが チーム内に誰もいないので困っております。 助っ人お願い致しますm(__)m

Aceess2003にて在庫管理の.mdbファイルを作成しました。 2人で共有すれば十分なので、ネットワーク上のHDDにそのファイルを置いて共有をテストしてみました。 すると、片方のユーザ(PC)で開いているときは問題なく二人でファイルにアクセスできるのですが、 もう片方のユーザ(PC)が先に開いていると残りの一人のユーザはファイルを開く事ができませんでした。 分かりにくいかもしれませんので、以下に状況をまとめてみます。 ・mdbファイルを共有したいPCの台数は2台 ・各PCのユーザーアカウントは別々である(仮にA,Bとします) ・Aはデータベースの製作者である ・Aが共有HDD上のmdbファイルを先に開いているときにBは同じ共有HDD上のmdbファイルを開く事ができた ・同じように先にBがmdbファイルを開き、そのままAがファイルを開こうとすると、開く事ができない ・前項で開く事ができないときの状況は「無反応」であり、何らかのメッセージが表示される事はない ・状況の発生後、再びA→Bの順番ではmdbファイルを共有して開く事はできる 要するにBがファイルを先に開いてるときはAはファイルを開く事ができないということなのですが、逆ができる以上なぜそうなるのかが分かりません。 原因に心当たりがありましたら、是非教えて頂ければ助かります。 よろしくお願い致します。

現在下記のような表があります。 　　　　　Ａ　　　　　Ｂ　 　１｜　５月１日　６８００ 　２｜　５月２日　３５００ 　　　・ 　　　・ 　　　・ ３１｜５月３１日　４８００ ３２｜　６月１日　５０００　　　　＊Ａ、Ｂ、１｜、２｜などはセル番号 このような表が続いており、月ごとに合計を出したいのですが、 どのようにしたら良いでしょうか。

エクセルの１つのブックに複数の名前がついたシートがあり、その各シート毎にシート名のブックに分割したいのです。 シートが少なければ手作業で分割するのですが、100枚近くのシートがあるので、できればマクロで一括処理できれば助かるのですが。 過去ログで複数のブックのシートを一つのブックにまとめる事例がありましたので、その逆もできると思うのですが。 よろしくお願いします。

現在下記のような表があります。 　　　　　Ａ　　　　　Ｂ　 　１｜　５月１日　６８００ 　２｜　５月２日　３５００ 　　　・ 　　　・ 　　　・ ３１｜５月３１日　４８００ ３２｜　６月１日　５０００　　　　＊Ａ、Ｂ、１｜、２｜などはセル番号 このような表が続いており、月ごとに合計を出したいのですが、 どのようにしたら良いでしょうか。

　はじめまして。検索して同種の問題が見当たらなかったため、質問させてください。 　エクセルで、別シートを参照しているセルの調査と抽出を手作業で行っています。 　シートの中には別シートのセルを参照・計算しているセルと、同一シート内での計算のみを行っているセルがあります。法則のあるものもないものもあり、数百行を検索と目視でまかなっております。 　これが 数十ファイル×十数シート あり、手作業に時間の足りなさとつらさを感じ始めております…… 　エクセルのシートの中で、別シートを参照しているセルの抽出を行いたいです。 　セルの色を変更し、セル名（A17 など）とセルの値（='Bシート'!A17 など）を別のファイルなどに出力したいんです。 　イメージとしては、数式として「!」を検索したときの検索結果と同じだと思うんですが、検索ではセル名と値をコピーができなかったために困っています。 　どなたかご教授いただければと思います。よろしくお願いします。 　おまけ。 　上記のリストアップ後、リンクの設定されたセルの色付けを行います。参照元のシートごとに色をかえて、見やすくまとめられたら嬉しいなぁと思います。 　でもこちらは、リストアップが終わればその後に手作業でもできますので、蛇足ということで……

　はじめまして。検索して同種の問題が見当たらなかったため、質問させてください。 　エクセルで、別シートを参照しているセルの調査と抽出を手作業で行っています。 　シートの中には別シートのセルを参照・計算しているセルと、同一シート内での計算のみを行っているセルがあります。法則のあるものもないものもあり、数百行を検索と目視でまかなっております。 　これが 数十ファイル×十数シート あり、手作業に時間の足りなさとつらさを感じ始めております…… 　エクセルのシートの中で、別シートを参照しているセルの抽出を行いたいです。 　セルの色を変更し、セル名（A17 など）とセルの値（='Bシート'!A17 など）を別のファイルなどに出力したいんです。 　イメージとしては、数式として「!」を検索したときの検索結果と同じだと思うんですが、検索ではセル名と値をコピーができなかったために困っています。 　どなたかご教授いただければと思います。よろしくお願いします。 　おまけ。 　上記のリストアップ後、リンクの設定されたセルの色付けを行います。参照元のシートごとに色をかえて、見やすくまとめられたら嬉しいなぁと思います。 　でもこちらは、リストアップが終わればその後に手作業でもできますので、蛇足ということで……

会計ソフトのデータを取り込みましたが、年月日の表示の桁がバラバラで見づらいのです。 たとえば、平成19年6月1日の場合、19 6 1となるのを190601。平成19年6月13日の場合、19 613となりますが190613と 年、月、日表示を2桁表示にして見栄えをよくしたいのですが、現在は、手入力で修正をしていますが、関数でできるのでしょうか。 会計シフトの会社に確認をしましたが、会計ソフトの設定ではゼロをつけ2桁表示はできないとのことです。

ACCESS2002を使用しています。 自動的に連番を採番するコードを書きましたが、DMax関数でうまく最大値を取得できません。 条件式がうまく書けていないと思うのですが、どうぞお知恵をお貸しください。 テーブル[t_受注]にあるフィールド[受注コード]は、「yyyymm000」のように9桁表示です。 「yyyymm」の部分は現在の年月から取得し、「000」の部分は年月ごとに001～連番を採番しています。 しかし年月が変わるとうまく最大値を取得できず、次のように連番が採番されてしまいました。 [受注コード] 200705001 200705002 200705003 200705004 200706001 200706005(本当は200706002と自動採番したいのです) 最大値(MaxID)取得するコードはこのように書いております。 よろしくお願いします。 ------------------------------------------------------------------------------------------- Dim NowYearMonth As String Dim MaxYearMonth As String Dim MaxID As String NowYearMonth = Format(Date, "yyyymm") MaxYearMonth = Nz(DMax("Mid$([受注コード],1,6)", "t_受注"), "") MaxID = Nz(DMax("Mid$([受注コード],7,3)", "t_受注"), "NowYearMonth=MaxYearMonth") -------------------------------------------------------------------------------------------

OffceXPを使用しております。 表題の通りなのですが、テキストファイル内のデータから指定した行をExcelのファイルへ抽出する方法を教えて下さい。 （ファイルは「.TXT」形式と「.CSV」形式の2種類が用意できます。) 当初はファイル名の一覧行を作り 「='ドライブ名:\フォルダ名\[ファイル名.csv]シート名'!$A$1」 の式を用いて表を作成しようとしたのですが、この方法ではファイルを全部開き値を更新しないとエラーが出てしまいました。 ファイルは200以上有り、1つ1つを開いてデータを引っ張るには無理があります。 フリーソフトを探してみましたが、指定文字を含む行を抽出するソフトは数多くあったのですが、 「指定行」というのが見つからず、お手上げです。 関数や数式・VBAもしくはフリーソフト等、簡易にデータ抽出が出来れば何でも結構です。 但し、VBAに関しては殆ど知識が無いので、解り易く書いて頂けると幸いです。 欲を言えば、ファイル名も同時に抽出出来ればあり難いですが、こちらはさほどこだわりません。 良い方法をご存知な方がいらっしゃればどうかご教示下さいませ。 宜しくお願い致します。

エクセルで時間の入力をする場合　「：」をつけずにテンキーから入力したいのですが・・・２５：００というような表示もさせる方法はありますか？ 例えば１８００と入力して１８：００と表示させるような方法ですが 前回「TIME(INT(A1/100),MOD(A1,100),0)」を教えていただいたのですがこれですと２５００と入力した場合１：００となってしまいます。 ２５：００と表示させるにはどうしたらいいのでしょうかご教授下さい。