- 1 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 12:34:58 ]
- 過去スレ
01 pc11.2ch.net/test/read.cgi/tech/1054356121/
02 pc11.2ch.net/test/read.cgi/tech/1168308855/
03 pc11.2ch.net/test/read.cgi/tech/1180192018/
04 pc11.2ch.net/test/read.cgi/tech/1189814602/
05 pc11.2ch.net/test/read.cgi/tech/1197448064/
06 pc11.2ch.net/test/read.cgi/tech/1205231499/
07 pc11.2ch.net/test/read.cgi/tech/1212587819/
08 pc11.2ch.net/test/read.cgi/tech/1219673793/
09 pc11.2ch.net/test/read.cgi/tech/1228372971/
10 pc12.2ch.net/test/read.cgi/tech/1235332603/
11 pc12.2ch.net/test/read.cgi/tech/1241885130/
12 pc12.2ch.net/test/read.cgi/tech/1247566074/
13 pc12.2ch.net/test/read.cgi/tech/1254281104/
- 848 名前：デフォルトの名無しさん [2010/03/26(金) 22:49:43 ]
- >>847
ありがとうございます！！まさにそのとおりです。
ちなみに矢印を上端の中心に持ってきて左右の長さを縮めたいのですが・・・
←→ .←────→
┌─────┐┌─────┐
└─────┘└─────┘
今のままでは右のようになるので左の図のようにしたいと考えてまして
そういった方法の指定も可能ですか？
- 849 名前：847 mailto:sage [2010/03/26(金) 23:18:03 ]
- >>848
可能
Rangeオブジェクトのプロパティ
Left Top Width Height
後はヘルプを見るなりして がんばってみてね
- 850 名前：デフォルトの名無しさん mailto:sage [2010/03/26(金) 23:27:15 ]
- 色んなことをやりたい人がいるんだな
- 851 名前：デフォルトの名無しさん [2010/03/26(金) 23:35:17 ]
-
このスレはＶＢＡとＰｅｒｌ１４
のスレなのになぜＰｅｒｌネタが一切でてこないんだ？
- 852 名前：デフォルトの名無しさん mailto:sage [2010/03/26(金) 23:49:26 ]
- 次の質問どうぞ
- 853 名前：847 mailto:sage [2010/03/27(土) 19:33:47 ]
- >>843
もう見てないかもしれないけれど
>>847のコードは
型宣言を 勘違いしてたみたい
変数 X1 X2 Y1 Y2 は Single型もしくはLong型で宣言するべきだった
Integer型だと少数点以下がカットされるので線が少しずれてる
さっきヘルプを見ていて気づいた
ゴメンね
- 854 名前：デフォルトの名無しさん mailto:sage [2010/03/28(日) 03:21:33 ]
- シェイプ関連の位置指定は、ポイント単位だからなあ。
て、Longも駄目だろw
- 855 名前：847 mailto:sage [2010/03/28(日) 10:55:03 ]
- >>854
がーーーん
またまたすみません
たっ たしかにそうでした
回答者に向いてないかも俺
さすがに落ち込みました
- 856 名前：デフォルトの名無しさん mailto:sage [2010/03/28(日) 11:02:37 ]
- ドンマイ。よくあることだw
- 857 名前：デフォルトの名無しさん [2010/03/28(日) 21:05:10 ]
- 質問です。
CSVファイルをエクセルブック内のワークシートに貼り付けするとき、
Workbooks.Open Filename:=csvfile
Workbooks(csvfile).Worksheets.Copy after:=Workbooks(mybook).Worksheets("ファイル一覧")
Workbooks(csvfile).Close
こんな感じで簡単に貼り付けています。
csvファイルが5MBとかサイズが大きくても上のようなやり方で問題ないでしょうか。
csvファイルの先頭から１レコードずつ取得して貼り付けるという方法もネットから探し出せたんですが
どっちがいいのか判断しにくいです。
- 858 名前：デフォルトの名無しさん mailto:sage [2010/03/28(日) 21:07:57 ]
- ExcelVBA開発がメインの人っているの？
趣味とか、基本的にはVBとか、やけにできる事務員とか、そんな感じですか？
- 859 名前：デフォルトの名無しさん mailto:sage [2010/03/28(日) 21:21:12 ]
- 自称やけにできる事務員ですｗ
- 860 名前：デフォルトの名無しさん mailto:sage [2010/03/28(日) 21:35:38 ]
- 英単語が並べられている列があり、隣の列に意味を書き出す、というのを作っています。
使用する英語の辞書のURLはwww.alc.co.jp/です。
「apple」という単語を検索するとURLは
eow.alc.co.jp/apple/UTF-8/?ref=sa
となります。
ここで、英単語を検索した結果表示されたページから該当箇所を抜き出すというやり方が分かりません。
上記の「apple」の場合、「・apple」から「分節ap・ple」まで抜き出したいのです。
やり方がわかる方教えてください。
- 861 名前：デフォルトの名無しさん mailto:sage [2010/03/28(日) 22:09:20 ]
- >>860
＊ データの転載は禁じられています。
class="midashi"
- 862 名前：デフォルトの名無しさん mailto:sage [2010/03/28(日) 22:25:22 ]
- >>857
5MBのCSVなんて動作遅くならないか？
速さをなんとかしたいならsqlでやる。
- 863 名前：デフォルトの名無しさん mailto:sage [2010/03/29(月) 00:28:17 ]
- >>860
VBA上から Webページのデータを取得するのは
そのWebページのソースを見て理解できないと無理
(そしてそれをどうVBA上からコントロールするかも)
ソースをみたけど
<DIV class=mr_10 id=resultList ondblclick=seow()>
ってのがあるから
id=resultList ←これを利用すれば
「・apple」から「《コ》アップル・メニュー」
までは抜き出せるね
あとはタグを辿っていくしかないかな
- 864 名前：デフォルトの名無しさん mailto:sage [2010/03/29(月) 13:57:45 ]
- >>858
やけにできる事務員だった
データの正規化やコピーする際に絶対にミスしないのが魅力的
速度自体は大して変わらん
- 865 名前：デフォルトの名無しさん mailto:sage [2010/03/30(火) 10:59:35 ]
- １ブック内に複数あるシート全てを選択した状態で、且つ一シート目にのみ開始ページ番号が振られている状態で
印刷したときに割り振られるページ数を、印刷せずにマクロで調べたいのですがどのような方法があるでしょうか？
このシートのこのセルは何ページ目に該当する、ということを調べて行きたいです。
プレビューで見ていけば可能ですがページ数が膨大なのでマクロで処理したいと思っています。
- 866 名前：865 mailto:sage [2010/03/30(火) 11:02:54 ]
- すいません、バージョンは2000です。
- 867 名前：デフォルトの名無しさん mailto:sage [2010/03/30(火) 13:47:33 ]
- >>865
『このシートのこのセル』はそもそもどうやって特定するの？
１シートで印刷するのは複数頁あるってこと？
- 868 名前：865 mailto:sage [2010/03/30(火) 16:43:41 ]
- >『このシートのこのセル』はそもそもどうやって特定するの？
全シート走査で特定単語を置換していくので、
その置換処理が行われたときのセルを元に出力時のページをその都度
調べてワークファイルに書き出したいと思っています。
（置換処理、書き出す処理はできてます）
>１シートで印刷するのは複数頁あるってこと？
そうです。
1シートに1頁の場合と複数頁ある場合とがあります。
- 869 名前：デフォルトの名無しさん mailto:sage [2010/03/30(火) 20:18:53 ]
- 特定単語を置換する前に
検索→セル番地取得→セル番地から頁数割り出し
という作業をかませばいいんでないの？
- 870 名前：865 mailto:sage [2010/03/30(火) 21:13:16 ]
- >>869
「セル番地から頁数割り出し」の部分がわからないんです…
- 871 名前：デフォルトの名無しさん mailto:sage [2010/03/30(火) 21:41:45 ]
- 一度、印刷プレビューで1頁で何セル印字するのか調べてみたら
- 872 名前：デフォルトの名無しさん mailto:sage [2010/03/30(火) 22:13:52 ]
- 使った事ないけど
VPageBreak オブジェクト
HPageBreak オブジェクト
なんかどう？
- 873 名前：872 mailto:sage [2010/03/30(火) 23:30:03 ]
- ちょっとテストしてみたけど 頁数割り出しの参考にならないかな
Sub test()
Debug.Print "改ページ数:"; ActiveSheet.HPageBreaks.Count
For Each a In ActiveSheet.HPageBreaks
Debug.Print "改ページ 行位置:"; a.Location.Row
Next
End Sub
- 874 名前：デフォルトの名無しさん mailto:sage [2010/04/02(金) 07:24:45 ]
- Application.OnTimeでサブルーチンを時間起動したいのですが、
セルをダブルクリックして値入力状態であったり、モーダルで
バルーンを表示させていたりすると、Application.OnTimeに制御
が移らず、サブルーチンを起動できません。
これを回避する知恵をお持ちの方、ご教示願います。
- 875 名前：デフォルトの名無しさん mailto:sage [2010/04/02(金) 16:52:52 ]
- 回避するって
＞セルをダブルクリックして値入力状態であったり、モーダルで
＞バルーンを表示させていたりすると、
はどうするねん
別にexcel.applicationを起こしてそっちでontimeさせればええやん
- 876 名前：デフォルトの名無しさん [2010/04/04(日) 19:32:11 ]
- XPsp2,EXCEL2003です。
ピボットテーブルをVBAで作成しているのですが、
データによって（件数？）、集計の仕方が、
「個数／金額」になったり、「合計/金額」になったりします。
常に「合計／金額」になるようにするには、どうすれば良いのでしょうか？
コードは次の通りです。
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ZZZWORK!R5C" & c_yymm_p & ":R" & lastrow & "C" & c_io_p).CreatePivotTable TableDestination:="", TableName:= _
"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").ColumnGrand = False
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").AddFields RowFields:=Array("分類", "科目") _
, ColumnFields:="年月"
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額").Orientation = _
xlDataField
Application.CommandBars("PivotTable").Visible = False
ActiveWorkbook.ShowPivotTableFieldList = False
よろしくお願いします。
- 877 名前：デフォルトの名無しさん mailto:sage [2010/04/05(月) 02:29:05 ]
- >>876
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額").Function = xlSum
- 878 名前：876 [2010/04/05(月) 08:04:46 ]
- >>877
レスありがとうございます。
そのコードを追加したら、
実行時エラー'1004':
PivotFieldクラスのFunctionプロパティを設定できません。
になりました。どうすれば良いのでしょうか？
追加した位置は、下記のステートメントの次です。
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額").Orientation = _
xlDataField
よろしくお願いします。
- 879 名前：デフォルトの名無しさん mailto:sage [2010/04/05(月) 12:28:18 ]
- >>878
フィールド名の「金額」の部分を自分の作ったテーブルに合わせて書き換える
テーブルの一番左上の灰色のセルの値を見る
- 880 名前：878=876 [2010/04/05(月) 17:07:07 ]
- >>879
レスありがとうございます。
常に合計になるようにできましたm(_ _)m
- 881 名前：デフォルトの名無しさん mailto:sage [2010/04/05(月) 18:37:42 ]
- サブメニューを複数個作りましたが、
どのサブメニューを選択しても、同じSubプロシージャを呼び出したいです。
Subプロシージャ側で、どのサブメニューが選択されたかを知るにはどうすればいいでしょうか？
パラメーターとか使えますか？
参考になるサイトがありましたら紹介していただけませんか。
|
 |
