qyukip の回答履歴

拡張子の無いファイル内のある文字数より、2文字のデータを置き換えしたいと思ってます。その結果を拡張子の無い同じファイルに上書き（もしくは読み込み時にコピーする事が出来れば、より一層に嬉しい）したいのです。 ※使用するソフトは、EXCEL2003、ACCESS2003もしくはフリーのテキストエディタにてお願いします。 例 ファイル名：KAS データ内容： 12345678901234567890 11111111112222222222 １．KASデータバックアップ ２．KASデータを読み込み ３．11文字目から2文字を　A1　にすべて置き換え ４．KASファイルに上書き 変更データ内容： 1234567890A134567890 1111111111A122222222

エクセルで値を指定しての検索が出来ない場合の同じ値のセルをすべて抽出する方法 エクセルのＡ列に上から順に Ａ１みかん Ａ２リンゴ Ａ３みかん Ａ４パイナップル Ａ５マンゴー Ａ６みかん Ａ７パパイヤ Ａ８リンゴ Ａ９バナナ Ａ10グレープフルーツ Ａ11みかん Ａ12レモン という具合に１０００行くらいあって同じ値のみを抽出する方法を教えてください。 上記の場合 Ａ１みかん Ａ３みかん Ａ６みかん Ａ２リンゴ Ａ８リンゴ という具合に表示してほしい。 同じ値の行は最大３つ（３種類×３行）、又は２つ（２種類×２行）です。 後の９８０行くらいはそれぞれ値が違います。 また同じ値が何で有るのかも不明です。 上記例ではみかんとリンゴですが、そうだとは限りません。 レモンかもしれないし、マンゴーかもしれない。 またその１０００行の中の値の種類も何種類あるのか不明です。 最悪１０００種類で重複は無いかも知れない。 よって値を指定しての検索は出来ません。 ソートして昇順にとかにすれば同じ値は上下に並びますが 実際には、みかん　とかではなく英数字２０ケタなので目で見ただけで 上下に並んでいるのは見つけれません。 12A3456D620X834F7623 14B63795V63879576235 167353F46856G6983639 167353F46856G6983639 16C342D374A755C65833 １０００行の中からこのように上下が同じ値の行を見つけるのは難しいです。 簡単に発見する方法はありますか？

ファイルの関連付けが上手くいきません。 AdobeCS4マスターコレクションをアンインストールし AdobeCS5マスターコレクションをインストールしました。 ドリームウィーバーCS5でhtmlを開こうとするとき 右クリック→プログラムから開く→既定のプログラムの選択→参照→dreamweaver.exeを選択するのですが選択できないのです。 「ファイルを開くプログラムを選択」ウインドウの「推奨されたプログラム」にも「ほかのプログラム」にもドリームウィーバーは表示されません。 ドリームウィーバーに直接ドラッグするとファイルは開けます。 jsなどのファイルも右クリックからプログラムから開くでdreamweaverが選択できません。（表示・追加されない） 同様に フォトショップCS5でjpg・GIF・EPSファイルを開こうとダブルクリックすると関連付けがされていません。 右クリック→プログラムから開く→既定のプログラムの選択→参照→photoshop.exeを選択するのですが選択できないのです。 「ファイルを開くプログラムを選択」ウインドウの「推奨されたプログラム」にも「ほかのプログラム」にもフォトショップは表示されません。 フォトショップに直接ドラッグするとファイルは開けます。 jpg・GIF・EPSなどのファイルも右クリックからプログラムから開くでphotoshopが選択できません。（表示・追加されない） 再インストールしてもダメでした。 もし回避方法や設定方法をご存知の方 どなたか、助けていただけませんでしょうか？ よろしくお願いします。

エクセル　VBA　'　"　!　&　の使い方 VBAを独学で勉強している、超初心者です。 同じシート内でのVBAを作るのはなんとなくできるようになったのですが、別のシートのデータを参照したいときなど、(シート名を変数にしています)うまく動作できません。 '　"　!　&　の使い方をやさしく解説してください。 よろしくお願いします。

エクセル　VBA　'　"　!　&　の使い方 VBAを独学で勉強している、超初心者です。 同じシート内でのVBAを作るのはなんとなくできるようになったのですが、別のシートのデータを参照したいときなど、(シート名を変数にしています)うまく動作できません。 '　"　!　&　の使い方をやさしく解説してください。 よろしくお願いします。

画像をペイントソフトで取り込み（開き） その画像の色を「色の選択」で選択し、 その色をその画像のほかの部分（色）に 上塗りする。 上書き保存してインターネット上にＵＰすると 上塗りした部分で明瞭に色の違いが出ていました。 完璧に同じ色にさせることは無理なのでしょうか。

