Excel総合相談所 62
..
39:37
07/11/18 03:54:16
たとえば
URLリンク(www.toben.or.jp)
こんなページです。
40:名無しさん@そうだ選挙にいこう
07/11/18 04:02:57
【1 OSの種類 .】 Windows2000
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 】 ダイアログ 条件分岐 VBA
ボタンをクリックすると印刷されてブックをフォルダに保存するマクロを作ったのですが
内容に間違い(主に日付)があってもそのまま印刷されてしまうので
間違いがあった場合に「日付が違うけどいいですか?」「はい」「いいえ」
といった感じのダイアログをだして「はい」の時は印刷&保存
「いいえ」の時はなにもしない
というマクロを作りたいのですがどのようにすればいいのでしょうか?
上記の日付は常に決まったセルに入力してあり、それが本日の日付か否かで
判断をするといった形です
宜しくお願いします
41:名無しさん@そうだ選挙にいこう
07/11/18 04:21:58
>>40
If Range("A1") = Date Then
'印刷するコード
Else
MsgBox ("日付が違うけどいいですか")
End If
42: ◆aUy/vm1yC.
07/11/18 05:22:43
環境:WindowsXP Excel2002
質問:Application.OnTime に関して
マクロを編集していたところ、今まで利用していたOnTimeの処理が実行されなくなりました。
色々調べた結果、最終的に下記の状況で発生することがわかりました。
新規Microsoft Excel ワークシート.xlsを作成し、シートには何も無い状態で
マクロを以下のように記述しました。
ThisWorkbookのマクロ---------------
Private Sub Workbook_Open()
UserForm1.Show
End Sub
Module1マクロ---------------
Sub aaa()
Application.OnTime TimeValue("03:00:00"), "bbb"
End Sub
Sub bbb()
Range("A1").Value = 1
End Sub
* もともとの発生状況ではシートやUserForm1や他マクロにも色々な内容を含みますが、
* 上記の最小の構成にて発生するので割愛させていただきます。
この様な内容のブックにおいて、OnTimeマクロが動きません。
問題はUserForm1.Showに有るらしく、UserForm1.Showを無くすとなぜかOnTimeマクロが実行できます。
ちなみにUserForm1は起動時に開かれて、そのまま×でウィンドウを閉じて、("03:00:00")の処理を待っています。
VBAに関してあまり詳しくないのですが、UserForm1.Showを使いつつOnTimeを利用する方法として
上記内容のどのあたりに問題があるのでしょうか?
解決策をご教示ください。
43:42 ◆aUy/vm1yC.
07/11/18 05:48:18
すみません。
解決しました。 Application.Run "aaa"をWorkbook_Openに入れなければいけないのですね。
UserForm1.Showも関係ないみたいでした。すみません。
44:名無しさん@そうだ選挙にいこう
07/11/18 05:48:24
>>41
こんな夜中に有難うございました
早速実行してみまして
申し訳ありませんが重ねて質問です
A1の部分が日付の入ったセルということでいいんですか?
そして、そこに入力されている値が今日の日付で無いならばElse以降の処理
今日の日付ならばそのまま処理といった形にする場合
If Range("S23") = TODAY() Then
とやってみたのですが
コンパイルエラーと出てしまいます
どのようにすればいいのでしょうか?
45:名無しさん@そうだ選挙にいこう
07/11/18 05:55:43
>>44
余計なことしないでDateのまま使え
46:44
07/11/18 05:55:51
すみません、自己解決しました
せっかく>>41にDateと書いてあったのに・・・
Today関数はVBAには無いんですね(汗
有難うございました、望んでいるものがおかげで出来ました
47:名無しさん@そうだ選挙にいこう
07/11/18 06:14:17
>>46
よく考えたら>>41じゃ日付が違うときのYes,Noが出ないな
Dim Rtn As Integer
If Range("S23") = Date Then
'印刷のコード
Else
Rtn = MsgBox("日付が違うけどいいですか?", vbYesNo, "選択")
If Rtn = vbYes Then
'印刷のコード
Else
End If
End If
48:名無しさん@そうだ選挙にいこう
07/11/18 06:58:53
>>40
>上記の日付は常に決まったセルに入力してあり、それが本日の日付か否か
そのセルに、
=today()
って入れるってのはだめなん?
49:名無しさん@そうだ選挙にいこう
07/11/18 08:59:51
>>47
有難うございます
その後調べてみてなんとかそこまではたどり着きました
ですが変数の宣言がうまくいかなくまたまた困っていたところに
ちょうどレスがあり大変感謝してます
>>48
日付は別の式で自動的に入力されてしまいますので
それができないのです
もともと、別の者がつくったマクロでして、それを何とか改造して使いやすく
人的エラーの無いものにしたかったので、調べながらやっているところなんです
すみません・・
50:名無しさん@そうだ選挙にいこう
07/11/18 10:06:30
>>39
そこならデータ規則正しく並んでいるのでが全体をエクスポートすれば
51:名無しさん@そうだ選挙にいこう
07/11/18 10:12:20
>>39
そこならデータが規則正しく並んでいるので、ページ全体をExcelにエクスポートしてから
単純に「所在地」「電話番号」などで抽出すれば、目的の住所録が作れる。
52:名無しさん@そうだ選挙にいこう
07/11/18 11:24:08
Excelにエクスポートって何だ
IEか何かにそんな機能あるのか?
53:名無しさん@そうだ選挙にいこう
07/11/18 12:22:03
初歩的な事かもしれませんが、お願いします。
【1 OSの種類 .】 XPとMeの両方で使いたい
【2 Excelのバージョン 】 2003と97の両方で使いたい
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
ある文字列の頭3文字を判定して、条件に合致すればその部分を削除、
条件に合致しなければそのままを返すような処理は出来ますか?
例)
「対象の文字列」→「処理結果」
(勝)佐藤太郎→佐藤太郎
(負)鈴木次郎→鈴木次郎
高橋三郎→高橋三郎
54:名無しさん@そうだ選挙にいこう
07/11/18 12:25:00
>>52
ExcelのWebクエリのことでしょ?違う?
55:名無しさん@そうだ選挙にいこう
07/11/18 12:26:22
>>53
=if(left(a1,3)="ある条件",""&a1,a1)みたいな?
56:名無しさん@そうだ選挙にいこう
07/11/18 12:29:56
=IF(LEFT(A1,3)="ある条",SUBSTITUTE(A1,"ある条",""),A1)みたいな?
57:53
07/11/18 12:52:46
>>55-56
上手くいきました。
ありがとうございました。
58:名無しさん@そうだ選挙にいこう
07/11/18 13:24:37
【1 OSの種類 .】 2000
【2 Excelのバージョン 】 2000
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
すいません。教えてください。
今ダイエット中でして、日々の体重の推移をグラフにしております。
シートが4枚ほどになってきたのですが、
グラフの元のデータを複数のシートにわたって設定するには
どうすれば良いのでしょうか?
どうぞよろしくお願いします。
59:名無しさん@そうだ選挙にいこう
07/11/18 13:29:22
>>58
作業シート作って、その4つのシートのデータをまとめる
その作業シートをグラフの元データにする
以上
60:37
07/11/18 15:17:21
>50>51
1列だけ共通の項目名がなく抽出が困難でしたが、
なんとかうまく出来ました。ありがとうございました。
61:名無しさん@そうだ選挙にいこう
07/11/18 17:16:38
>>54
エクスポート=Webクエリなの?
びっくり
62:名無しさん@そうだ選挙にいこう
07/11/18 20:07:04
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 少し
【4 VBAでの回答の可否】 可
グラフを作ってグラフの大きさなどを変更してると
全部グレーになってしまいました。
これってどうやったら元に戻せますか?
63:58
07/11/18 20:46:54
>>59
ありがとうございました。
それには気が付きませんでした^^;
64:名無しさん@そうだ選挙にいこう
07/11/18 21:52:14
>>52
OfficeをインスコするとIEの右クリックメニューに「Microsoft Excelにエクスポート」ってのが追加される。
テーブルの中で右クリックすると、そのテーブルだけがExcelのワークシートに取り込まれる。
それ以外の余白や文章で右クリックすると、ページ全体がエクスポートされる。
ただしASPやPHPみたいな動的に生成されるページはうまくいかないことが多い。
65:名無しさん@そうだ選挙にいこう
07/11/18 22:26:27
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2002
【3 VBAが使えるか .】 少し
【4 VBAでの回答の可否】 可
関数を作り、それを4,5個のExcelファイルで使用しています。それで、この先
この関数を変更した時に一気に修正とかしたいんですけど、良い方法とかって
ありませんかね?一個一個ずつやると修正漏れが出てきそうなんで。
例えば
function XXXX()
end Function
これを a.xls、b.xls、c.xlsに同じ名前で組み込んでいてそれを一気に修正
したいって事なんですけど。
66:名無しさん@そうだ選挙にいこう
07/11/18 23:06:20
むしろ同じ関数を別々のファイルに組み込むのがおかしい。
どっかひとつのファイルに置いて、それをあちこちから使えるようにすべき。
67:名無しさん@そうだ選挙にいこう
07/11/18 23:27:29
エクセルでVBAを学んでいるのですが、元々C言語しか知らない人間なので基本的な事柄を覚えるのが面倒です。
で、質問なのですが、このさきエクセルでC言語をサポートする環境ができるような計画はありますでしょうか?
C言語をサポートするならそれまでは適当な処理で間に合わせようと思ってるのですが・・。
68:65
07/11/18 23:31:18
>>66
シートの参照なら判りますが、関数をあっちこっちから参照して使えるようにする事って出来るんですか?
69:名無しさん@そうだ選挙にいこう
07/11/18 23:33:57
>>67
適当な処理で間に合うんなら、それでいいじゃん。
70:名無しさん@そうだ選挙にいこう
07/11/18 23:39:38
>>68
個人用マクロブック
71:名無しさん@そうだ選挙にいこう
07/11/18 23:39:43
>>68
Application.Runかなんかで出来たような気がする
72:名無しさん@そうだ選挙にいこう
07/11/18 23:40:49
>>68
アドイン関数にする。関数はPublic宣言で。くわしいことはググるかヘルプで調べて。
73:名無しさん@そうだ選挙にいこう
07/11/18 23:41:11
>>69
他に応用が利かないプログラムをその都度作り続けるのは嫌なんです。
それに、Cだったら思ったとおりの動作がすぐにできますが、VBは色んなHPを参照しながら作らざるを得なくて
この先C言語がサポートされないなら、ちょっと本気で覚えないと仕事が増えるかな?と
74:65
07/11/18 23:44:12
おおっ、なるほど。教えていただいたキーワードを調べてみます
皆さん、ありがとですm(__)m。
75:名無しさん@そうだ選挙にいこう
07/11/19 00:07:55
>>73
なーに甘っちょろいこと言ってんの。
VBAなんて変数と関数と制御構造で回してるって点でCと大差なし。演算子や型の違いなんてかわいいもんよ。
ライブラリの一つだと思って覚えとけ。
Cの仕様なんて時代とともにどんどん変わってるし、処理系が変われば完全に別物になるし、
新しい仕事をするたびにライブラリと格闘しなきゃならない。
この程度の応用もできないヤツは、はっきり言ってCを使い続けるのも無理。
76:名無しさん@そうだ選挙にいこう
07/11/19 00:29:32
>>75
なんとなく予感はしてたけど、やっぱりそうですか。
ありがとうです。本腰いれて勉強してみます。
77:名無しさん@そうだ選挙にいこう
07/11/19 00:34:33
エクセル初心者です。
「名前を付けて保存」で、保存しようとする時
プルダウンで、名前の履歴がでますが、
その履歴を消すことは、できますか?
OS:XP エクセル:XP ハードは、職場、自宅等色々です。
78:名無しさん@そうだ選挙にいこう
07/11/19 13:03:43
質問です。
エクセルで名簿とかを作ったんですが、初心者なもので、1〜10・11〜20…といった具合に分けて名前をつけて保存してしまいました。
できれば最初の1〜10のファイルのページに11〜20のページを他のファイルからコピーかなんかして持ってきたいんですが、いい方法ありますか?
79:名無しさん@そうだ選挙にいこう
07/11/19 14:04:24
>>78
いい方法・・・コピー(&ペースト)
80:名無しさん@そうだ選挙にいこう
07/11/19 19:08:32
>>64
へー、そんな機能あったんだ。知らんかった。サンキュ。
81:名無しさん@そうだ選挙にいこう
07/11/19 21:11:51
>>77
[ツール]→[オプション]→[全般]タブ→最近使用したファイルの一覧のチェックをはずす
82:名無しさん@そうだ選挙にいこう
07/11/19 21:15:36
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否 】 可
【5 検索キーワード 】 エクセル 画像の保存,エクセル オブジェクトの保存
ワード文書を(office以外のソフトを使わずに)画像ファイルに変換したいのですが、今のところエクセルで対象のファイルを「オブジェクトの挿入」で取り込み、htmlで保存して自動生成されるフォルダ内の画像を使うというやり方しか思いつきません。
これ以外の方法で画像データとして保存するマクロを探していますがありませんでしょうか。できれば画像を保存する際に名前も自分でつけたいです。
office限定としているのは会社で定めている以外のソフトをインストールしないよう規制されているからです。
アドインというものもあるようですが他の社員のパソコンすべてに入れるのは難しいのでそれ以外の方法を探しています。
お分かりになる方がいましたらお教え願います。
83:名無しさん@そうだ選挙にいこう
07/11/19 22:01:54
>>82
PrintScreen
84:名無しさん@そうだ選挙にいこう
07/11/19 22:06:25
>>82
そういうのは普通仮想プリンタを使う。仮想プリンタと言うとpdfが有名だが、bmpやjpgのもある。
定めている以外のソフトをインストールしないよう規制されてるなんてのは関係ない。
必要なら仮想プリンタをインストール出来るものとして認定して貰えば良いだけ。
業務上で本当に必要なら当然認定してくれるだろう。認定してくれなかったらそれは必要ない物だってことだ。
全てのPCにインストールするのが面倒なんてのも関係ない。面倒でも必要ならばやる、それが「仕事」ってものです。
あとは全て貴社の社内で解決するべき問題なので、よろしくお願いします。
まあPrintScreenの張り合わせで満足できるならそれでもいいが。
それと、マクロもアドインも導入の手間は同じような物だよ。マクロだってそのマクロを含むブックを配布しなければ全てのPCで使えるようにはならないし、
ブックを共有できるシステムが構築されてるならそれを利用してアドイン共有しちゃえば良いだけ。仮想プリンタだって同じ。
85:名無しさん@そうだ選挙にいこう
07/11/19 22:08:27
ちょっと聞いてください。
うちは父一人、娘一人の二人暮らしでした。
父は再婚もせずに私を育ててくれましたが、やはり男性でしたし、相手が欲しかったようで
中学二年の頃から、私が毎晩父の相手をしていました。
最初はよくわからなかったのですが、父が優しく手ほどきをしてくれて
大好きな父が相手でしたから、私も嬉しくて、素直な気持ちで毎晩相手をしていました。
父はとても上手で、いろんな角度から私を攻めてきました。
二人で時間を忘れて朝まで続けてしまったこともあります。
そんな父もすでに亡くなり
今では母親となった私は、当時のことを思い出しながら
夫だけではなく中学生になった息子も相手にしています。
夫と息子がしているのを見るのも好きです。
夫が一番弱いですね。
息子はけっこう強いです。
ちなみに将棋の話です。
86:名無しさん@そうだ選挙にいこう
07/11/19 22:26:00
オートフィルタで抽出された行を切り取りしたいんですが、
切り取り→貼り付けってすると抽出されてない行も切り取られて付いて来ちゃいます。
ある値が入ってる行だけのシートとその項目のないシートに分けたいのですがどうすればよろしいのでしょうか?
87:名無しさん@そうだ選挙にいこう
07/11/19 22:42:57
>>86
抽出した列を選択したらどう?
88:名無しさん@そうだ選挙にいこう
07/11/19 22:49:17
可視セルのみ選択してコピー
89:86
07/11/19 23:02:53
>>88
レスありがとうございます。
コピーなら行けるんですけど可視セル切り取りができないんですよ。
コピー→貼り付け。元の行は削除で行くことにします。
>>.87
列っすか??
90:名無しさん@そうだ選挙にいこう
07/11/19 23:23:51
excel2003 XP
マクロを含むブックがあってブックを開いた後、自作マクロを実施するときに、
昨日までは長いこと、正常に動いていたのですが、次のメッセージが出て
実行できなくなりました。
今日、あるフリーウェアー乃至シェアウエアー(マクロ等は隠している)の
エクセルを実施した後からです。
エラーメッセージとして、
ファイルにアクセスできませんでした。次のいずれかを行ってみてください。
・指定したファイルがあることを確認します。
・ファイルを含むフォルダーが、読み取り専用になっていないことを確認します。
・指定したファイルの名前に次のいずれかの文字も含まれていないことを確認します。
: < > ? 最後につけたファイル名.xls *
・ファイル名およびパス名が半角で218文字より長くなっていないことを確認します。
いずれも、確認済みで該当なしですが、動きません。気になるのは最後に就け
たファイルの名前が出てくることです。
アドバイスをお願いします。
91:82
07/11/19 23:30:50
>>83-84
回答ありがとうございます。
PrintScreenだとちょっと厳しいです。PDF以外の仮想プリンタというのは知りませんでした。勉強してみます。
どうもありがとうございました。
92:名無しさん@そうだ選挙にいこう
07/11/19 23:41:38
>>89
編集→ジャンプ→セル選択→可視セル
93:90
07/11/20 00:03:35
自己解決しましたw
自作マクロの設定が不十分と思っていろいろやっていたのですが、結局、
フリーウェア乃至シェアウエアのエクセルを再度、実施して、終了させたら
自作マクロが正常に動きました ;(~o~);
スレ汚し、すまそ
94:名無しさん@そうだ選挙にいこう
07/11/20 01:13:10
ユーザーフォームのテキストボックス内のテキスト表示が収まりきっていない場合に、
ControlTipTextのようにマウスのポイントで全文を表示させたいのですが、
どうすればよいのでしょうか?
95:名無しさん@そうだ選挙にいこう
07/11/20 05:37:48
>>78
つ【インポート】
96:名無しさん@そうだ選挙にいこう
07/11/20 05:42:04
>>73
フリーだとこう考える。
× ちょっと本気で覚えないと仕事が増えるかな?
○ ちょっと本気で覚えれば仕事が増えて、ウマーかな?
97:名無しさん@そうだ選挙にいこう
07/11/20 09:16:52
【1 OSの種類 .】 Windows98
【2 Excelのバージョン 】 Excel2k
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 】TRANSPOSE関数・列と行の入れ替えなど
A・B・C列に入ってるデータを
A1・A2・A3・B1・B2・B3・・
と1行につき3列ずつ、横1行に並べ替えることは可能ですか?
98:名無しさん@そうだ選挙にいこう
07/11/20 13:42:46
>>97
C3まで行ったら終わり?
9個ずつの並べ替えならTRANSPOSEを3つ手作業で入力してからコピーとか。
99:名無しさん@そうだ選挙にいこう
07/11/20 14:36:27
すいません、31*50行あります
具体的にいうと、50人分のタイムカードの時間計算に使う表です
1日目・・Aが出勤時間、Bが退出時間、Cが休憩時間
2日目・・Dが出勤時間、Eが退出時間・・
となっている表があり、
このままだとうち間違いがあまりにも多発するため、
タイムカードどおり縦に入力して、
それを横向き(以前まで入力していた部分)に反映させたいのです
(そうしないと上司は納得しないんです・・)
100:名無しさん@そうだ選挙にいこう
07/11/20 14:43:59
教えてください!!
エクセル2007、ワード2007でシート保護の設定ができないんです?
パスワードを決める画面がどうしてもでてこないんです?
2003のときはたしか、ツールから保護シートができたんですけど、2007にはツールのタグもない
んです。
誰か助けて!!
101:名無しさん@そうだ選挙にいこう
07/11/20 14:45:00
入力用と計算用のシートなり別に作って雛形にすればいい
102:名無しさん@そうだ選挙にいこう
07/11/20 14:56:46
>>100
どちらも「校閲」タブにでっかいのがあるだろが。よく探せ。
103:名無しさん@そうだ選挙にいこう
07/11/20 15:34:03
101さん
2003のファイルみたいにパスワードを入れて
みれるようにならないんです?
104:名無しさん@そうだ選挙にいこう
07/11/20 16:04:27
【1 OSの種類 .】 Windows Vista
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
セルに0からはじまる数字を入力したいのですが0が消えてしまいます。
(たとえば01111だったら1111になってしまう)
どうすれば入力できるようになるのでしょうか?
教えてください><
105:名無しさん@そうだ選挙にいこう
07/11/20 16:09:19
>>104
セルの書式設定で文字列を指定
106:名無しさん@そうだ選挙にいこう
07/11/20 16:15:09
>>104
桁数が例えば5桁と決まってるなら書式設定のユーザー定義で00000にする。
桁数が毎回違ってて、文字列になってしまってもいいのなら先頭に ' を付けて入力する。
107:名無しさん@そうだ選挙にいこう
07/11/20 16:18:50
>>99
入力(並べ替え)は毎日?
それとも月末にまとめて?
毎日やるなら入力フォームを使った方がいいかもよ。
108:名無しさん@そうだ選挙にいこう
07/11/20 16:20:23
>>106
解決しました!
ありがとうございます!
109:名無しさん@そうだ選挙にいこう
07/11/20 17:00:39
【1 OSの種類 .】 WindowsXP-HE
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 】 (Google)Excel VBA 条件 2つ以上の処理
条件構文で質問です。If判定の後に、2つ以上の処理をするにはどうしたら
よいでしょうか? 例えば
If A = B Then C = D , E = E + 1 , F = 100
のような感じです。
110:名無しさん@そうだ選挙にいこう
07/11/20 17:18:12
>109
これでいいですか?
If A = B Then
C = D
E = E + 1
F = 100
End If
111:名無しさん@そうだ選挙にいこう
07/11/20 17:35:27
>>109
ああ、・・・ 最後のEnd If が抜けていた・・・
Thx
112:名無しさん@そうだ選挙にいこう
07/11/20 17:51:42
>>103=100?
少なくとも100に書いてあるExcel2003のツール>保護>シートの保護でできることは、
Excel2007の校閲>変更>シートの保護でまったく同じことが出来る。
違うと言うなら、おまいが別の機能を「シートの保護」と誤解しとる。
パスワードがないと開けない(読み取りパスワードの設定)ようにしたいなら、
2007の場合はOfficeボタン>配布準備>ドキュメントの暗号化を使え。
113:名無しさん@そうだ選挙にいこう
07/11/20 19:49:11
>>107
月末にまとめて一月分入力です
114:名無しさん@そうだ選挙にいこう
07/11/20 19:50:49
>>109
こういう書き方も出来る。式や命令をコロンで区切る。この場合はEnd Ifは書かない。
If A = B Then C = D : E = E + 1 : F = 100
115:名無しさん@そうだ選挙にいこう
07/11/20 20:05:43
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
エクセルでB4用紙に横に印刷された表をA4で縦に印刷しなおしたいのですが
ページ設定で位置を縦にして%を小さくしてみたのですが
縦になっても上半分で切れてしまったり1枚に収まってもA4の上半分
ぐらいの小さな表になってしまったりと上手く出来ません。
どうすれば綺麗におさまるでしょうか?
116:名無しさん@そうだ選挙にいこう
07/11/20 20:09:53
>>115
>A4の上半分ぐらいの小さな表になってしまったり
・・・これで正解だから
大きく印刷したいならA4【横】で印刷しなさい
117:名無しさん@そうだ選挙にいこう
07/11/20 20:43:06
>>113
それならVBAでやった方が早いかな。
Sheet2からSheet1へ、順番を変えながらデータをコピーする
Sub TimeCardCopy()
Dim Person, Day1, Col1
Application.ScreenUpdating = False ' 画面更新を一時的に止める
Application.Calculation = xlCalculationManual ' 再計算を一時的に止める
For Person = 1 To 50 ' 50人分
For Day1 = 1 To 31 ' 31日まで
For Col1 = 1 To 3 ' 3マスずつコピー
Worksheets("Sheet1").Cells(Person, Day1 * 3 + Col1 - 3) = Worksheets("Sheet2").Cells(Day1, Person * 3 + Col1 - 3)
Next Col1
Next Day1
Next Person
Application.ScreenUpdating = True ' 画面更新する
Application.Calculation = xlCalculationAutomatic ' 再計算する
End Sub
118:名無しさん@そうだ選挙にいこう
07/11/20 21:12:40
>>117
ありがとうございます!
これでうまくいきそうです
119:115
07/11/20 21:30:37
>>116
会社で上司に頼まれたのですが私も最初A4横で印刷したら「こうじゃなくて縦長にA4用紙に
納めて」と言われてしまいました。どうやっても、縦にすると横が半分ぐらいきれてしまいます。
印刷設定ではここまではできないのでしょうか。。。
120:名無しさん@そうだ選挙にいこう
07/11/20 21:36:54
excelを買おうと思って価格comで調べたんですが、(AC)ってのはなんでしょうか?
(UPG)はアップグレード版だとわかるのですが。
無印の Office Excel 2007 って言うのを買えばいいのでしょうか?
OSはwinです。
よろしくお願いします。
121:名無しさん@そうだ選挙にいこう
07/11/20 21:38:18
>>119 ページ設定で 縦?ページ×横?ページに収めるって設定がある 1X1にすればおk
122:名無しさん@そうだ選挙にいこう
07/11/20 21:39:07
>>120
あかでみっく?
123:名無しさん@そうだ選挙にいこう
07/11/20 21:43:23
>>119
無理やりA4におさめたいのなら、
印刷したいセルを選択して、「印刷範囲の設定」を選ぶ。
次に、印刷プレビューを見る。設定で余白を狭めたり、
拡大率を変更し、ページ枚数が一枚になるようにする。
分かりにくい説明だと思うが、これでできるはず。
124:115
07/11/20 22:02:52
>>116,121,123
ありがとうございます。明日また挑戦してみます。
125:名無しさん@そうだ選挙にいこう
07/11/20 22:04:38
>>122
あっ、なるほどー
ってことは学生さん用ですね。
レスありがとうございます。
126:名無しさん@そうだ選挙にいこう
07/11/20 22:12:43
=SUMPRODUCT((A1:A10)="AAA")*(B1:B10="EEE")*(C1:C10))
上記は、A列が"AAA"で、B列が"EEE"の行の対応するC列の値を合計する
式ですが、例えばA列に"BBB"と"CCC"が存在し、これらもOR条件で集計
したい場合のスマート書き方がありましたら教えてください。
気持ちとしては、下記のような式を作りたいと思っています。
=SUMPRODUCT((A1:A10)="AAA"or"BBB"or"CCC")*(B1:B10="EEE")*(C1:C10))
127:名無しさん@そうだ選挙にいこう
07/11/20 22:26:13
配列とVBA、実務で比較的役に立つのはどちらでしょうか?
128:名無しさん@そうだ選挙にいこう
07/11/20 22:35:00
>>127
VBA。VBAの中には配列も含まれるし。
仕事の内容にもよるけど、Excelそのものの使い方よりも計算に対する一般常識をたくさん知っていた方がいい。
129:名無しさん@そうだ選挙にいこう
07/11/20 22:37:07
>>125
別に学生でなくとも教職関係者であればアカデミック版は購入可能だと思うが
130:名無しさん@そうだ選挙にいこう
07/11/20 22:41:26
>>126
条件の and は * に、or は + に置き換えればいい。
+は*よりも優先順位が低いからカッコでまとめること。
=SUMPRODUCT(((A1:A10="AAA")+(A1:A10="BBB")+(A1:A10="CCC"))*(B1:B10="EEE")*(C1:C10))
131:名無しさん@そうだ選挙にいこう
07/11/20 22:47:33
【1 OSの種類 .】 Windowsxp
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 】 excel 自動 ファーム 入力
URLリンク(toi.kuronekoyamato.co.jp)
発送管理と発送状態をすぐわかるように
このクロネコヤマトのお問い合わせに自動でお問い合わせを入力して、お問い合わせボタンを押してくれるようなの希望です。
相手方の 名前 住所 メモ の横にお問い合わせ番号を書いといて、その番号のリンクをダブルクリックすると上記のように
クロネコのサイトが開いて、自動で書いてあるお問い合わせ番号入力、お問い合わせボタンを押してくれたら感激です。
132:名無しさん@そうだ選挙にいこう
07/11/20 22:51:52
>>128
どもっす
133:名無しさん@そうだ選挙にいこう
07/11/20 23:34:25
>>131
検索したらこういうのがありました。応用できそうです。
URLリンク(q.hatena.ne.jp)
134:名無しさん@そうだ選挙にいこう
07/11/21 12:22:22
そこの回答者も大変だな、けんもほろろ。
135:名無しさん@そうだ選挙にいこう
07/11/21 12:27:42
クロネコの問い合わせページは暗号化されたアクセス日時が隠しフォームに入ってて、
いきなりリクエストだけ送ってもダメだからちょっと面倒だね。
136:名無しさん@そうだ選挙にいこう
07/11/21 18:01:44
初心者です!
次のエクセルの式の情報関連のレポートの宿題ですが、
=IF(A1+B1*(1+C$1>100,IF($D1<>"X","あ","い"),"う")
の式についてどういう意味かできれば具体的にお教え願います。
@特に、+と*のどちら先に計算されるのか
AIF関数とその入れ子についてと、
B"あ" "い" "う"と表示されるのはどのような場合か
どうぞ宜しくお願いします。
137:名無しさん@そうだ選挙にいこう
07/11/21 18:16:09
>>136
おめーのようなのは、おれはスルーだ
138:名無しさん@そうだ選挙にいこう
07/11/21 18:27:00
>>136
宿題は自分でやれ!
一言だけ教えてやると、その式、たぶん一箇所 ) を写し間違えてるぞw
139:名無しさん@そうだ選挙にいこう
07/11/21 20:00:29
使い始めたばかりのど素人ですがよろしくおねがいします。
データ分析の回帰分析から回帰直線y=a+bxのaとbを求めたものと、
データを散布図にプロットして線形近似した式と比べてみたのですが
式が一致しませんでした。線形近似は回帰直線にならないのでしょうか。
140:名無しさん@そうだ選挙にいこう
07/11/21 20:05:18
>>131
これで一応希望の動作はできるから、あとは自分の作ったブックに合わせてカスタマイズしてね。
VBAは「いいえ」になってるけど、ブラウザの操作はVBAを使わないと無理だから、がんばって勉強してね。
Sub Kuroneko_check()
' IEオブジェクトのインスタンス化
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True ' ブラウザを開く
' クロネコのサイトに飛ぶ
objIE.Navigate "URLリンク(toi.kuronekoyamato.co.jp)
Do While objIE.Busy = True 'ページが表示されるまで待つ
DoEvents
Loop
' 伝票番号をセルA1から取得してフォームにセット
objIE.document.all.number01.Value = Range("A1").Value
' テスト用仮データをセット (動作確認用)
objIE.document.all.number01.Value = "1111-2222-9993"
' 問い合わせボタンをクリック
objIE.document.all.sch.Click
End Sub
141:名無しさん@そうだ選挙にいこう
07/11/21 20:11:59
>>136
そういうのはまず、自分で実際にエクセルの画面に入力して確かめてみるところから始めるといい。
そうすると入力ミスしていないかどうかも確認できるし。
1つだけヒント
+ は足し算
* はかけ算。×のかわりに * と書く決まり。どっちを先に計算するかは小学校で習ったよね?
142:名無しさん@そうだ選挙にいこう
07/11/21 20:41:27
>>136
宿題なら教科書をみて自分で考えれ
143:名無しさん@そうだ選挙にいこう
07/11/21 20:56:45
>>131
個人相手ではどうか知らんが、法人ならばやり方教えてくれるかもよ>クロネコ
131が物流と言う言葉にピンと来れば、そこに聞いてみるといい。
144:名無しさん@そうだ選挙にいこう
07/11/21 21:21:00
初歩的な質問ですみません。
Excel2007の単独導入を考えているのですが、
Excel2007にMS数式3.0は付いてきますか?
145:名無しさん@そうだ選挙にいこう
07/11/21 23:44:32
VBAでデスクトップにある<aaa>フォルダーの<bbb.csv>ファイルを開きたい。
Workbooks.Open Filename:= の続きを教えてください。
146:名無しさん@そうだ選挙にいこう
07/11/21 23:51:48
>>145
これでいいの?Windowsのバージョンによってはパスが違うことも…
Workbooks.Open Filename:="C:\Documents and Settings\ユーザー名\デスクトップ\aaa\bbb.csv"
147:145
07/11/22 00:01:46
サンクスです。
できました。
148:名無しさん@そうだ選挙にいこう
07/11/22 00:04:52
>>145
デスクトップのフォルダ名は以下のようなメソッドで取り出すことが出来ます。
CreateObject("WScript.Shell").SpecialFolders("desktop")
これを応用して書き換えるとこうなります。
Workbooks.Open Filename:=CreateObject("WScript.Shell").SpecialFolders("desktop") & "\aaa\bbb.csv"
これならユーザー名が変わってもWindowsのバージョンが変わってもそのまま使えます。
149:145
07/11/22 01:00:50
サンクス。
それいいですね。
150:リース
07/11/22 09:32:12
URLリンク(successmix.xsrv.jp)
ってビジネスどう思う?
これなら、できる?
151:名無しさん@そうだ選挙にいこう
07/11/22 09:49:08
>>150
全然、欲しいとも思えない商品ばかり。悪質なマルチ商法
152:名無しさん@そうだ選挙にいこう
07/11/22 11:46:29
【1 OSの種類 .】 WindowsXP-HE
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 】 (Google)Excel VBA セル 選択 不連続 グラフ
不連続(飛び飛び)のセルの数値を使ってグラフを作成したく思っています。
例えば、URLリンク(www.imgup.org) で、土地の行のAさん〜Cさん
の2006年のデータを円グラフにする際には、どのような記述になるのでしょうか?
この場合だと、対象の数値は、100,150,500 となります。
153:名無しさん@そうだ選挙にいこう
07/11/22 12:21:18
不連続の表を連続の表に変換してからグラフにしたほうが簡単だな
154:名無しさん@そうだ選挙にいこう
07/11/22 15:32:32
>>151
おまえいいやつだな。単なる広告コピペにわざわざレスつけるなんて。
155:名無しさん@そうだ選挙にいこう
07/11/22 15:45:03
>>152
フィルターかけてからグラフを作成。非表示のセルを空白に。
あるいはデータの範囲を
=Sheet1!B4,Sheet1!D4,Sheet1!F4
みたいにコンマで区切って並べれば飛び飛びのセルを指定できる。
Ctrl押しながらクリックして複数のセルを選択してからグラフを作っても同じこと。
156:名無しさん@そうだ選挙にいこう
07/11/22 17:08:01
>>153,155
さんきゅうです。やってみます。
157:名無しさん@そうだ選挙にいこう
07/11/22 19:48:18
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】
【5 検索キーワード 】 小数点 揃え セル等々
かなり初歩的な質問だと思うのですがお願いします。
URLリンク(image13.bannch.com)
このように縦に数字の桁をそろえるにはどうしたらいいのでしょうか?
158:名無しさん@そうだ選挙にいこう
07/11/22 20:17:40
ちょっとちがうかもしれないけど書式を ???.?? としてみる (?が3つ ピリオドが1つ ?が2つ)
159:名無しさん@そうだ選挙にいこう
07/11/22 20:42:17
横からスマソ
その???.??は書式→セル等、どうやっていれるか教えてくれ
160:名無しさん@そうだ選挙にいこう
07/11/22 20:52:09
書式と言うか書式設定の中の表示形式、更にその中のユーザー定義
Excelでは書式と言うと、セルの文字色や背景色、罫線などまで含めたものを指す
それと???.??より0.??の方が良いだろうな
まぁ、どちらにしろ整数でも小数点が表示されるのが嫌だとか言い出しそうだがな
その場合はVBA使うとかセル分けするとかかな
161:名無しさん@そうだ選挙にいこう
07/11/22 21:00:52
>>159
こうやるの。基本中の基本だからしっかり覚えておくように
URLリンク(www.wanichan.com)
162:名無しさん@そうだ選挙にいこう
07/11/22 21:27:31
>>157
(1) ここで説明する方法はExcel2003以前では使えないので、まずExcel2007に乗り換える
(2) セルを右クリックして「セルの書式設定」→「書式」→「ユーザー定義」を開いて「??0.??」と入れる
(3) 同じく「セルの書式設定」の中の「配置」タブを開き、横位置を「左詰め (インデント)」にしてインデントを1にする
(4) 条件付き書式を開き、「新しいルール」→「数式を使用(r」を選ぶ
(5) 数式のところに「=A1=INT(A1)」と書き、書式をユーザー定義で「??0」にする
このとおり
URLリンク(pict.or.tp)
163:名無しさん@そうだ選挙にいこう
07/11/22 21:29:28
へー 2007買おうかな
164:名無しさん@そうだ選挙にいこう
07/11/22 21:38:15
MS ゴシック のような等幅フォントにして小数点以下がないものは半角スペースを3つ
小数点以下が一桁ある場合は半角スペースを1つ入れる
配置を右詰めにしたらできあがり
2003以前でも対応可
俺って天才
165:164
07/11/22 21:41:45
値の最初に「'」をつけるのを忘れずに^^
166:名無しさん@そうだ選挙にいこう
07/11/22 21:49:23
それじゃ式に使えないじゃない
167:名無しさん@そうだ選挙にいこう
07/11/22 22:16:11
前スレで、=MAX(0,)を教えてもらったものです(Excel9007使用)m(_ _)m
H3に、
=MAX(0,(F3-F2-G2)*0.05)という計算式を入れてますが、ここに小数点以下は切り捨てという条件も入れるにはどうしたらよいでしょうか?
H4にINT関数入れれば出来るのは知っているのですが、一つにまとめたいので。
168:名無しさん@そうだ選挙にいこう
07/11/22 22:24:45
>>167
式全体をINT( )のカッコの中に入れればいいんだよ。
=INT(MAX(0,(F3-F2-G2)*0.05))
169:名無しさん@そうだ選挙にいこう
07/11/22 22:35:36
>>168
ありがとうございましたm(_ _)m
170:名無しさん@そうだ選挙にいこう
07/11/22 23:16:04
9007 いいなあ
171:名無しさん@そうだ選挙にいこう
07/11/22 23:55:23
>>157
VBA使っていいならThisWorkbookに
Private Sub autochange(ByVal Target As Range)
Dim c As Range, f As String, s As String, e As String
On Error Resume Next
Application.EnableEvents = False
For Each c In Target
f = c.NumberFormat
If Right(f, 7) = "AUTO1""@" Then
s = Mid(f, InStr(1, f, """", vbTextCompare) + 1, Len(f))
s = Left(s, InStr(1, s, ";AUTO1""", vbTextCompare) - 1)
If Int(c.Value) = c.Value Then
e = Left(s, InStr(1, s, ";", vbTextCompare) - 1)
c.NumberFormat = e & ";""" & s & ";AUTO1""@"
Else
e = Mid(s, InStr(1, s, ";", vbTextCompare) + 1, Len(s))
c.NumberFormat = e & ";""" & s & ";AUTO1""@"
End If
End If
Next
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
autochange Sh.UsedRange
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
autochange Target
End Sub
こんな感じにして表示形式を
0.00;"0_._0_0;0.00;AUTO1"@
にする
172:名無しさん@そうだ選挙にいこう
07/11/23 02:32:11
WindowsXP
Excel2000
VBA使えません。
y軸に普通の値を、x軸に乗数を含む数値を入れた滑らかなグラフを作りたいのですが、どうすればいいんでしょうか。
折れ線で試したのですが、x軸の値が乗数表示できず、10-6のように表示されてしまい、
また、滑らかなグラフになりません。
173:名無しさん@そうだ選挙にいこう
07/11/23 03:34:19
>>172
自動的に乗数を出すことはできないので、データラベル用の列か行を自分で作っておく必要がある。
例えば10のマイナス6乗を書きたい場合は、まず「10-6」と入力してから「-6」の部分だけを選択して、
書式→セルを開いて「上付き」をチェックする。
先に1つだけ作って、それをコピーしてから数字だけを修正していった方が早くできる。
グラフをなめらかな曲線にするには、まず折れ線グラフを作ってからプロパティ→系列→書式を選んで
「スムージング」にチェックを入れる。
174:173
07/11/23 03:40:56
あ、スマン。たしかに書式が無視されるね。これは気が付かなかった。
175:172
07/11/23 04:05:44
>>173
セル上はちゃんと乗数になってるのに、グラフの数値では書式が戻ってしまうんですよね。
これはどうしようもないんでしょうか…。
176:名無しさん@そうだ選挙にいこう
07/11/23 04:10:13
指定した文字があるセルにジャンプすることはできる?
「E」と入力すると「English」というセルに飛べるか
177:名無しさん@そうだ選挙にいこう
07/11/23 04:37:37
>>175
VBAでできないか調べてみたけど、軸ラベルは単純な文字列じゃないんだね。
オートシェイプのテキストボックスを重ねるしかないかなあ。
178:177
07/11/23 05:04:20
>>175
とりあえずオートシェイプで誤魔化してみた。俺の頭じゃこれが限界だ。
URLリンク(upsurusuru.hp.infoseek.co.jp)
179:172
07/11/23 05:24:40
>>177
わざわざスクショまでうpしていただいて、ありがとうございます。
やってみます。本当にありがとうございました!
180:名無しさん@そうだ選挙にいこう
07/11/23 07:47:28
>>130
遅ればせながらできました。ありがとうございました!
181:名無しさん@そうだ選挙にいこう
07/11/23 08:39:20
>>176 検索
182:名無しさん@そうだ選挙にいこう
07/11/23 19:05:37
>>176
ブックやシートには標準ではKeyPressイベントが公開されてないから、
どっかからオーバーライドしてくるか、別のプロセスでイベントハンドラを用意しないとダメかも。
不可能ではないけど、けっこうめんどくさい。
183:名無しさん@そうだ選挙にいこう
07/11/24 01:50:45
【1 OSの種類 .】 WindowsXP SP2
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 関数 検索 lookup 空白 無視 ...等
A B C
1 01A01 02A02 03A03
2 02B02 03B03
3 01C01 02C02 03C03
4
5 02D02 03D03
6
7 01E01 02E02
という表で、たとえば
A10に01A01と打ち込むとその行の一番右列にある03A03を返す
A10に02D02と打ち込めばその行の一番右列にある03B03を返す
A10に01E01と打ち込めばその行の一番右列にある02E02を返す
という関数を作りたいのですが上手くいきません。何かいい方法はないでしょうか?
空白の行・セルはソートはできません。
184:名無しさん@そうだ選挙にいこう
07/11/24 03:05:39
>>183
ちょっと長くなるけど
=IF(ISERROR(VLOOKUP(A10,A1:C7,3,FALSE)),IF(ISERROR(VLOOKUP(A10,B1:C7,2,FALSE)),"",
VLOOKUP(A10,B1:C7,2,FALSE)),IF(VLOOKUP(A10,A1:C7,3,FALSE)="",
VLOOKUP(A10,A1:B7,2,FALSE),VLOOKUP(A10,A1:C7,3,FALSE)))
185:名無しさん@そうだ選挙にいこう
07/11/24 09:20:36
>>183
一番左に1列挿入して次の式を入力
=LEFT(B1&C1&D1,5)
この列を検索範囲に入れて
=VLOOKUP(A10,A1:D7,4,1)
186:名無しさん@そうだ選挙にいこう
07/11/24 11:14:17
すみませんが教えて下さい。
PCの買替え(→vista)を検討中ですが、Excel2000で作成したファイルは
いきなりExcel2007で作業することは可能ですか?
【1 OSの種類 .】 Windows98SE
【2 Excelのバージョン 】 Excel2000
187:名無しさん@そうだ選挙にいこう
07/11/24 11:27:58
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
セル内の文字の中から、指定の文字を数える方法はありませんかね?
たとえばセル内に aaaabcd と書いてある場合、a の数が4個だと分かるような関数はありますか?Len関数を使えば、上記の場合7と答えが出ますが、文字の指定はできなかったはずです。
188:名無しさん@そうだ選挙にいこう
07/11/24 12:42:10
>>187
釣りじゃないよね?
=LEN("aaaabcd")-LEN(SUBSTITUTE("aaaabcd","a",""))
「元の文字数」−「指定文字を除いた文字数」
簡単だろ。
189:名無しさん@そうだ選挙にいこう
07/11/24 13:23:47
うぜー
190:名無しさん@そうだ選挙にいこう
07/11/24 14:40:09
エッ! 難しかったの?
191:名無しさん@そうだ選挙にいこう
07/11/24 15:46:44
お尋ねします
【1 OSの種類 .】 WindowsVista
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
セル内の二色を使った文字列のうち1色だけを他の色に置き換えることはできないんでしょうか
「置換」を使うとセル内すべての文字色が置き換わってしまうのですが
赤黒→青黒にしたいところ
赤黒→青青になってしまいます
192:名無しさん@そうだ選挙にいこう
07/11/24 17:20:32
【1 OSの種類 .】 Windows Vista
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
2003で作成したものを2007で読むとウインドウ枠の固定ができません。
ページによってはできるのですが、そこが白黒表示でできません。
同様の方はいらっしゃるでしょうか。
また、解決法などあるでしょうか。
193:名無しさん@そうだ選挙にいこう
07/11/24 17:59:00
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
会計ソフト(市販のモノです)からエクスポートしてきたデータ(エクセル形式)を貼る付けと同時に加工することは可能でしょうか?
例えば貼りつけるとすぐに「売上債権回転率」や「流動比率」などを計算させる、などです。
貼りつけた数値の位置が毎回同じなら良いのですが、月次によって勘定科目の増減がありますので、
貼る付ける位置が常に同じとは限りません。
何か良い方法はありませんでしょうか?
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5378日前に更新/90 KB
担当:undef