Copyright (C) 2010 All Rights Reserved.
」というメッセージが出て実行できません｡
解決方法を教えてください｡
答えが知りたいですビジュアルベーシックで以下のような問題が出されました｡
本来なら参考書を見ながら試行錯誤するべきでしょうが、今ビジュアルベーシックが使えません｡
もともと大の苦手で見当もつきません｡
ぜひお願いしますテキストボックス（オブジェクト名 TextBox1）に２以上の整数を入力し、「判定」ボタンを押すと、入力した数が素数の場合には「（入力した数）は素数です」と表示し、素数でない場合には「（入力した数）は素数ではありません」とラベル（オブジェクト名 Label1）に表示するプログラムを書きなさい｡
オブジェクト名とプロパティは以下のようですTextBox1 Text "'' ←何も入力しないということですLabel1 Text "'' Label2 Text "２以上の整数''Button1 Text "判定''です｡
すみませんが回答よろしくお願いします｡
色々探してみたのですが、解決策が見付からなかったので教えてください｡
１．ワードにオブジェクト挿入で、対象ファイルを「アイコンで表示」で挿入した際に そのドキュメントタイトルの文字が潰れてしまいます｡
文字が潰れない方法はないでしょうか?
２．エクセルを「形式を選択して貼り付け」で「Microsoft Office Excel ワークシート オブジェクト」選択し 挿入するのですが、こちらも貼り付けたエクセルの文字が潰れてとても見にくくなってしまいます｡
文字が潰れない様な方法?
があれば教えていただきたいです｡
（挿入したものを拡大する｡
以外でお願いします｡
）使用しているのは、WindowsXP、Officeは2003です｡
どちらか一方でもわかる方がいらっしゃっいましたら、幸いです｡
よろしくお願い致します｡
「NW-X1060で、MP3のタグ情報を編集してフォルダ単位で再生する方法」http://uguisu.skr.jp/algo/folder2tag.htmlのScriptを実行すると中のmp3のアルバムの楽曲情報がそのファイルのパスが入るようになっています｡
しかしこれを編集してそのフォルダ名だけにしたいのですが初心者どころかまったくわからないので編集ができません｡
だれか代わりに作ってくださると編集してください｡
よろしくお願いします｡
現在「R:\\新しいフォルダ1\\新しいフォルダ2」内で実行すると「R:\\新しいフォルダ1\\新しいフォルダ2」となる希望「新しいフォルダ2」だけにしたいOption Explicit Private Const TARGETFOLDER = "." Call Main() WScript.Quit 0 Sub Main() Dim objFS, objFolder, objId3 ' FileSystemObject オブジェクトを作成する Set objFS = CreateObject("Scripting.FileSystemObject") ' CddbID3Tag オブジェクトを作成する Set objId3 = CreateObject("CDDBControl.CddbID3Tag") ' 指定フォルダ情報を取得する Set objFolder = objFS.GetFolder( TARGETFOLDER ) Call FindFilePathAll(objFolder, objId3) Set objFS = Nothing Set objId3 = Nothing End Sub ' 全フォルダのファイルを検索する Sub FindFilePathAll(ByVal objFolder, ByVal objId3) Dim objFile, files, subfolders, objSub Set files = objFolder.Files ' フォルダ中のファイル毎に処理を行う For Each objFile In files Call EditTagOfMP3(objFile, objId3) Next ' サブフォルダに対して再帰処理 Set subfolders = objFolder.SubFolders For Each objSub In subfolders Call FindFilePathAll(objSub, objId3) Next End Sub ' MP3のタグ情報を編集する Sub EditTagOfMP3(ByVal objFile, ByVal objId3) ' フォルダ中の mp3 ファイルだけを取得する If LCase(Right(objFile.Name, 4)) = ".mp3" Then objId3.LoadFromFile objFile.Path, False objId3.Clear ' アルバム名にファイルパスを入力する objId3.Album = Left(objFile.Path, _ Len(objFile.Path) - Len(objFile.Name)) objId3.Commit End
Webページエラーについて困っています｡
このページの動画を視聴したいのですが・・・http://www.nhk.or.jp/ncon2-live/viewerlive_trial.htmlぺーじを開くと↓「Web ページ エラーの詳細ユーザー エージェント: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; YTB720; GTB6.5; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0)タイムスタンプ: Thu, 2 Sep 2010 08:32:52 UTCメッセージ: オブジェクトでサポートされていないプロパティまたはメソッドです｡
」という表示が出てきてしまいます｡
これはどういうことなのでしょうか｡
また、どう対処すればよいのでしょうか｡
形は出来ましたが肝心の部分のコードがちんぷんかんぷんです：＿：繰返しを使って３以上２１以下の３つの倍数の和を計算し、ラベル（オブジェクト名Label1）に表示するコードですA B C に入る答えをお願いしますDim Total As Integer = AFor BTotal = CNextLabel1.Text = Total以上です｡
すみませんがお願いいたしますm(_ _ ;)m
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongDeclare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongDeclare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongSub SAMPLE_0826()Dim W1 As LongDim W2 As LongDim W3 As LongDim L1 As StringDim DB As DatabaseDim R1 As RecordsetSet DB = CurrentDb()Set R1 = DB.OpenRecordset("テーブル２")R1.MoveFirstDo Until R1.EOFL1 = "C:\\Program Files\\Internet Explorer\\iexplore.exe " & R1!URLW1 = Shell(L1, vbNormalFocus)W2 = OpenProcess(&H100000, 1, W1)W3 = WaitForSingleObject(W2, &HFFFF)W3 = CloseHandle(W2)R1.MoveNextLoopEnd Subをどこに記述すればよいのか｡
また、実際のスクレイピング処理の記述の変更もお願いします｡
Private Sub WebBrowser0_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim DB As DAO.Database Set DB = CurrentDb '.tags("TD") で TDタグを抜き出す Dim objDT As Object 'テーブルオブジェクトの格納用 Set objDT = WebBrowser0.Document.ALL.tags("DT") '.tags("DT")でDTタグを抜く '.tags("TD") で TDタグを抜き出す Dim objDD As Object 'テーブルオブジェクトの格納用 Set objDD = WebBrowser0.Document.ALL.tags("DD") '.tags("DD")でTDタグを抜く Dim n As Integer Dim strCH As String For n = 0 To objDT.Length - 1 If objDT(n).InnerTEXT = "△△" Then ' strCH = objDD(n).InnerTEXT Exit For End If Next n If objDT = "noDATA" Then Debug.Print "データ項目が見つかりませんでした｡
" Else DB.Execute "INSERT INTO TD(□□)" & _ " Values,'" & strCH & "'')" _ , dbFailOnError End If Set objTD = NothingEnd Sub このようなソースです
すべて手書きのペーパテストです｡
全て一行で書ける簡単な問題ということらしいのですが、分かりませんのでお知恵を拝借したいです１．Format(12.34，‘‘♯．♯♯♯♯♯)の結果２．Double型の変数Heightの値を必ず小数点以下第１位まで表示するコード３．「変数Scoreが６５以上８０未満」をあらわす条件式４．「変数Numberが３または５で割り切れる」を表す条件式５．変数Numberがすでに宣言されているとして、テキストボックス（オブジェクト名 TextBox1）に入力された値を数値に変換して代入するお願いしますm(_ _;)m
2003です｡
Word2003です｡
クリップアートの画像をまとめてダウンロードしましたが、クリップアートを挿入する一覧に表示されません｡
オーガナイザの利用などマニュアルをみてもよくわかりません｡
オフィスオンラインにトレーニングというヘルプのようなものがありましたが、いっぱい書いてあって結局どうしたらいいのか全然わかりません｡
JPGやGIFですが、これらを、いったいどこのフォルダに入れればいいのでしょうか｡
Dドライブのオフィスフォルダの、クリップアートフォルダに入れてみても、表示されません｡
ちなみに、今回は、別のサイトからのオブジェクトでしたが、オフィスオンラインからダウンロードしても、入るべきところに入らないようで、うまく表示がでません｡
どこの保存すればwordやエクセルから見れるようになりますか?
ちなみに、過去の質問で、マイドキュメントでいいんじゃないの という回答のものがありましたが、本当にそれでいいのでしょうか?
それで読み込めるとは思えないのですが、正しいのでしょうか｡
よろしくおねがいします｡
以下のような問題を出されました｡
すべて手書きのペーパテストです｡
全て一行で書ける簡単な問題ということらしいのですが、分かりません・・・(1)Double型の変数BMIを宣言する(2)Integer型の変数「リンゴの値段」「みかんの値段」「ぶどうの値段」を宣言する(３)変数Nameに名前が代入されているとき、ラベル(オブジェクト名Lable1)に「おはようございます、(Nameに入っている値)さん」と表示する(４)二つのテキストボックス（オブジェクト名 TextBox1と TextBox2）に入っている文字列を空白区切りで連結する｡
ただし空白△で表しなさい他にもあるのですが多くなるのでまた別の質問にします｡
よろしければまたお願いしますm(_ _;)m
Copyright (C) 2010 All Rights Reserved.