エクセルの複数のファイルを１つのファイルにする。 同じ雛形内でいろいろ入力された複数のファイル（book）を１つのファイル（book）にしたいです。 現在の方法は １．１月売上というファイルを開く。 ２．２月売上というファイルを開く。 ３．開いた２月売上のファイルの中の雛形部分を全行コピーします。 ４．１月売上のファイルの最終行の下の行に貼り付けします。 ５．２月売上というファイルを閉じます。 ６．３月売上というファイルを開く ７．開いた３月売上のファイルの中の雛形部分を全行コピーします。 ８．ＮＯ．４の作業後の最終行の下の行に貼り付けします。 ９．３月売上というファイルを閉じます。 10．４月売上というファイルを開く。 11．開いた４月売上のファイルの中の雛形部分を全行コピーします。 12．ＮＯ．８の作業後の最終行の下の行に貼り付けします。 13．４月売上というファイルを閉じます。 14．５月売上というファイルを開く 15．開いた５月売上のファイルの中の雛形部分を全行コピーします。 16．ＮＯ．１２の作業後の最終行の下の行に貼り付けします。 17．５月売上というファイルを閉じます。 18．名前をつけて保存で「1月売上」→「1月－5月売上」で保存 これで「1月－5月売上」のファイルを開けば ５ファイル分のデータがあり、あとはオートフイルタやら並び替えやら 編集で自由自在です。 ですが上記手順は非常に大変で、かつ２月売上を２回貼り付けたり ３月売上を忘れたりというリスクもあります。 上記例では５ファイルですが３０ファイルもあったら凄い負担です。 １発で行う方法はありますでしょうか？ ちなみに最初から１ファイルに入力し続けてでの回避は出来ません。 システムから自動に分かれて吐き出される為です。

エクセルの文字列中の指定した位置の文字列の置き換え（ＲＥＰＬＡＣＥ）。 エクセルのセルＡ１に 「Ａ１２３Ｂ１２３４Ｘ９８７６Ｃ１２３ＤＤ」と入力されています。 これを 「Ａ１２３－Ｂ１２３Ｘ９８７６－Ｃ１２３－ＤＤ」としたいです。 現在 ・Ｂ１のセルに=REPLACE(A1,5,0,"-") ・Ｃ１のセルに=REPLACE(B1,15,0,"-") ・Ｄ１のセルに=REPLACE(C1,20,0,"-") と入れて、Ｄ１にできた値の 「Ａ１２３-Ｂ１２３Ｘ９８７６-Ｃ１２３-ＤＤ」 をコピーして Ｅ１のセルに「形式を選択して貼り付け」「値」で貼り付けして Ｂ１～Ｄ１を削除して ・Ａ１のセルには元の「Ａ１２３Ｂ１２３Ｘ９８７６Ｃ１２３ＤＤ」 ・Ｂ１のセルには編集後の「Ａ１２３-Ｂ１２３Ｘ９８７６-Ｃ１２３-ＤＤ」 が表示されるようにしています。 このＡ列が１００行もあるとうんざりです。 式をオートフィルでコピーしていくのですが 　・Ｂ１に式を入れてオートフィルでＢ１００までコピー 　・Ｃ１に式を入れてオートフィルでＣ１００までコピー 　・Ｄ１に式を入れてオートフィルでＤ１００までコピー 　・Ｄ１～Ｄ１００をコピーしてＥ１～Ｅ１００に「形式を選択して貼り付け」「値」で貼り付け 　・Ｂ，Ｃ，Ｄ列を列削除　 ３回は式を入れないといけないです。一発で編集する方法はありますでしょうか？

Ｅｘｃｅｌ　ＶＢＡで、様々な書式設定のセルをｙｙｙｙｍｍｄｄの文字列にしたい dim i Columns("Ａ:B").NumberFormatLocal = "@" For i = 1 To 5 If Cells(i, 1)NumberFormat = "@" Then Cells(i, 2) = Aells(i, 1).text Else Cells(i, 2) = Application.text(cells(i, "1"), "yyyymmdd") End If Next Ｅｘｃｅｌ　ＶＢＡで、様々な書式設定のセルをｙｙｙｙｍｍｄｄの文字列にしたいのですが・・ 上記のソースを書いた場合、文字列・日付・ユーザ定義などの書式設定ではうまくいきますが、標準で19990101などと入力されていた場合はエラーになってしまいます。 どのように直せばうまくいくのでしょうか？ よろしくお願いします。

Excel2003を教えてください。 添付画像のa列とc列を比較して、同じ場合b列にd列の値を入れたいのですが、 どのようにすれば良いでしょうか？ お願いします。

