Wendy02 の回答履歴

Sub M() Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range("A1:A289,B289").Select Range("B289").Activate Range(Selection, Selection.End(xlUp)).Select Charts.Add ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData Source:=Sheets("08.31_n3_rev477_fai0_x300_y20_z"). _ Range("A1:B289"), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "T[sec]" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "U[v]" End With Sheets("08.31_n3_rev477_fai0_x300_y20_z").Select Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range("A1:A289,C289").Select Range("C289").Activate Range(Selection, Selection.End(xlUp)).Select Charts.Add ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData Source:=Sheets("08.31_n3_rev477_fai0_x300_y20_z"). _ Range("A1:A289,C1:C289"), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "T[sec]" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "U[v]" End With End sub このプログラムなのですが、 A289をｘ軸 B289～IV289までがｙ軸 上のプログラムをIV289までまわそうとFor文を 使って繰り返そうとしていますが、うまくできません。 どのようにFor文を使ったらいいでしょうか？ サンプルをお願いします。

VBScriptで値の比較をするには？ VB.NETはかじった程度いじったことがあるのですが、今回、ASPに兆戦する必要があり （既存のプログラム回収）ちょっと困っています。 まず、以下のようなメソッドをaspファイルに追加しました。 引数から、Caseで返すべき値を判定するメソッドです。 <% Function get_name(ByVal arg1,ByVal arg2) dim retVal retVal = "" If arg1 = CONST_NAME_ARI Then Select Case arg2 Case CONST_CD1 retVal = CONST_NAME1 Case CONST_CD2 retVal = CONST_NAME2 End Select ElseIf then …（略） End if get_name = retVal End Function %> 別ファイルで、const.incというファイルあって、その中に値が定義されており （CONST_NAME_ARI = "1"とか、CONST_NAME1 = "名前"とか）それとの比較を したいと思っています。 引数は、文字列が入るとは限らず、DB上INT型で定義されている値がきた場合、 VB.NETだと比較する値の型を揃えるためにCASTが必要かと思うんですが、 VBScriptでは必要ないのでしょうか？ 上記のメソッドを追記しただけで、エラーが発生してしまい（呼び出していなくても）、 比較の仕方に問題があるような気がしているんですが…。 初歩的なところで申し訳ないのですが、問題点をご教授いただけないでしょうか。

このサイトで、回答する時に入力した、スペースが反映されずに、前に詰められるのはなぜでしょう？？？？ これ、プログラムコードを回答するときに、インデントがないと、視認性がとても悪く致命的なんですが・・・・私だけでしょうか？？？？

英語サイトの注文情報の表記の略語 「content」は容量、「Pieces per box」は入り数／箱、「Shipping unit」は出荷単位ですよね？ 分からないのが「UoM： 1 FBX」。どっちとも略語だから、予想も付かなくて。 どうかよろしくおねがいいたします。

内定の情報って学校や先生にいわないとだめですか？ 大学４年生です。 とあるところに内定をいただいたのですが、仕事内容なども非常に厳しいことが明白で、自分の中でそこでやっていけるかどうかまだ迷っている部分があります。 就職は自分のこれからがかかってきますので、最後まで悩んで決めたいと思っています。 （期待３割、不安７割くらい。） 先日、就職支援課のおっちゃんが結果をしつこく聞いてきたので、「一応もらいました」といいました。すると、今度は「どこ？」と、内定先の情報や試験の内容を聞いてきました。 少し特殊なところなので、「言いたくないんですけど」といってところ、「それはだめ。学校が困る」と言われました。 言いたいことは分かるのですが、こうした内定の情報というのは絶対学校側に伝えなければならないのでしょうか？ 正直今はまだ、頑張りたいとは思っていても内定先で自分は耐えきれるかという不安が多く、もし他人に知られて、「やっていけるの？」とか「なんでそこ？」といわれたら、今の自分だと簡単に折れてしまいそうで怖いです。 また、内定先が少々特殊であることや、自分の将来に関する情報をそんな風に半強制的に教えなければいけないということにも抵抗を感じます。 はっきりいって、学校にも先生にもあまり感謝の念がないので、余計に、です。 （学校側は生徒からも評判が悪いですし、先生も基本放任主義なので・・・） 内定の情報を伏せても良いか、また、内定の情報を伏せたままだと、卒業などに関して何か不利になる点はあるのでしょうか？

革靴の個人輸入 イギリスで皮靴２足注文いたしました。 関税の関係で宅急便で送ってもらった方が いいですかそれとも郵便のほうがいいですか。 ご教授ください

