ja7awu の回答履歴

Excel2003でオートフィル機能を使おうとした ところ、今までは表示されていた 黒の十字マークがでなくなりました。 （アクティブセルの右下に合わせても白い十字マークのまま） officeの再インストール以外に修復できますか？

エクセルVBAで、指定したファイル名のファイルをAドライブ直下で検索した場合、ワイルドカードを使ってないにも関わらず、ワイルドカード検索みたいな感じで結果がとれてしまいます。 ■Aドライブ直下 aaaPROFILE.xls testPROFILE.xls ■コード With Application.FileSearch .NewSearch .LookIn = "A:\" .SearchSubFolders = True .Filename = "PROFILE.xls" If .Execute() > 0 Then MsgBox Application.FileSearch.FoundFiles(1) & "あった" Else MsgBox "Aドライブに[PROFILE.xls]を保存してね" End If End With これを実行すると、「Aドライブに[PROFILE.xls]を保存してね」というメッセージが出てほしいのですが、「aaaPROFILE.xlsあった」とでてきてしまい、aaaPROFILE.xlsが検索結果にひっかかってしまいます。 これは何故でしょうか？どうしたら指定した文字列をビタで検索できるでしょうか？ ご回答よろしくお願いいたします。

質問させて頂きます デジタル署名が上手くいきません。どこが間違っているのか教えて下さい Excel2002　　ＯＳはＸＰです。 デジタル署名ツール「Selfcert.exe」で　デジタル署名を作成保存　→　ブックを開く　→　ＶＢエディタの「ツール」メニュー　→　「デジタル署名」コマンドを実行　→　再度「ツール」メニューで署名ができている ことを確認　→　ブックを上書保存して終了　　　　 再度ブックを開くとデジタル署名ができていません。 何が原因なのでしょうか？よろしくお願い致します

エクセルマクロ初心者でして、どうかご迷惑おかけするかもしれませんが、どうか助けていただけないでしょうか？ エクセルマクロで名刺作ってまして、ワードアートをA1に作成して、A2～B6にコピーして作ってます。 しかし、ワードアートの一部分が間違えて変更する際に、A2～B6を 削除するのが大変なんですよ・・・ セルA2～B6のワードアートを指定して削除するVBAは、どうやってつくるのか、どなたか教えていただけないでしょうか？ 一括削除だったら、原画のA1まで消えてしまって・・・（￣～￣）ンー

エクセルマクロ初心者でして、どうかご迷惑おかけするかもしれませんが、どうか助けていただけないでしょうか？ エクセルマクロで名刺作ってまして、ワードアートをA1に作成して、A2～B6にコピーして作ってます。 しかし、ワードアートの一部分が間違えて変更する際に、A2～B6を 削除するのが大変なんですよ・・・ セルA2～B6のワードアートを指定して削除するVBAは、どうやってつくるのか、どなたか教えていただけないでしょうか？ 一括削除だったら、原画のA1まで消えてしまって・・・（￣～￣）ンー

エクセルマクロ初心者でして、どうかご迷惑おかけするかもしれませんが、どうか助けていただけないでしょうか？ エクセルマクロで名刺作ってまして、ワードアートをA1に作成して、A2～B6にコピーして作ってます。 しかし、ワードアートの一部分が間違えて変更する際に、A2～B6を 削除するのが大変なんですよ・・・ セルA2～B6のワードアートを指定して削除するVBAは、どうやってつくるのか、どなたか教えていただけないでしょうか？ 一括削除だったら、原画のA1まで消えてしまって・・・（￣～￣）ンー

アクセス２０００を使用しています。 フォームにグループ化した３つのボタンを作りました ○３０％　－－＞　１ ○５０％　－－＞　２ ●７０％　－－＞　３ テーブルには１（、２、３）という数値が記録されます。 レポートでは ３ならにこちゃんマークの画像を、 ２ならふつうのマークの画像を、 １ならがっかりマークの画像を、 という具合にレポートで画像を表示する場合 どうやればよいでしょうか？ ＶＢＡはやったことありますが、ラジオボタン のＶＢＡは利用したことがありません。 詳しく教えて頂けると大変助かります。

