米沢 栄蔵(@YON56) の回答履歴
- Visual Basic 2010
中1男子の母です。 最近、息子が Visual Basic 2010を始めたのですが、 わかりにくいので参考書がほしいそうです。 おすすめの参考書はありますでしょうか。
- 締切済み
- s5u3
- Visual Basic
- 回答数2
- vbaで困っております
エクセルであるキーワードの値が入っている列番号を取得したいのですが、 Find(キーワード, lookat:=xlWhole).Column でうまくいかないです、どなたかご教授いただけないでしょうか。
- 締切済み
- y_okamoto
- その他(プログラミング・開発)
- 回答数3
- 左側から一番最初の/から前を 別文字列に置換したい
例) 例えば以下のようなアドレスがあった場合、、、 yahoo.co.jp/example/ 上記のような例があった場合、左側から一番最初の/から前を 別の文字列に置換したい。 こんな風に google.co.jp/example/ これがたくさんあるので、関数で処理をしたいと思います。 どなたかお詳しい方、ご教授お願いいたします。
- 締切済み
- dkknmr
- その他(Windows)
- 回答数3
- エクセル2013エラー表示の解決について
教えて頂きたいことがあります。 仕事上、データの入力検索用に利用するエクセルについてです。 このエクセルのファイルは個々の販売データを入力すると、予め組まれた関数及びマクロによってデータの表示がされます。一つのブックに複数のファイルから構成され、それぞれのファイル同士がリンクされている状態です。 リンクされているはずなのですが、どういう訳か存在しているファイルが見つからないという事で、エラー表示がされました。そしてそれが外部参照(リンク)に問題があることがわかりました。インターネットで調べ、データのタブから接続、そしてリンクの編集から手続きをすればいいことがわかりました。 その手続きに従って進めても解決できないのです。 どのように進めればいいのか、正直途方に暮れています。恥ずかしい話しながら、教えて頂けたならば、幸いです。宜しくお願い致します。
- 締切済み
- 92081680
- Windows系OS
- 回答数2
- VBでのファイル作成日の比較
VB2010でファイルの置き換えについてご相談させてください。 ファイルが2つあります。 ・C:\MyFile.txt ・D:\YourFile.txt(このYourFile.txtは日々、ファイル作成日が更新されるものとします) この2つはファイル作成日が違います。 それを利用して、 MyFile.txtとYourFile.txtのファイル作成日を比較。 YourFile.txtのファイル作成日が新しければ、MyFile.txtと置換え。 といった事をしたいと思っています。そこで、FileInfo.CopyToメソッドを利用しました。 そうすると、YourFile.txtがMyFile.txtより新しい日付でも中身をコピーするだけで作成日はかわりませんでした。 次に、FileInfo.Replaceメソッドを利用しようと思いましたが、これはバックアップファイルを作成するみたいなので、それは不要のため利用するのはやめました。 後は、もしYourFile.txtのファイル作成日が新しければ、MyFile.txtを削除。 その後、CopyToメソッドを使用してファイルをコピーするといった方法が思いつきました。 他に何かスマートな方法はないでしょうか?
- ベストアンサー
- fflashing
- Visual Basic
- 回答数1
- マクロ実行時のフリーズについて
下記のような処理を実行すると応答なしとフリーズになってしまいます。 解決方法について教えてください やりたいこと :8列目にコードが並んでいて、重複コード(2回目以降)のものは赤色にする 困っていること:実行すると応答なしでフリーズしてしまう →変数の上限が20000ではなく5000だと問題なく動く Sub (1)() Dim i As Long For i = 3 To 20000 If Application.WorksheetFunction.CountIf(Range(Cells(3, 8), Cells(i, 8)), Cells(i, 8)) > 1 Then Cells(i, 8).Font.ColorIndex = 3 End If Next i End Sub
- 締切済み
- VBAbeginner
- Visual Basic
- 回答数5
- VBAにてメールマガジン配信解除は可能?
wordにて電子メールの一括送信は可能であるということは、EXCELかWORDのVBAを使用して メールマガジン解除の送信(メールマガジンの送信先から)を受信してexcelファイルの一覧から配信先として解除できるようにVBAにて設定は可能でしょうか。そのコードを参照できるサイトがあれば教えて頂きたいのですが。 専門家の方の詳しい意見をお聞かせ願えれば大変ありがたいのですが、宜しくお願い申し上げます。
- ベストアンサー
- nikiusp
- その他(プログラミング・開発)
- 回答数1
- VBAで画像圧縮はできますか?
VBAを使って、 bmp画像ファイルをJPEGやTIFFファイルに圧縮したいのですが 可能でしょうか? よろしくお願い致します。
- ベストアンサー
- DUOUIS
- Visual Basic
- 回答数3
- 使用許諾契約書がかならず出てくるのですが。
エクセル、ワードなどを開くと、かならず、「使用許諾契約書」が出てきて、「同意する」「しない」の 画面が出てきます。XPから7にパソコンを切り替えたんですが、何か消す方法はないでしょうか?
- ベストアンサー
- rioton
- その他MS Office製品
- 回答数4
- Windows XP サポート終了で困ってます。
現在、ノートパソコンでメール、ネットサーフィン、年賀状の作成と印刷、デジカメで撮った画像をマイピクチャーに保存等をやってます。 OS→WIN XP 接続→Bフレッツ(マンション)有線 プロバイダ→ぷららで月額2850円(Bフレッツ)+997円(ぷらら)=3847円です また、携帯はウィルコムのPHSで2500円(メール使い放題、通話10分×500回/月)払ってます。 この度のWIN XPのサポート終了で、中古のWIN 7を買おうか迷ってます。 聞くところによると、アンドロイドタブレットとかWIFIとかあるようですが・・・・・ 当初は2~3万円は出してもよいが、月々の通信費は上記の6500円位で納められる何か良い方法無いでしょうか? 質問の内容も的を得てないと思いますが宜しくお願いします。 当方高齢者(73)ですのでなるべく解りやすく教えて下さい。
- 締切済み
- takaf21
- Windows XP
- 回答数10
- 他ブックからのデータ検索・コピー(VBA)
【Book2】(Sheet2)L1に「12-1」を入力 ↓ 【Book1】(Sheet1)で「12-1」をM列、T列、AA列から検索→M4に「12-1」があった ↓ 【Book1】(Sheet1)N4:S4のデータを【Book2】(Sheet2)M1:R1にコピー 各ブックは同一ファイルに保存 検索する文字列の重複はなし 現在は関数≪VLOOKUP≫を使い上記を行っています。 マクロを使った方がスムーズに処理できるのでしょうか。 マクロを使う場合はどのような方法が良いのでしょうか。 データ数は1000行程度、各行の25個のセルに≪VLOOKUP≫関数が入っています。
- ベストアンサー
- koge_tsu
- Visual Basic
- 回答数2
- 一からのプログラミング学習
中学生の娘が大人になって、気軽にアプリを作成、企業でHPのメンテナンスなんかもお手軽に そんな技術を習得するのに、 どのようなステップが必要でしょうか? 塾なんかでプログラミングを教えているところなんかありますか? ステップアップの手順、何をすればいいかなどを教えてください。 今はタイピングゲームをしている程度です。
- ベストアンサー
- hiiro2004
- その他(ソフトウェア)
- 回答数10
- 画像の貼り付けに関して
環境:Visual Basic 2008 教えて下さい。 現在、あるフォルダに格納されている画像ファイルを、EXCELに貼り付けるような プログラムを作成中で、以下のようなサンプルを見つけましたが、単純に貼り付けではなく、 指定のセルに貼り付けたいと考えています。 そのような指定のセルに貼り付ける為にはどのような記述をしたら良いでしょうか? 教えて下さい。 《現在の記述》 Dim xlApp As New Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Dim FileNameTmp As String xlWb = xlApp.Workbooks.Open("C:\abc.xls") xlApp.Visible = True xlWs = xlWb.ActiveSheet FileNameTmp = "C:\ABC.png" ' シートオブジェクトを用いない時 xlApp.ActiveSheet.Shapes.AddPicture(FileNameTmp, False, True, 10, 20, 100, 100) 'シートオブジェクトを用いた時 'xlWs.Shapes.AddPicture FileNameTmp, False, True, 10, 20, 100, 100 よろしくお願いします。
- ベストアンサー
- asamix_000
- Visual Basic
- 回答数1
- vbaでPDFファイルが印刷されない
エクセルのA列に「フォルダ場所+ファイル名.pdf」のリストを作成し、 PDFファイルを開き、印刷し、閉じるマクロを作成しましたが、全く印刷されません。 エラーが出て止まることなく、次々進んでいるのですが、肝心の印刷が実行されていません。 ネット検索で見つけたものをアレンジしたのですが、高度すぎて苦戦しています。 エクセルシートの内容は、 セルA2~には、フォルダ場所+ファイル名.pdf 例)C:\work\test1.pdf C2には印刷実行数(ファイルの数) を置いています。 どなたかご存知の方いらっしゃいましたら、どうか教えてください。 よろしくお願いいたします。 ---------------------------------------------------- Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub PDF() Dim AA, BB, CC, DD Dim AAA, BBB Dim i As Long For i = 1 To Range("C2").Value AA = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /t " BB = Range("A" & i + 1).Value CC = Application.ActivePrinter DD = AA & """" & BB & """" & " " & """" & CC & """" Debug.Print DD Set AAA = CreateObject("WScript.Shell") Set BBB = AAA.exec(DD) Sleep 1000 On Error Resume Next BBB.Terminate Set BBB = Nothing Set AAA = Nothing Next i End Sub
- ベストアンサー
- yamayama456
- Visual Basic
- 回答数4
- vbaでPDFファイルが印刷されない
エクセルのA列に「フォルダ場所+ファイル名.pdf」のリストを作成し、 PDFファイルを開き、印刷し、閉じるマクロを作成しましたが、全く印刷されません。 エラーが出て止まることなく、次々進んでいるのですが、肝心の印刷が実行されていません。 ネット検索で見つけたものをアレンジしたのですが、高度すぎて苦戦しています。 エクセルシートの内容は、 セルA2~には、フォルダ場所+ファイル名.pdf 例)C:\work\test1.pdf C2には印刷実行数(ファイルの数) を置いています。 どなたかご存知の方いらっしゃいましたら、どうか教えてください。 よろしくお願いいたします。 ---------------------------------------------------- Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub PDF() Dim AA, BB, CC, DD Dim AAA, BBB Dim i As Long For i = 1 To Range("C2").Value AA = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /t " BB = Range("A" & i + 1).Value CC = Application.ActivePrinter DD = AA & """" & BB & """" & " " & """" & CC & """" Debug.Print DD Set AAA = CreateObject("WScript.Shell") Set BBB = AAA.exec(DD) Sleep 1000 On Error Resume Next BBB.Terminate Set BBB = Nothing Set AAA = Nothing Next i End Sub
- ベストアンサー
- yamayama456
- Visual Basic
- 回答数4
- Windows XP SP3がインストールできない
初めて質問させていただきます。 インストール時に、エラーメッセージ「NtServicePackUninstall ファイルにSP3をインストールするための十分な空きディスク領域がありません アンインストールのためのファイルをアーカイブする場合は、セットアップに4MBの空き容量が必要です」 と出てしまいます。 SP2はインストールしてあります。パソコンは本当に疎く アンインストールするためのファイルの意味がどうしてもわからず夜を徹して悪戦苦闘。。 もしお分かりになる方がいましたら、ご指南よろしくお願いします。
- ベストアンサー
- sagabun
- Windows系OS
- 回答数4
- ポップアップがうるさい・・・
macにてFirefoxを使っているのですが、最近どんなページでも、リンクをクリックするか、テキストボックスに文字を入れようとすると必ずポップアップでくだらないような宣伝が出ます。「PCがクラッシュ寸前です」とか「Windowsを修理!」とかなんとか・・・。 ここ2週間くらいのことなのですが、いちいち出るのでスムーズにブラウジングもできません。Firefoxの設定ではちゃんとポップアップブロックはONになっています。Safariだと同じサイトでも何も起こりませんでした。Firefoxのエラーなのでしょうか。
- ベストアンサー
- rafrance
- その他(ソフトウェア)
- 回答数5
- Excelのリストで1文字目のみをセルに表示したい
質問させていただきます。 Excelでドロップダウンリストに表示される文字の一文字目のみをセルに表示したいのですが何か方法はありますか? ドロップダウンリストには 1 トマト 2 スイカ 3 リンゴ と表示されて選択をするとセルには一文字目の数字のみが出るというような形です。 よろしくお願いいたします。
- ベストアンサー
- akino0sora
- その他([技術者向] コンピューター)
- 回答数2
- Cells.ColorIndex
セル全体の色を取りたいのですが Cells.ColorIndex = xlAutomatic だと実行時エラー438になるのですが、 なぜでしょうか?
- ベストアンサー
- qqeguqxcjzz
- オフィス系ソフト
- 回答数2
- PC(WindowsXP)が壊れた?
この前、PCにつながるコードを動かしたら画面がザザザとかすんで、真っ暗になりました。 その時は一度電源ボタンを長押しして、もう一度着けたら問題なく起動でき、その後2、3日は問題なく使用できました。 しかし今日起動しようとしてもできなくて、(セーフモードで起動、通常起動など他色々書いてある画面になる)画面がかすんで真っ黒になるの繰り返しで何度か試してやっといつもの画面になったので、スタートをクリックしてみたら、また画面がかすんで真っ黒になってしまいました。 PCが動いてる音はします。 こわれてしまったのでしょうか? 3年前から使っています。(WindowsXP) どうすればいいのでしょうか。 直る方法はありますか?? 修理に出すといくらくらいかかりますか? どなたか助言をください。 よろしくお願いします。
- ベストアンサー
- istimirant319
- Windows XP
- 回答数4