Excel2007で名簿管理をしています。 名簿管理には名簿マスタ・各住所ごとのシートがあります。 項目など形式はすべてのシート同じです。 名簿マスタ：全データ存在しており、入力もここに行います 各住所シート：１シートに１か所の住所を割り当てており、１０か所（１０シート分）あります。 現在、必要な時に「名簿マスタ」より 並び替え→抽出(住所で）→各シートに貼り付け を行っております。 ですが、１０シート分となりますと結構手間がかかります。 これをマクロ等で簡素化することはできますでしょうか？ なにかございましたら、よろしくお願いします。

exel2007で作った現金出納帳を使ってます。費目の中で、食費だけを別のファイルにまとめることは可能でしょうか。 集計を出すのではなく、現金出納帳の中から、特定の費目を日付に沿って抜き出して別のファイルにまとめたいのです。 わかりづらいかもしれませんが、いい方法があればお願いします。

エクセルで出勤表から出勤者の名前を出したいのですが。 介護施設に勤務しています。Ａ～Ｅ（職員名とする）までの５人が勤務しているとします。今ここに、縦がＡ～Ｅ、横が月日のエクセルの表（表１とする）があるとします。 仮に６月１日はＡ，Ｂ，Ｃの３人が出勤で表の該当セルに○が入力されています。６月２日はＢ，Ｄ，Ｅが出勤で同様に○が入力されています。こんな感じで月末までの勤務表が出来ているとします。 ここで別のシートに「今日の出勤者」として当日の出勤者を表（表２）に出したいと思っています。 私が望んでいるのは、表１の希望の月日をクリック、もしくは入力すると、自動で表２のセルにその日の出勤者だけの名前が返せればいいのですが・・・。 本日の出勤者として本部に名前入りの表をあげないといけなく、これまでは表１から該当日の○を数えては、その職員名を手書きで書いて送っていました。この煩雑な作業を効率化したいと思っています。 よろしくご教授お願いいたします。

Ｅｘｃｅｌ VBAで文字列の日付を判定 文字列の書式で”19900101”などとセルに入力されている場合に実際に存在する日付かを判定する方法はありますでしょうか？ たとえば、19990132などと入力されている場合はエラーにしたいのです。ＩＳＤＡＴＥを使うのかともおもいましたがうまくいきません。 よろしくお願いします。

エクセルで、自動的にランク順に順番を表示させる方法 エクセル2003を使用しています。 Ｔ列に名前、Ｕ列にその人の点数が表示されています。 これに対し、点数の高い順に自動的に並べ替えてＢ列に順位、Ｃ列に名前を表示させたいです。 同じ点数がある場合、以下の様な表示をしたいです。 １位　Ａさん　80点 ２位　Ｂさん　70点 ２位　Ｃさん　70点 ４位　Ｄさん　60点 表示＞並べ替えは使用しないで、関数で対応したいです。 分かる方いましたら、お願いします。

エクセルについて教えてください。 コードの振られたデータシートが新旧２つあります。旧データに含まれる項目を新データに追加項目として反映させたいのですが、関数は何を使って、どう範囲などを入れたらよいのでしょう。追加・削除されたコードもあります。 このような感じのデータです⇒新データはA列：コード、B列：氏名となっており、旧データには、AB列にC列：グループ名が入っています。 新データにC列の内容を反映させ、最終的にはグループごとにソートをかけたいのです。

エクセル　関数 毎月の仕事を効率良くするため、教えてください！ 支店が２５店舗あります。 毎月各支店より支払申請が出ると、取引先業者名、支店名、金額といった順で作表していますが、 簡単に支店コードを入力するとその隣のセルに店舗名が自動入力されるような方法を探しています。 色々検索しました。（vlookup...) しかし何度試してみてもエラーになりお手上げです。 よろしくお願いいたします。

エクセル2003にて指定されたシートを複写するには？（２） 同じ件で投稿してすみません。エクセル本を読んでも、ネットで探しても 丸2日進んでいないので、投稿させて頂きました。 以前、以下のURLで投稿したものです。 http://okwave.jp/qa/q5930740.html 【回答して頂いた内容】 Sub aaa() Dim Ws1 As Worksheet, Ws2 As Worksheet Set Ws1 = Worksheets("シート１") Set Ws2 = Worksheets("シート２") Dim Endrow As Long, r As Integer Endrow = Ws1.Cells(Rows.Count, 1).End(xlUp).Row For r = 1 To Endrow 　　　 Worksheets.Add After:=Worksheets(Worksheets.Count) 　　　ActiveSheet.Name = Ws1.Cells(r, 1).Value 　　　Cells(5, 1).Value = Ws1.Cells(r, 1).Value 　　　Cells(5, 2).Value = Ws1.Cells(r, 2).Value 　　　Cells(5, 3).Value = Ws1.Cells(r, 3).Value Next r Set Ws1 = Nothing Set Ws2 = Nothing End Sub と、ご回答を頂き、想定していた対応が出来ていますが、 問題が２つほどございます。 （１）ひとつは、シート名及びテキストをA列ではなく、J列から持ってくる必要がある。 （２）もうひとつは、1行目はタイトル行なので、2行目から開始する必要がある。 この2点を解消しようと、色々数字を入れて試したのですが、改善できないので、 どなたか、是非、アドバイス・ご享受を宜しくお願い申し上げます。