エクセルVBAでエクセルのシートの内容をワードの表に移そうとしています。 ワードに表を作って　その表のフォントサイズや行の高さなどは設定できたのですが、ワードの表の中での文字列の配置がどうしたらいいのかわかりません。 上に述べたことは次のような文で実現しています ※oTableはWord内の表です。 oTable.Cell(i, j).range.Font.Size = 10 oTable.Cell(i, j).range.Font.Bold = True With oTable.Rows(1) .Height = 25 End With 実現したいことは、特定の列だけを右寄せしたいと思っているのですが、 「oTable.range.ParagraphFormat.Alignment 」 「wdAlignParagraphRight」 などを使って記述するのだろうということは想像できるのですが、よくわかっていないので実現できていません。 恐れ入りますが、どなたかご教示いただけないでしょうか？　　 よろしくお願いします。

高い声を出して話すにはどうすればいいですか。 声が低いのが悩みです。今日、面接を受けましたが面接官から『話し方が暗い』と指摘されました。常時笑顔でいたのに‥‥思い当たることと言えば声が低いことです。私は最も低い声のときは、はるな愛みたいな感じで電話では男性に間違われることも少なくありません。裏声を出すと人からは馬鹿にされたみたいに聞こえるみたいと言われたので大きな声を出したり自分で工夫していますが、声が低いことで悩んでいます。 声を高くする手術http://www.shinagawa.com/voice/high/index.htmlも考えています。品川美容外科では60万円くらいでしてくれるそうです。 今すんでいる場所は電話応対の仕事が多いので病院で高くてきれいな声のしてもらうかどうか考えています。人から自分の話が聞き取りづらいと言われたことはありませんが声がネックになっているみたいです。どうすれば高い声を出せますか。

Excelからテキストへの変換に際して 一つのセルに改行を含むデータがあり、それをテキストに１行として 出力したいです。 何か良い方法はありますでしょうか？

先日コンポが壊れてしまったんですが、コンポが燃えないゴミの袋に入る場合は燃えないゴミで捨ててもいいのでしょうか?? それともやはり粗大ごみですか?? 宜しくお願いします。

自分の頭の中でだけにある微細な高周波音です。 外から来る音を聞くのには支障ないが、気になる音です。 出来れば無い方が有難い。 私以外にも同様な悩みを持つ人も居ると思います。 (1)直し方が分かる人 (2)悩んでいる人 が居たら教えて下さい。

ＥＸＣＥＬマクロでのThisisWorkbookの削除をしたいです。 いつもとても助けられています。 今回もいろいろと他の質問内容等を参考にしていますが、 解決出来ません。 お力を貸して下さい。 やりっていることは、毎回ＣＳＶファイルを自動で読み込みして、 ワークシート上の各種設定をしてから公開用のＥＸＣＥＬファイルとして、 別のファイルに保管しています。 そして、その公開用ファイルにては複数のメンバーにて、 付いているマクロ（標準モジュール）を使って処理をします。 このために、ＥＸＣＥＬのThisisWorkbookにて ファイルを読み込み時の複数のマクロの処理を書いていて、 他に標準モジュールで複数のマクロの処理を書いています。 そして、マクロでさらにやりたいことは、 現在は、そのThisisWorkbookにて最後に処理したシートの内容を 別名にて保存してから、保存したファイルを一度開いて、 ThisisWorkbookのマクロを削除 （メンバーが使う時は最初の読み込み時の処理は不要でエラーとなる） する必要がありますが、 この操作を無くして、自動化することです。 ThisisWorkbookをマクロで削除する例や シートのみコピーをコピーしたあとに 標準モジュールをエクスポート・インポートすればいい？？ とか見つけたのですが、 ウィルス対策ソフトでウィルス判定されてしまう等、 うまく行きません。 なんとか他のやり方なので、やる方法はないでしょうか。 現在のＥＸＣＥＬは２０００ですが、 以降の上位バージョンでも出来ることが望ましいです。 よろしくお願い致します。 尚、他のやり方としては、 今の１つのファイルでのやり方を、 ThisisWorkbookでの内容のファイルと、 公開用のファイルを最初から用意しておいて、 ２つのファイルで処理することも考えましたが、 出来れば２つのファイルの運用になるのでやりたくないのです。 以下は自分がネットで調べた情報です。 http://officetanaka.net/excel/vba/vbe/07.htm#sample01 http://www.seiji-tsubosaki.net/ExcelTech/ExcelProfessionalEngineerTechnic/Contents_08.htm

EXCEL2000で1セル内の計算式の結果を表示させる関数 下記の計算結果を表示させる関数を教えて下さい 16+23+35 74 ←この結果になる関数式を教えて下さい