関数についてお聞きします。 A列に数字と空欄が入っています。数字は0、1～20です。 B列に"0"と空欄を除いた数字をカウントしたいです。 例 A　B 1　1 0　 1　2 　　 4　3 0　 2　4 このような感じです。 COUNT関数を使っているのですが、"0"をカウントしてしまいます。 よい案をお願いします。 　

エクセル　２００２　です。 シートの数は、必ず　３６　以下です。 下記例は、 １、「 頭の　AK 」　は　必ず、　全部同じです。 ２、「 数字部分の２桁 」　は、　必ず、　　01 ～ 10　です。 ３、「 * 」　は、　必ず、　6 桁　です。 ４、たとえば下記例の　「 AK01****** 」　は、 　　「 AK01****** 　だけの見出し全部 （ AK01　だけが全く同じのデータが必ず続いてます） 」　 　　　を　 　　「　01　の　エリア 　」　と　表現させて頂ます。　　　 ５、この　エリア　は　必ず、２つ　か　３つ　です。（ 下記例では、エリア　は　３つ　です） この　エリア順　を　希望順に、　「 別ブック2 」　へ貼り付けたいのです。 何卒、ご教授くださいませ。 ---例---------------------------------------------- ブック1　（ エリア順が　01、04、10　です ） シート見出し AK01******　・・　AK01******　AK04******　・・　AK04******　AK10******　・・　AK10****** 別ブック2　（ エリア順を　10、04、01　にしたいです ） シート見出し AK10******　・・　AK10******　AK04******　・・　AK04******　AK01******　・・　AK01******

パソコン（XP）を購入したときに入っていた 「　MS-IME スタンダード 2002　」 をそのまま使用しています。 いくつか辞書は追加したのですが、普段の生活での使用や文書を作成する上で、辞書が非常に馬鹿で困っています。 変換が好ましいようにされない、という程度ならまだわかるのですが、もともと単語や用例自体がほとんど登録されていないみたいで、学習機能をフルに使っても、全然改善の余地はありません。 思い切ってATOKに変えることも検討しているのですが、お金をかけるほどの事でもないかと思い、現在のMS-IMEでもっと使いやすい方法はないかと考えています。 そこでユーザー辞書にもっといろいろ登録するとか、システム辞書をいろいろ入れてみるとかしたいのですが、システム辞書をマイクロソフトの公式サイトを見ても、IME2003の最新辞書は公開されてますが、2002に関しては、公開されているのかされていないのかはわかりませんが、探しても全然見つかりません。 ネット上で個人で公開されているシステム辞書も、顔文字やゲーム、医学など専門的な用語についての辞書はいろいろありますが、一般生活で使用するような言葉の辞書はざざっと検索してみても、全然見当たりません。 もし、そのような辞書をお知りでしたら、教えていただけないでしょうか。 お暇でしたら、よろしくお願いします。m(__)m

アクセス２０００を使用しています。 フォームにグループ化した３つのボタンを作りました ○３０％　－－＞　１ ○５０％　－－＞　２ ●７０％　－－＞　３ テーブルには１（、２、３）という数値が記録されます。 レポートでは ３ならにこちゃんマークの画像を、 ２ならふつうのマークの画像を、 １ならがっかりマークの画像を、 という具合にレポートで画像を表示する場合 どうやればよいでしょうか？ ＶＢＡはやったことありますが、ラジオボタン のＶＢＡは利用したことがありません。 詳しく教えて頂けると大変助かります。

エクセルで、画像データが大量に貼り付いているのですが、 範囲を選択して削除しても残ってしまいます＞＜ セル内のデータだけでなく、 画像データもまとめて消す方法はありませんでしょうか。 教えて下さい。

エクセル２００３使っています。 毎日の業務で、売上データのＣＳＶファイルをエクセルで開き、集計する作業を行っているのですが、マクロを使ってもっと楽に作業が出来ないかと素人なりに勉強中の者です。 自分ではあまり書くことが出来ませんので自動記録をやっていたのですが、ＣＳＶファイルを開くと、06/12/27のデータが2027/12/27となってしまいます。CSVファイルをそのまま選択してエクセルで開くと2006/12/27と認識してくれるのですが、マクロでこのように表示させるにはどのようにすればよろしいのでしょうか。データは列ごとに項目が分かれている形で、売上、商品名、日付等があります。その中でこの日付がうまく処理できませんので、お分かりの方、是非ご教授お願いします。