ユーザーフォームのテキストボックスの書式設定について TextBox1に金額、TextBox2に日付を入力し、Sheet1に転記するような フォームを作っています。 TextBox1には、 Private Sub TextBox1_Change() y = TextBox1.Text TextBox1.Text = Format$(CLng(y), "#,##0") End Sub としています。 TextBox2には、書式をH○○.○.○という設定にしたいのですが、 どのようにしたらよいでしょうか。

エクセル2000での2つのテキストボックスのリンクをするにはどうすればいいのでしょうか？ ネットで調べても2000について書かれた物が見つかりません。 ご存じの方がいらっしゃいましたら、教えて下さい。よろしくお願いします。

エクセル2000での2つのテキストボックスのリンクをするにはどうすればいいのでしょうか？ ネットで調べても2000について書かれた物が見つかりません。 ご存じの方がいらっしゃいましたら、教えて下さい。よろしくお願いします。

マクロの自動転記について教えてください 別シートで集計したデータをマクロを使って図の左端G列に表記させました このG列のデータにある日付(G3)は関数でその日のものですがこのG列のデータを図にある日付と同じ場所に毎日転記させたいのですがどなたか教えていただけませんか EXCELについてはある程度解っているつもりですがマクロは全くのド素人で勉強中ですが宜しくお願い致します

VBAで「,」⇒「.」へ置換後、タグ区切りでテキスト保存したい。 お世話になっております。 VBAで下記を行いたいと考えております。 全体の流れとしては、テキストを読み込み⇒エクセル上で編集⇒テキスト保存です。 そのエクセル上で編集⇒テキスト保存で悩んでおります。 編集した複数のシートを、個別にタブ区切りのテキストファイルに保存したいと考えております。 出力する際に、小数点の「,」⇒「.」に変換します。 ※小数点を「,」として利用しています（海外対応） 編集するシートは全てのセルが文字列形式になっており、列も行も読み込むテキストによって可変なので、統一されているわけではありません。 最終行はA列ではなくB列でカウントします。 全てのセルに値が入っているわけではなく、空白もあります。 また、各セルには「0.00000」や「02.24」等の数値も入っており、数値形式にしてしまうと0が消えてしまうので、全てのセルを文字列形式として編集しています。 なお、小数点以下の桁数も可変です。 つまり、小数点が「,」となっているのを「.」になおし、タブ区切りのテキストファイルとして保存したいのです。 出力する際に、いったん別ブックに保存⇒不要なシートを削除⇒タブ区切りで保存はできたのですが、自分があまりVBAに詳しくないせいか、これでは文字列形式で保存されなかったため、シートを新規ブックにコピー⇒タグ区切りで保存に変更しました。 しかし、これではcells.replace ～で置換すると、「00,000」が「0」になってしまいました。 ※「22,222」等は問題ないのですが……何故かは分かりませんでした。 ファイルとしては20000万行～25000行程度です。 列としては40列前後になります。 あまりVBAには詳しくないので、まとはずれな事を言っているかもしれません。 何か良い方法はありますでしょうか？ 宜しくお願いいたします。

open office.orgを使ったら入力がおかしくなってしまいました。 原因がオープンオフィスかどうかわかりませんが、インストールしてワードみたいなソフト使ってるときに入力がおかしくなりました。 この文章を打っている今も、日本語入力が途中で止まって勝手に確定されたりしています。 たとえば「かきくけこ」と打ちたくても「かきk」で止まって、１秒後くらいに「k」だけになったりします。 "サ"行で頻繁に起こる現象です。 オープンオフィスを使ってないときもこのような現象がおこります。 よくわかんないけどできるだけ詳細書いておきます。 .mac os X snow leopard バージョン 10.6.4 .プロセッサ 2.66 Ghz Intel core 2 Duo .メモリ 4 GB 1067 Mhz DDR3 open office使用中に初めてこの現象が起きてアンインストールしても治っていません。 open officeのダウングレードしても治りません。 実際に入力した動画→http://www.youtube.com/watch?v=kXkhKbJL20A 動画の前半は調子が良かったのに途中から残念なことになってます。 原因と対策をお願いします。

HotmailをOutlook2003でPop3受信したいのですが・・・ 受信には成功したのですが、起動の際に大量のメッセージをダウンロードしてそれが2重にも3重にもダウンロードしてしまいます。更に新しいメッセージは受信せず。 しかも、過去の古い送信済みメッセージを再度大量に送信してしまったみたいです。 何が問題なのかさっぱり分かりません。 どなたかご存知の方、いらっしゃいませんでしょうか。 よろしくお願いいたします。