いつもお世話になります。 　 　年と月を入力すると自動的に日付と曜日が入力されるような勤務表を作成しております。 2006年　12月 　日　曜日 始業　終業　・・・ 　１　　金 　２　　土 　３　　日 曜日側にDATE関数を使っています。 曜日の表示形式はユーザ定義で、aaa　としています。 困っていることは、土日の値が取得できないことについてです。 土日は、休日と扱っているので、就業時間=残業時間と表示させるために、IF関数を使いましたが土日の判定を行うことがでないので困っております。 残業を表示するためのセルには次式を使用しています。 10行目の場合 =if(or(C10="土",C10="日"),G10,(if(e10<=17.5,"",if(e10>17.5,e10-17.25""))) どのようにしたら土日判定を行うことができるのかご助言をお願いいたします。

EXCELで文字を入力すると 変換前の文字が今までは黒でしたが いつのまにか青に変わってしまっています。 元の黒に戻すにはどのようにすればいいでしょうか？ 知恵お貸し下さい よろしくお願いします

アクセスのＦｏｒｍａｔ関数で下記の入力では「演算子がないときにオペランドを指定しています」と出ます。どこが間違っているのか教えてください。すみません。 集計月:Format（[依頼日]"yyyy/mm")

シートに行数13、列数不定の表が上下に多数配置されてます。表は上下それぞれ2行の空白行で隔てられています。 各表は連続した列の部分でひとつですが、中には複数の表を横にならべて、途中1列の空白列で間隔をあけたものもあります。 この、複数の表を横に並べたものを上下に配置しなおすため、以下のように書きました。 質問です。 １．Dim ans As Variantは 'variantで正しいですか？ ２．15行（13行＋間隔用2行）挿入にForNext以外にいい方法はないですか？ ３．切り取った部分を貼り付ける際、Set XRng = SelectionでなくセレクトせずにXRngを取得できませんか？ 他に指摘事項があればお願いします。 Sub TEST() Dim ans As Variant Dim Rng As Range, XRng As Range Dim c As Integer, b As Integer, i As Integer, n As Integer, x As Integer ans = MsgBox("分離したい表を選択してある？", vbYesNo + vbQuestion) If ans = vbNo Then Exit Sub Set Rng = Selection b = Application.CountBlank(Range(Rng(2, 1), Rng(2, Rng.Columns.Count))) '分離する数を取得 Set XRng = Rng For i = 1 To b'分離する数だけ繰返し For n = 1 To 15 '行挿入 XRng.Offset(14, 0).Resize(1, 1).EntireRow.Insert Shift:=xlDown Next n c = XRng.Columns.Count '列数取得 x = Range(XRng(1, 1), XRng(1, 1).End(xlToRight)).Columns.Count '最左側部分の列数取得 XRng.Offset(0, x + 1).Resize(13, c - x - 1).Cut '右側カット Rng.Offset(15 * i, 0).Resize(1, 1).Select '貼付け開始位置セレクト ActiveSheet.Paste '貼付け Set XRng = Selection 'XRng再取得 Next i End Sub

標題の件についてお分かりの方、お手数ですが ご教示くださいますようお願いいたします。 (1)秒を時間にする式 　14400　→　4:00:00 (2)時間を秒にする式 　4:00:00　→　14400 どうぞ宜しくお願いいたします。

VBA初心者です。 ExcelVBAで決まったフォルダーのファイルを開きたいのですが、ファイル名が固定した文字＋日付になっているため、この固定した文字だけでこのファイルを開く方法を教えて下さい。このフォルダーには２つファイルがありますが、もう１つは全く違うファイル名です。

VBA初心者です。 ExcelVBAで決まったフォルダーのファイルを開きたいのですが、ファイル名が固定した文字＋日付になっているため、この固定した文字だけでこのファイルを開く方法を教えて下さい。このフォルダーには２つファイルがありますが、もう１つは全く違うファイル名です。