Excel総合相談所 73 / ビジネスsoft(PC等)-2ちゃんねる過去ログ倉庫

Tweet Follow us
ロゴtop 辞書 カクテル 科学 Web制作 URL短縮 写真素材 2ch倉庫  more≫ 
板リスト全部 1- 最新100
1 名無しさん@そうだ選挙にいこう 投稿日:2008/08/27(水) 18:54:44
Excelに関する質問は、ここで!

▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問前に>>2-10あたりの注意書きやQ&Aを必ず読むこと。
★4 質問テンプレ(雛形)は必須じゃないけど、
   OSやExcelのバージョン、VBAの可否など(下記テンプレ1〜4の情報)は必須情報。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類         .】 Windows**
【2 Excelのバージョン   】 Excel**
【3 VBAが使えるか    .】 はい・いいえ
【4 VBAでの回答の可否】 可・否
【5 検索キーワード     】 Googleやヘルプでの検索キーワード

※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は「可」
  VBAを使うのは避けたいって場合は「否」にしましょう。丸投げする場合は、必要に応じてブックをアップすること。

※【5】は、あなたがGoogleやヘルプで検索した際に使ったキーワードを書いてください。
  まだ検索してないなら、質問の前にGoogleやヘルプで検索してみてください。
  ttp://www.google.co.jp/

前スレ
Excel総合相談所 72
http://pc11.2ch.net/test/read.cgi/bsoft/1215765544 ロゴ
142 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 14:40:06
A1とA2に入力した文字が同じであればA2に 〃 を入力。違うならA2の文字はそのままにする方法ありませんか?
143 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 15:54:10
>>141
ttp://pc.nikkeibp.co.jp/article/NPC/20060712/243055/

>>142
Excelちゃん泣いちゃうだろ。それ。
A1ちゃんとA2ちゃんは同じだから、A2ちゃんを〃にしてと。
あれ?、これしちゃうと。A1ちゃんとA2ちゃんは違うから、
元のA2ちゃんなんだっけ、Excelわかんな〜いっ。
ってならんか?

 A    B
1 笑う  =A1
2 泣く  =IF(A1=A2,"〃",A2)
3 泣く  =IF(A2=A3,"〃",A3)

空白とか全角半角には気をつけるように。
144 129 投稿日:2008/09/04(木) 15:59:57
>131
>使用期限はない
>2007は今のところ買わないほうが良い

ご教示ありがとうございました。助かりました。
145 141 [sage] 投稿日:2008/09/04(木) 16:37:15
>>143
ありがとうございます!
しかしせっかくですが、自分はエクセル2007なので
ちょっとやり方が違うようでした。。。

同じ項目を探して辿ったのですが
表示された、印刷のタイトル行に入力ができませんでした。
またよろしくです。。
146 141 [sage] 投稿日:2008/09/04(木) 16:43:36
突然ですが、自己解決しました!!
ありがとうございました。
147 名無しさん@そうだ選挙にいこう 投稿日:2008/09/04(木) 17:00:34
>>140

ありがとうございます。
兎に角やってみます!
148 名無しさん@そうだ選挙にいこう 投稿日:2008/09/04(木) 18:18:24
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 エクセル マクロ シート 文字列 選択 状態

1年1組 1年2組 1年3組 … 1年10組 2年1組 2年2組 等の

複数のシートがあります。
その中で1年という文字列を含むシート全てを選択状態にしたいのですが、

マクロで出来たと思ったのですが、すみませんがコードをお願いできないでしょうか?
149 名無しさん@そうだ選挙にいこう 投稿日:2008/09/04(木) 18:31:51
VBAのMod演算子について質問ですが、10.5 Mod 3.5 は何で2になるの?
0になりそうなものだが。
150 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 18:33:52
>>148
> マクロで出来たと思ったのですが、すみませんがコードをお願いできないでしょうか?
ttp://www.moug.net/tech/exvba/0040032.htm

 "売上表*"  -> "1年*"
151 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 18:41:01
>>149
左の10.5が銀行型丸めで10になり、右の3.5が同じく銀行型丸めで4になる。
すなわち10 Mod 4として計算されるから答えは2で合ってる。
152 149 投稿日:2008/09/04(木) 18:53:35
>>151
サンクス、そのように計算されるんですか。
だとするとヘルプはちょっとおかしくないですか?
そのように計算されるなら、resultが少数になることはありえないんじゃ???
153 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 18:58:31
>>152
ヘルプの間違いは探せばいくらでもある。
あまり鵜呑みにするな。
154 149 投稿日:2008/09/04(木) 19:06:15
>>153
そうなんですか。困ったものですね。
155 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 19:38:18
まあresultが小数になることは無いから、resultの少数は切り捨てられるってのは
別に書く必要は無いけど、計算時に
> このとき浮動小数点数は整数に丸められます。
と書いてあるんだから、動作としては解説通りで間違ってはいないだろ。
156 名無しさん@そうだ選挙にいこう 投稿日:2008/09/04(木) 19:48:51
>>150
ありです
157 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 20:25:48
A1に AA
A2に AB
があり

B1 DAA
B2 DBB
と表示させたくて
B1に=゙D゙A1
B2に=゙D゙A2
を入力しましたがエラーになりました
どうすれば良いのでしょうか?
158 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 20:35:50
B1に=゙D゙ & A1
B2に=゙D゙ & A2
159 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 20:39:48
A1
B1
にそれぞれ1という文字が入ってるとします
=IF(A1+A2,゙good゙,゙bad゙)
だとちゃんと動作してくれるのですが
1の代わりに日本語入れると動作してくれないです
どこをどうすれば改良してくれるのでしょうか?
160 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 20:46:38
ここをこうして改良してみました
=IF(A1&A2<>"",゙good゙,゙bad゙)
161 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 20:52:27
=IF(A1+A2,゙good゙,゙bad゙)って何を求めているの?
動作してくれたの?
漏れのは無理みたいw
162 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 21:05:47
>>155
そうなんだよね。悩ましい。
話題からそれるけれど、
ttp://msdn.microsoft.com/ja-jp/library/se0w9esz(VS.80).aspx
VBから操作しようと思ったら、
例題を実行するVBA以下ソースとまったく違うんだ。こまったもんだ。

Sub main()
    Dim testResult As Double
    testResult = 10 Mod 5
    Debug.Print "Ans1:" & testResult
    testResult = 10 Mod 3
    Debug.Print "Ans2:" & testResult
    testResult = 12 Mod 4.3
    Debug.Print "Ans3:" & testResult
    testResult = 12.6 Mod 5
    Debug.Print "Ans4:" & testResult
    testResult = 47.9 Mod 9.35
    Debug.Print "Ans5:" & testResult
End Sub
163 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 22:14:01
俺の場合、VBでもVBAでもVBSでも
MODは算術計算というよりほとんど条件分けに使ってるから
全然困らないな

算術計算するときは自分でMod関数作れば良いだけだし
164 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 22:17:57
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 はい(ちょっとだけ)
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 excel コマンドボタン 固定

vbaでコマンドボタンを押す事によりデータ抽出をしているのですが、その過程で
押す前の位置は当然、問題ないんですが押してデータ抽出をすると、行削除をしているからなのかコマンドボタンの位置があらぬ所に変更されてしまいます。
セルK1にコマンドボタンを置くとして、どのようなアクションが起こってもコマンドボタンの位置を固定(K1)にする事などできないでしょうか?

よろしくお願いします。
165 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 23:51:40
>>164
俺の感覚からいくと、処理のためのシートとデータのシートは一緒にしない。
よくわからないから、マクロ記録してみたよ。

質問不明瞭だけど次のようなコードでいけるんでないの?
ボタンは、B3:C4あたりに配置した。(CommandButton1)

Sub Macro()
    Dim cLeft, cTop As Double
    ActiveSheet.Shapes("CommandButton1").Select
    cLeft = Selection.ShapeRange.Left
    cTop = Selection.ShapeRange.Top
    Debug.Print "削除前左:" & cLeft
    Debug.Print "削除前上:" & cTop
   
’削除処理とかここだし。
    Rows("1:6").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Shapes("CommandButton1").Select
    Debug.Print "削除後左:" & Selection.ShapeRange.Left
    Debug.Print "削除後上:" & Selection.ShapeRange.Top

    Selection.ShapeRange.Left = cLeft
    Selection.ShapeRange.Top = cTop
    Debug.Print "移動後左:" & Selection.ShapeRange.Left
    Debug.Print "移動後上:" & Selection.ShapeRange.Top
End Sub
166 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/04(木) 23:53:41
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】パワーポイント 文字数 カウント

スレ違いで大変申し訳ありませんが、
パワーポイントのノート画面部分の文字数のみをカウントするマクロって
ないでしょうか?PPTファイル内の文字数をカウントするマクロは見つけたのですが。
ご存知の方いらっしゃいましたら、よろしくお願いします。
167 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 01:03:37
>>166
ttp://oshiete1.goo.ne.jp/kotaeru.php3?q=1582124&rev=1
と、どう違うか教えて。

おやすみ。
168 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 01:15:06
>>164

プロパティで位置とサイズ固定できなかったっけ?
あれはオートシェイプのみだっけ
169 名無しさん@そうだ選挙にいこう 投稿日:2008/09/05(金) 06:16:24
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

A1に「1」と入力すると、C1〜E1までが赤くなる(3マス)
A2に「2」と入力すると、D2〜G2までが赤くなる(4マス)
A3に「3」と入力すると、C3〜E3までが黄色くなる(色違い)
A4に「4」と入力すると、C4〜E4までが赤くなる。&1マスごとに「A」と記入される(文字と色)

というのはできますでしょうか?
欲張りすぎていて、難しいでしょうか?ご教授のほどよろしくお願い致します。
170 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 07:29:33
>>169
教授じゃないので難しいことは分からん。

・色を変えたいセルに条件付き書式を設定
・文字を表示したいセルはIF文
171 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 09:45:09
EXCEL2002、厳密にはスレ違いとわかっていて質問

(Excelで)NumLockで数値を入力していくときに、
= を出すにはどうすれバインダー

NumLock状態だと Shift + "‐"では出ないのぜ
毎度解除して = を入力して戻すのは非効率なので
なにか方法があるのだとおもうのぜ
172 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 09:49:19
>>159
( ´,_ゝ`)プッ
あんた、足し算の意味もわからないのか?
173 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 10:06:33
>>171
ノートパソコンのこと?
俺のは「わ」キーのところに*があるためにShift + "‐"で"="が出る
PCを買い換えるかテンキーを買うべし

・・嘘です
ベクターにキーの配置を変えるソフトがあるよ
こういうの何ていうか知らないけど
ttp://search.vector.co.jp/search?query=%83L%81%5B%81%40%94z%92u

174 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 10:14:27
>168
固定できる。
>171
普通は介助しなくても入力できる。
そういう仕様のノートならメーカーを恨め。
175 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 10:15:37
>>155
ヘルプの解説にnumber1とnumber2が丸められるとは書かれてないのは不親切な解説だな。
resultが丸められると勘違いする人が多いと思う。
>通常、演算結果 result のデータ型は、result の値が整数であるかどうかに関係なく
これなんか演算結果が整数意外ありえないんだから書かないほうがいいだろう。
http://moug.net/faq/viewtopic.php?t=32011&sid=a120d9adbac2fe14897054e792ecf5bf
ここにも分かってない人いるしね。
176 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 10:55:00
>>173 ためになるコメントありがとう。
リンク先で検索ワードがわかったので窓の杜でも探してみたけど
よくわからなかったのぜ
会社のノートなのでいろいろ入れるのはこわいのぜ
NumLock状態でまわりのキーをShiiftとかでいろいろためしてみたけど
だめだったのぜ、おっけーあきらめた

>>175 ためになるコメントありがとう。不治通め・・・
177 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 14:05:35
>>175
>>162のリンク読んでみると、VBのMod演算子とVBAのMod演算子と仕様が違うらしいから、間違ってVBのヘルプをそのまま載せたんじゃない?
178 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 15:41:06
=E2
と入力したセルをコピーしたら値が増えるのをなんとかしたい
上記のセルが複数欲しい時は手動で直すのがかなり面倒
なんとかならない?
179 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 15:46:30
フィルコピーなら絶対参照
コピー%ペーストならINDIRECT
180 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 15:47:00
>>178
言いたい事は分かるし解決法も分かるが
お前の態度が気に入らない
181 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 16:14:57
>>177
そうでもないみたい。
解説がいまいちなのは確かだね。
182 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 17:14:09
すみません

   月   日  時   分
   A1  A2  A3  A4
B1  8   1     7    52

これを一つのセルに1:7:52(月は必要なし)という感じに抜き出して日付にしたいのですが
ググってもわからなかったのでここで・・・。
分かる人がいましたらお願いします・・・
183 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 17:19:51
>>178 絶対参照でググるのぜ
184 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 17:22:31
>>182
行列逆にするなよ気色悪いな
=A2+TIME(A3,A4,0)
書式設定は
d:h:mm
だが変わった記述だな
185 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 17:35:01
>>184
ありがとうございます!行と列は普通に書き間違えました・・。
ゆくゆくはこの形式から例えば
1日10時10分が
1日7時52分〜2日3時25分の間なら正、じゃなければ負といったように
時間で範囲指定をするつもりです。問題がなければ・・・
186 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 21:47:10
【1 OSの種類         .】 WindowsXp
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 若干
【4 VBAでの回答の可否】 可
教えてください。
20080101
20081005
といったデータ(値)を
2008/1/1
2008/10/5
として表示形式で好きな表示に変える、ということがしたかったのですが、
煮詰まってしまいました。
yyyymmddという形式は決まっているので、ためしに
CONCATENATE(LEFT(A1,4),C1,MID(A1,5,2),C1,RIGHT(A1,2))
(A1="20081010"、C1="/" )
として見かけ上2008/10/10 となっても表示形式で(例えば)10月10日
とはなってくれませんでした。
一連のVBAでの中でつかうので出来ればVBAで解決したいと思っております。
なんかすごく簡単に出来そうなのに出来なくて混乱しております。
なにとぞご教示お願いします。
187 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 22:00:20
=year(right(a1,4),mid(a1,5,2),right(a1,2))
188 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 22:01:36
=date(right(a1,4),mid(a1,5,2),right(a1,2))
189 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 22:01:46
Google DocumentのスプレッドシートにDCount()がなくて対処法を知りたいんですが、
どこで質問したらいいでしょう?
190 186 [sage] 投稿日:2008/09/05(金) 22:29:49
>>187
>>188
早速のレスありがとうございました。
残念ながら>>187は私の理解の範疇を超えてしまいましたが、
>>188は西暦を取得する部分をleftに変えたら、希望通りの
振る舞いをしてくれました!

本当にありがとうございました。
191 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 22:35:00
笑w
192 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 22:45:06
助けてくださいorz

セルに「AB CD 」と、BとCの間にスペース、そしてDの後ろにスペースが
入ってます。

TRIM関数を使うとDの後ろのスペースは取ることができますが
BとCの間のスペースは残ります。
このBとCの間のスペースを無くす方法ありませんでしょうか?

よろしくおながいします。
193 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 22:49:14
置換したら?
194 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 22:52:37
スペースを何に置き換えするんですか?orz
195 189 [sage] 投稿日:2008/09/05(金) 23:02:37
1〜10みたいな範囲で件数を拾いたかったんですが、
関数の組み合わせでできました。
1条件しか指定できないcountif()とfilter()で2条件のand検索できました。

=countif(filter('シート1'!C:C,A3<='シート1'!C:C),"<" & C3)
196 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 23:09:50
>>193
さんくす。でけました。
197 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/05(金) 23:49:39
以下のような、toggleプロシージャを作りたいと思っています。

Sub toggle(ByRef obj As Variant, ByVal propertyName$)
obj.propertyName = Not obj.PropertyName
End Sub

具体的に、どういうものであるかというと、
今、objというオブジェクトにboolというプロパティが存在し、
その値がTrueであるとします。
それを踏まえ、toggle(obj,"bool")という引数で、toggleプロシージャを
呼び出すと、obj.boolの値がTrueからFalseとなる、というものです。

そこで、質問なのですが、”.”を使わずにプロパティを参照するには
どのようにすればいいのでしょうか。
たとえば、Javascriptだとobj[propertyName]でプロパティ参照できるのですが、
VBAには類似の呼び出し方法は存在しているのでしょうか。
198 197 [sage] 投稿日:2008/09/06(土) 10:57:58
すみません。解決いたしました。
CallByNameをつかうとできるそうです。
199 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/06(土) 11:00:35
>>194

検索にスペースを指定
痴漢を空白にして置換プッシュ
200 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/06(土) 14:57:08
スペースはエーテルで満たされておるのじゃよ。
虚無に置き換えるなんぞとんでもない。
201 分かりません…… 投稿日:2008/09/06(土) 20:46:35
32500を3万2500円と表示するにはどうすればよろしいでしょうか……。
202 201 投稿日:2008/09/06(土) 21:03:09
自己解決しました。
203 名無しさん@そうだ選挙にいこう 投稿日:2008/09/06(土) 23:15:11
会社で人事の仕事してるのだが、最近は人事移動と同じ日に
限って退職者がいたりして自分で、作ってる入力支援フォーマットが使いにくいので
少し改良しようかと思うのだが自分の力では、限界なので皆さんの力を貸してほしい

例えば、50人異動で1人だけ退職の場合などが対応してないので対応させたい
異動・入社・退職って感じのをクリックで選択できるようにしてたが
大まかな異動・入社・退職をクリックで選択(例として異動)したとする
xxooは退職にさせたいのでクリックで変更したいのだがやり方がいまいちわからない
部長 丸山昭雄(仮) 社員番号xxxxxxx 異動
社員 xxoo 社員番号xxxxxxx 異動
バイト abcdef 社員番号xxxxxxx 異動
パート hooooo 社員番号xxxxxxx 異動

なんか説明がおかしくなってきたorz
204 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 01:31:31
エスパー
205 名無しさん@そうだ選挙にいこう 投稿日:2008/09/07(日) 01:40:20
【1 OSの種類         .】 Windowsxp
【2 Excelのバージョン   】 Excel2002
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 エクセル 印刷 日にち 残したい場合 関数now 技 2002

会社のエクセルのセルに「=now()」(だったか「TODAY」だったか、)といれて印刷します。
「9月7日」と印刷されますが、
このシートを次の日に開くと「9月8日」と印刷されます。
これをやめさせる方法を教えてください。
印刷した日付を、記録しておきたいのです。

具体的に言うと、ブックの中にシートが10枚あり、
全てのシートのA1に「=now()」が入っています。

シートの1枚目から10枚目まで、毎月別々の日に印刷します。
3ヵ月後くらいに、あれは何日に印刷したか確認したいのですが、
開くと日付が開いた日になってしまうのです。
印刷日を変更したくないのですが、そのような関数があれば教えてください。
206 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 02:05:56
>>205
マクロ(VBA)使わないと無理。
VBA不可なら手動で印刷した日の日時を入力しておくしかない。
207 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 02:10:00
>>203
そういうのはよくある。やり方は色々あるけど
一例としては一人ずつ個別に「異動」「入社」「退職」を選択するラジオボタンと
「すべて異動」「すべて入社」「すべて退職」を設定するボタンを付ける。
208 205 [sage] 投稿日:2008/09/07(日) 02:21:26
>>206
(lll´Д`)ヒイイィ!マクロって物理くらいわからん罠。
VBAの修行して行き詰ったらまた来ますw
レスアリがd
209 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 03:08:15
>>208
=new()を使わずに
Ctrl+*とかで日付とか時刻入力すればいい。
手間はかかるが。
210 名無しさん@そうだ選挙にいこう 投稿日:2008/09/07(日) 06:19:26
gの列の縦にいくつかの、プルダウンメニューがあって a b c って項目があったとします
全てaにする 全てbにする 全てcにする っていう感じに
プルダウンメニューで、選択できるようにしたいのですが
一括でするには、どうすればいいのでしょうか?
211 名無しさん@そうだ選挙にいこう 投稿日:2008/09/07(日) 06:24:39
ちょっと質問です。
プルダウンメニューで 計算する 計算しない が(D7)選択できるとします
=IF("計算する"=D7,1+2=,"計算しません")
こんな感じにしています。
なぜか強制終了くらいますorz
どこがおかしいのでしょうか?
212 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 07:54:06
=IF(D7="計算する",3,"計算しません")

計算式が1+2って決まっているんならそれくらい先に計算し(ry
213 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 11:06:13
とりあえず「1+2=」という書き方はおかしいな。「1+2」にしないと
214 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 13:28:53
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
出納張を作っています。日付順に記入している支出・収入の項目を別シートで
分類別に内訳を作りたいのですが、どうすればいいのかアドバイス願います。

sheet1
日付     摘要     分類   支出  
2008/9/1  キャベツ   野菜    200      
2008/9/2  梨      果物    300  
2008/9/2  チョコ    お菓子   100
2008/9/3  にんじん  野菜    100
2008/9/3 リンゴ    果物    200
2008/9/4  ポテチ   お菓子   150

これを、sheet 2 で以下のように自動的に表示するようにしたいです。
分類  日付    摘要   支出
野菜 2008/9/1  キャベツ 200
野菜 2008/9/3  にんじん 100
         野菜支出 計 300

果物 2008/9/2  梨     300
果物 2008/9/3  リンゴ   200
         果物支出 計 500





215 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 13:54:31
>>214
データ > 集計 とかじゃだめなの?
216 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 14:44:04
>>215
自分でデータ>並び替え、や、集計などをせずに、
sheet1で入力したデータを別のsheetで並び替えと集計を同時に作成されるようにしたいのですが
それは可能ですか?

sheet1の日付順一覧と、sheet2の分類別一覧それぞれ必要なのですが、
sheet1の項目を埋めたら、sheet2に214のような分類別内訳も作成され、後は印刷すれば
全部出てくる。という形にしたいです。

実際に出納帳に記入していくのはエクセルをあまり知らない人なので、その都度並び替えや
集計など、エクセルの機能を使わせるのは難しく、また色々いじって滅茶苦茶になったりしそうなので、
入力と印刷だけすれば良いというフォームが理想です。
217 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 16:24:37
ピボット厨から勝ち誇ったようなアドバイスがあると思います。
218 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 19:04:17
ありがとうございます。ピボットを調べてみましたが、ピボットの更新をしないと
入力した数値の更新が出来ないみたいなので、自分の狙いとは合いませんでした。

sheetを分けずに、日付順で並んだ項目を分類のA→Z並び替えをして
分類別に表示させ、印刷する、という方法でやってみることにします。
219 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 21:30:20
プルダウンメニューを使ってB2:B100にあるプルダウンメニューを全て同じ値を指定するにはどうすればいいのですか?
220 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/07(日) 22:28:27
範囲選択してctrl+enterジャ無理か

221 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 00:04:41
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

ダイエットで体重管理をしたいのですが、1日に不定の複数回、時刻もバラバラで体重を量って記録し
グラフ化したいのですが、9/7 6:40 9/7 21:00 9/8 12:00・・・みたいに記述した場合
それぞれが1単位?として等間隔のグラフになるか、データーを表示設定で日付や時刻とすると
日付が単位で同日の複数のデーターは縦に並ぶだけのグラフにしかならないようです。

うまく日付間の該当する時刻にプロットされたグラフを作るにはどうしたらいいのでしょう?
222 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 00:07:57
散布図かな
223 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 00:08:30
あ、グラフは折れ線グラフでやりました
224 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 00:09:41
>>221
欲しい情報の間隔に合わせて空データを挿入する。
225 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 00:14:32
>>222
今、散布図でやって見ました。それっぽいのですがX軸の単位がかなりややこしい状態になりますね。
簡単に日付単位ってわけにはいかなそうです。
>>224
1時間毎とか10分毎に空データを入れるってことですか?う〜ん・・・
226 221 [sage] 投稿日:2008/09/08(月) 00:33:30
ヒントをもらえましたので、もう少し調べればできそうです。ありがとうございました。
227 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 13:37:21
ちょっと質問
このスレ読んでたらプルダウンメニューっていうのを知った
A B C のメニューを選択出来る状態で T1 のセルにA と記入してたら標準でプルダウンメニューをAを選択した状態にしたい
どうすればよいですか?
228 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 14:38:37
>>227
>>1に書かれている必須情報を書いた上で、日本語で質問すると良いと思うよ。
229 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 15:19:43
>>111の質問に回答お願いします。
230 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 15:51:02
>>229
2007ならフィールドの適当なとこで右クリックして「グループ化」選べば
グループ化の単位を指定できるよ。他は今わからんけど
231 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 16:07:36
>>230ありがとうございます。2007です。
それをしてみたのですが
秒・分・時〜年までのグループ化の項目はあるのですが
20代、30代、という区切りらしきものが見当たらないんです。
232 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 16:14:06
┐(´ー`)┌
233 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 16:26:20
>>231
それは元のデータが日付のデータになってんじゃないの?
年齢を表す数値型のフィールド作ればいけるんじゃないかな?
234 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 16:40:30
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 野崎コンビーフ

エクセルファイルA,Bがあります。

Aは編集用ファイルです。
Aに内容を書き込み、保存を行うと
マクロがその内容をB書き込みます。


このような機能を実装したいのですが、
beforesaveを使うと、マクロの処理と
標準の処理が二つ動いてウザいです。
どうすればスマートに保存できるでしょうか。
235 名無しさん@そうだ選挙にいこう 投稿日:2008/09/08(月) 17:46:17
セルに数値入力する際に「〇〇-」といれても「-〇〇」と認識できるようにできませんか?教えてください
236 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 18:05:31
初歩的な質問で申し訳ないですが…
【1 OSの種類         .】 Windows Vista Home Premium
【2 Excelのバージョン   】 Excel 2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 アウトライン 上 excel

セルの行をアウトラインでグループ化するときに
│ -
│ -
│ -
└ +
こうなるのですが、

┌ +
│ -
│ -
│ -
こうすることはできないのでしょうか?
237 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 18:15:57
【1 OSの種類         .】 MAC
【2 Excelのバージョン   】 Excel2004
【3 VBAが使えるか    .】いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 Googleやヘルプでの検索キーワード

文字を画像に置換することは加納でしょうか。
238 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 19:05:20
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1112704276
上のようなことの逆は可能ですか?
 
 例えば、セルAに映画のタイトルが縦に並んでて、
セルBにはその映画の詳細が見れるHPアドレスが沢山並んでます。
 セルBのそれぞれのアドレスを、セルAに一括でハイパーリンクさせる(埋め込む)
方法が知りたいです。
 ご教授、宜しくお願い致します。
239 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 19:40:18 240 名無しさん@そうだ選挙にいこう 投稿日:2008/09/08(月) 20:51:53
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 はい(初心者)
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 エクセル マクロ オートフィルタ 高速

データがA列からAQ列、3000行くらいのデータがあって毎日追記しています。
この中から、B列にある今日の日付とAQ列に書いた記号を抽出しています。
オートフィルタを掛けて抽出するまでに10秒以上、オートフィルタを解除するのも
同じくらい時間が掛かってます。
これをマクロで抽出して高速化できないでしょうか?
241 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 21:10:00
再計算なしにすると速い
242 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 23:12:18
Excel立ち上げ直後から、入力モードが
「ひらがな」になるように設定できますか
243 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 23:15:31
携帯から暇つぶしに遡ります。
マルチ等に回答してしまってたらご勘弁


>>242
VBAで可能
244 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 23:19:16
>>240
たかが3000行に時間かかるのは???
別の視点からも考えてみましたか?

→他のパソコンで動かすとどうか?(使ってるパソコンのスペック不足)
→リスト内に重い数式がある(数式部分をマクロ化)
245 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 23:20:33
>>237
>>239ありがと
246 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 23:23:07
>>237
文面だけ読んで回答すれば「可能」。
エスパー能力あまりないからな・・・
247 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 23:27:13
>>236
知らない
知ってる人くればいいな
248 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/08(月) 23:36:42 249 名無しさん@そうだ選挙にいこう [sage 頭の中で考えてるので誤りはご指摘を] 投稿日:2008/09/08(月) 23:45:41
>>235
数式と作業列使っていいなら
入力セルがA列だとしたら

B1セル
=IF(ISERROR(FIND("-",A1)),A1,1*("-"&LEFT(A1,FIND("-",A1)-1)))
250 240 [sage] 投稿日:2008/09/09(火) 00:06:39
>>244
やっぱり変ですよね?
ファイルは会社にあるので検証できないですが、先ほど50列3000行のデータを作って
マクロ化してみたら、ほぼ瞬時に動作します。
明日、また会社で検証してみます。
251 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 00:20:10
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2002
【3 VBAが使えるか    .】 はい(初心者)
【4 VBAでの回答の可否】 簡単なら可
【5 検索キーワード     】 Webクエリ

Webクエリを使用して、みずほ銀行の宝くじ当選番号案内から
当選番号のテーブルデータを取得しようと思ったのですが、
選択したいテーブルが、サイト全体しか選択できないため
「取り込み」を押しても全てのソースを取得してしまいます。
必要なテーブルデータだけの取得はできないでしょうか?
参考URL
ttp://www.takarakuji.mizuhobank.co.jp/miniloto/lt6-h2008.html

252 245 [sage] 投稿日:2008/09/09(火) 00:22:45
>>237>>238
253 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 00:42:45
>>251
一応htmlのソースも見ましたが
リンク先がデータテーブルの体をなしてなさそうに見えますが。

→全部「コピペ(テキスト貼り付け)」してから
エクセルで編集が早そうに感じます
254 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 06:12:43
>>242
エクセルが最初に読み込むテンプレファイル、あれの全セルに入力規則をかければいけると思う
手元にエクセルないから試せないけど
255 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 08:07:23
プルダウンメニューの既定値をA1に
入力した文字によって変更する事は可能でしょうか?
256 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 08:37:12
>>255
可能です

君が最低限必要なこと(>>1★4)を伏せてるので
こちらも具体的なやり方の説明は伏せますね
257 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 10:38:33
256さん すいません

【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2002
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】プルダウンメニュー 値 変化
258 名無しさん@そうだ選挙にいこう 投稿日:2008/09/09(火) 11:16:14
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】Excel 同じ値

既出だとは思うのですが、中々見つからないので…
Sheet1 と Sheet2 で以下のようなデータがあったとします。
【Sheet1】 【Sheet2】
A A
1 10 | 20
2 20 | 50
3 30 |
4 40 |
5 50 |
  :
このSheet2をSheet1に合わせる時に、値の横に同じ値を持ってきたいのです。
図にするとこんな感じ
【Sheet1】 
A   B
1 10 |
2 20 |  20
3 30 |
4 40 |
5 50 |  50
  :
 
文面でなんて説明したらいいかもわからず、図での説明になってしまいましたが、
どなたかアドバイスを願いします。
259 名無しさん@そうだ選挙にいこう 投稿日:2008/09/09(火) 11:21:52
>>258

なぜ20と50なのか教えてくれ

条件は何なんだ?
260 258 投稿日:2008/09/09(火) 11:32:47
言葉足らずですみません。
20と50は特に意味はないです。
要は
Sheet1の値をみて、Sheet2の値がイコールならば、その横のセルにもってくる…
ということをやりたいのですが…
そのことによって比較を行いたいのです。
261 名無しさん@そうだ選挙にいこう 投稿日:2008/09/09(火) 11:53:28
>>258

=IF(Sheet1!A1 = $B$1,$B$1,IF(Sheet1!A1 = $B$2,$B$2,""))

これをSheet2のA1に張り付けて下にオートフィルしたあと
Sheet2のB1とB2にその横まで持ってきたい値を入れてくれ

2002なら64ネスト?だっけ?いけるだろ。

う〜ん、非効率な気がするが・・・こんな?
262 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 12:04:17
countifで同じ値見つかったら隣のセルの値表示すればいいんじゃねーの?
sheet1のB1に
=(COUNTIF(Sheet2!$A$1:$A$100,A1)>0)*A1
みたいな感じで
263 名無しさん@そうだ選挙にいこう 投稿日:2008/09/09(火) 12:48:51
>>249
できました。親切にありがとうございました。また分からない事があればよろしくお願いします。
264 名無しさん@そうだ選挙にいこう 投稿日:2008/09/09(火) 13:05:49
>>233
ありがとうございます。
その通りのようでした。
よく知ってますね、感心どす。助かりました。
265 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 15:07:23
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】エクセル 関数


A1に A B C のいずれかが入力されるとします
Aを入力すると
A2 に =B2 を入力

Bを入力すると
A2 に =B3 を入力

Cを入力すると
A2 に =B4 を入力

って感じにしたいのですがどうすればいいのかわかりません
どなたかわかる方が居ましたら教えて下さい
266 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 15:56:03
>>265
入力、じゃなくて参照でいいよな?
=INDIRECT("B"&IF(A1="A",2,"")&IF(A1="B",3,"")&IF(A1="C",4,""))
267 258 投稿日:2008/09/09(火) 16:46:36
>>261 >>262

ご教授ありがとうございます!!
アドバイスを頂いて、作ることができました!
ありがとうございます!
268 名無しさん@そうだ選挙にいこう 投稿日:2008/09/09(火) 16:59:21
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

エクセルってさ(2007で確認)

列幅とか変えた時にさ(VBA側で)

勝手にActiveXコントロールのサイズ変えるよね?(再現性微妙)

それとも印刷タイトルに含まれているのが原因なのか?(やっぱりVBA側で)

バグ?

F8で確認してみたら縦と横のサイズをどちらか変更したら
もう片っぽがイカれるみたいなんだけど

変更しなくてもイカれるしなぁ(列幅変えたりとかしたら)

オブジェクトのプロパティって意味あんのかよ?
チェック入れてもかわんねーっつうのwww
269 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 18:27:54
日本語でおk
270 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 18:30:10
「勘違いされた、勘違いされた」が合い言葉のwww
創価学会員が通り魔から子供を守るパトロールだといって集団でうろついてるんですが
創価学会員がいつ通り魔に変身しないかとかえって怖いんですけどwww
なんでも通行人をつかまえての誹謗中傷行為や人権侵害行為も
生活安全課の創価警官の●お願い●でやってあげてるんだとか言ってますけどwwwww

熊本隆談www
271 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 18:30:43
【1 OSの種類         .】 Windowsxp
【2 Excelのバージョン   】 Excel2003
セル内にhtmlタグ(たとえば<img src="〜"/>)を入力すると
タグの文字列ではなく、画像が表示されてしまいます。
htmlタグをそのまま入力する方法はありませんでしょうか?
セルの書式で文字列としても、画像が表示されてしまいます。
272 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 22:12:14
【1 OSの種類         .】 Windows XP
【2 Excelのバージョン   】 Excel 2000
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
エクセルのVBAを利用して外部のアプリケーションへ
コピペを行いたいのです

VBAでエクセルのデータをコピーし既に開いている
外部アプリケーションのファイル(オフコン)へ画面を切り替えし、
データ貼り付けし、またエクセルへ戻るイメージです

切り替え後はsendkeysでうまくいきそうなのですが、
なにか切り替え方法はありませんか?

273 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 22:16:46
>>271
文字の前に'を打ち込んでは?
(shift+7キー)
274 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/09(火) 23:06:43
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード     】


部署A 永谷公平 コードA
部署A 鈴木一郎 コードB
部署B 佐藤二朗 コードA
部署B 飯島三郎 コードB
部署C 谷川陽水 コードA
部署C 伊藤庸介 コードB

というデータがあるとします
部署がAでコードがAの場合にはABCと表示
部署がAでコードがBの場合にはDEFと表示
部署がBでコードがAの場合にはGHIと表示
部署がBでコードがBの場合にはJKLと表示
って感じにしたいのですがどの関数を使うのがいいのかわかりませんでした
どなたかお手数ですがご教授の方よろしくお願いします
275 名無しさん@そうだ選挙にいこう 投稿日:2008/09/09(火) 23:40:25
【1 OSの種類         .】 Windows2000
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード     】エクセル 関数 文字列


式を教えてください。

A列には文章が入っています。
B列には文章に含まれる単語、C列にはコード番号が入っています。
それぞれ数百〜数千行になります。
A列にはB列の単語のいずれかが含まれる場合には、
単語に対応するC列のコードをD列に表示させたいのですが、
どのような式がよいでしょうか。

VLOOLUPやFINDなどを組み合わせてみても上手くいきません。
お手数ですが、どなたか至急お教え願えますでしょうか。
276 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 04:46:32
またマルチか
277 名無しさん@そうだ選挙にいこう 投稿日:2008/09/10(水) 07:28:58
すみません
ほかのスレでも質問しましたがとにかく急いでいるのでお願いします
278 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 07:38:51
単語がひとつならできるわけ?
それでできるならB列ぼ単語をいろんな列に分割しなされ
頭が悪いならその分手を動かしなよ
279 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 07:42:35
EXCELを使ってメールを送信することってできますか。
期限管理表を作ってて、期限の7日前になったら各担当者に
注意喚起のメールを送信するような仕組みを作りたいのですが。
280 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 07:45:55
266のは

B2 B3 B4 の値を読み込んでるけど
B2 C2 D2 の値を読み込みならどうしたらいいの?
281 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 08:22:49
>>275
失敗した式を書いてみたら、修正してもらえるかも
282 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 08:55:58 283 名無しさん@そうだ選挙にいこう 投稿日:2008/09/10(水) 09:23:37
>>274

作業テーブルが必要になるけど
別シートにこれ作って(Sheet2扱いで)

A列 B列 C列 D列
部署A 部署B 部署C
コードA 1010 1101 1000
コードB 1100 1001 1111

>というデータがるとします
ABC列までしか使っていなくてD列に表示すんなら

            ↓作業テーブルのデータ範囲
=VLOOKUP($C1,Sheet2!$A$1:$D$3,MATCH($A1,Sheet2!$A$1:$D$1),FALSE)
      ↑テーブルのある別シート

くわしくはヘルプで

あと下にオートフィルで。
部署が増えたりコードが増えたりしたらSheet2!のあとがテーブルだから
そこ変えて対応できるでしょ。
空白があるとか糞みたいなことぬかしたらIFERRORでなんとか
284 283 投稿日:2008/09/10(水) 09:25:51
Excelからコピったらぐちゃぐちゃになってるw
ひでぇw


285 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 10:16:26
>>272
スレ違いです>>2・7

>>279
出来ますがスレ違いです>>2・7
286 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 11:26:28
A1に文字が入力してあるとする
A2に文字が入力された場合はA2の文字をB2に
A2に文字が入力されてない場合はA1の文字をB2に
入力する方法ありませんか?
287 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 11:33:28
>>286
=if(isblank(a2),a1,a2)ってことかな?
288 283 投稿日:2008/09/10(水) 11:45:00
>>286

B2セルに

=IF(A1 = "","",IF(A2 = "",A1,A2))

あとは応用だ。というか入力?VBAつかわないとちょっと・・・

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Me.Range("A1").Value <> "" Then
Me.Range("B2").Value = Me.Range("A1").Value
If Me.Range("A2").Value <> "" Then
Me.Range("B2").Value = Me.Range("A2").Value
End If
End If

Application.EnableEvents = True

End Sub

だろうか?
289 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 16:10:11
プルダウンメニューに
項目A 項目F 項目Iという項目があるとします
A1にAと入力すると 項目Aを選択
A1にFと入力すると 項目Fを選択
A1にIと入力すると 項目Iを選択
するようにしたいのですがいまいち上手いこといきません
どなたか教えて下さい
290 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/10(水) 16:17:40
>>289
vbaで出来る
が、別に表作ってvlookup使うのが普通
そもそも自動的に変わるならプルダウンの意味なくね
291 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 00:50:05
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 関数で
【5 検索キーワード     】  何ヶ月たったか エクセル 経過

A1にある日付 例) 2006/5/21 (完全に固定です) B1に =TODAY() 
のときC1にA1の日から現在まで何ヶ月経過したか?を表示したいです。日は切り捨てで月のみ
上記の例だと 2年と4ヶ月で C1は「28」と表示されるようにしたいです。
292 291 [sage] 投稿日:2008/09/11(木) 01:01:01
>>291
見つかりましたので自己解決しました。

http://lib.ac.la/2ch/read.php/pc8/bsoft/1076410405/950
293 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/11(木) 02:03:38
急かしているわけではないのですが、
>>236どなたか分かるようでしたらお願いします。
294 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/11(木) 04:49:54
3列1000行ほどあるデータ群から値が最大の行番号を知り、
その行番号の残りの2列の値を表示したいのですがどうすればいいでしょうか?

=ROW(MAX(A1:A65535))で最大値の行番号取得できそうな気はしたのですがエラーが出ました
295 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/11(木) 06:41:33
>>294
D列にRANK関数で式を入れた後、1をオートフィルタとか
オートフィルタでトップテンの後見比べるか
後者はもちょっとスマートな方法がありそうだけどね
296 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/11(木) 07:43:02
シートAに社員の社員番号とかが入力されてるとします
シートBにシートAのセルD10〜D800の社員情報に JPDJ と文字が含まれてる場合のみシートBに書き込みしたいのですがどうすればよろしいのでしょうか?
297 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 09:55:45
>>294

=INDEX(B:B,MATCH(MAX(A:A),A:A,FALSE))

A列の最大値の隣にあるB列の値

=INDEX(C:C,MATCH(MAX(A:A),A:A,FALSE))

A列の最大値の2つとなりのC列の値

298 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/11(木) 10:25:29
>>297
おおお、まさしくそれです。できました。ありがとうございます!
299 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/11(木) 10:58:58
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】

例えば 別のシートから
=TEST!D5
=TEST!D6
=TEST!D7
というような感じに呼び出してるとします

TESTシートのCの列に〇か×が書いているとします
TESTシートの
C5が〇の場合は=TEST!D5を出力する
C6が×の場合は=TEST!D6を出力しない
C7が〇の場合は=TEST!D7を出力する
ってしたいのですが出来ますか?
300 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/11(木) 11:01:55
途中で書き込んでしまいました


×の場合は行が開く方法なら関数のIFを使えば出来ましたが
行を開かないように出来ないのでしょうか?
301 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 11:26:29
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 できれば否

"001、002、003"と3つのエクセルのファイル(以下データファイル)があり
上記の3つのファイルのデータを、"005"というファイル(以下集計ファイル)で集計したいのですが
この場合、データファイルを開いていないと集計ファイル側のデータは更新されないのですか?

各データファイルは毎日更新されるものなので、集計ファイルにシート移動してまとめるのが手間なんです。
何かいい手はありませんでしょうか?
302 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 12:04:40
>>299

=IF(TEST!C5 = "○",TEST!D5,"")

IFぐらいは勉強しようか
303 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 12:06:26
>>299

行を開かないってことは非表示にしたいという事かな?

じゃあVBAのほうがらくじゃね?

304 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 12:28:12
>>299

Private Sub Worksheet_Activate()

Dim lngRow As Long
Dim lngCount As Long

lngRow = ThisWorkbook.Worksheets("TEST").Range("C5").End(Direction:=xlDown).Row

For lngCount = 5 To lngRow

If Me.Range("A" & lngCount).Value = "" Then
Me.Rows(lngCount & ":" & lngCount).EntireRow.Hidden = True
Else
Me.Rows(lngCount & ":" & lngCount).EntireRow.Hidden = False
End If
Next

End Sub
305 304 投稿日:2008/09/11(木) 13:52:11
別シートのA列5行目から
=IF(TEST!$C5 = "○",TEST!$D5,"") を下にオートフィルして

別シートのVBAに>>304貼り付けたら動くよね?
2007環境しかないんで2000環境だと実証できんからあとがんば
306 304 投稿日:2008/09/11(木) 13:57:47
ワオ 2007ジャン
307 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/11(木) 14:33:43
C20:C500 まで入力した4種類の文字なのですが
その文字毎にページをわけるにはどうすればいいのでしょうか?
308 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 15:00:38
>>307

シートでしょ?
VBAの方が楽だよってか>>1から読みなおせw
309 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/11(木) 15:18:15
VBAでもいいので教えて下さい
310 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 15:26:06
いやだ
311 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 16:22:59
>>307

もうちょっと詳細希望
4種類の文字は変わらないのか?
シートに表示するのはどんなかんじ?
文字毎で4シート作成するの?それとも値を写すだけ?
環境ぐらい書け
312 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 17:21:58
>>307

前準備
最低でもC20のセルに値があること
5シート(データのあるシートとデータを移すシート)用意すること
元シート以外のシートの名前を4種類の文字に設定しておく

以上

2回に分けるぉ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws1_Name As String
Dim ws2_Name As String
Dim ws3_Name As String
Dim ws4_Name As String
Dim ws1_Cnt As Double
Dim ws2_Cnt As Double
Dim ws3_Cnt As Double
Dim ws4_Cnt As Double
Dim End_Row As Double
Dim Cnt_Row As Double

ws1_Name = Sheet2.Name
ws2_Name = Sheet3.Name
ws3_Name = Sheet4.Name
ws4_Name = Sheet5.Name

With Application
.EnableEvents = False
.ScreenUpdating = False
End With
313 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 17:23:24
>>312続き

If Not IsNull(Me.Range("C20")) Then
End_Row = Me.Range("C20").End(xlDown).Row
Else
End_Row = 20
End If

For Cnt_Row = 20 To End_Row
Select Case Me.Range("C" & Cnt_Row).Value
Case ws1_Name:
ws1_Cnt = ws1_Cnt + 1
ThisWorkbook.Worksheets(ws1_Name).Range("A" & ws1_Cnt).Value = Me.Range("C" & Cnt_Row).Value
Case ws2_Name:
ws2_Cnt = ws2_Cnt + 1
ThisWorkbook.Worksheets(ws2_Name).Range("A" & ws2_Cnt).Value = Me.Range("C" & Cnt_Row).Value
Case ws3_Name:
ws3_Cnt = ws3_Cnt + 1
ThisWorkbook.Worksheets(ws3_Name).Range("A" & ws3_Cnt).Value = Me.Range("C" & Cnt_Row).Value
Case ws4_Name:
ws4_Cnt = ws4_Cnt + 1
ThisWorkbook.Worksheets(ws4_Name).Range("A" & ws4_Cnt).Value = Me.Range("C" & Cnt_Row).Value
End Select
Next

With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
314 312.313 投稿日:2008/09/11(木) 17:28:43
>>309

欠点は空白を識別できないのと元シートになにか入力しないとマクロ起動しない点

あとシートは適当にぽこぽこ増やした方を使ってくれよ。元シート=データのあるシートで

Sheet1のVBAに追加すりゃあ他のシートのA列に表示してくれるはずだ

315 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 18:40:11
OS XP EXCEL2003 です

エクセルを開いた時に画面一杯(最大)に表示させたいのですが、画面半分くらいの大きさでしか開きません
最大化させてから、閉じたりしたのですが、やはり画面半分の大きさです
最近になって、エクセルを閉じた時に必ずエラーが出るようにもなったので、この現象が影響を与えているのでしょうか?
いろんなサイトをぐぐってみましたがわからなかったので質問させてもらいました

よろしくおねがいします
316 名無しさん@そうだ選挙にいこう 投稿日:2008/09/11(木) 21:21:10
【1 OSの種類         .】 WindowsxpHESP2
【2 Excelのバージョン   】 Excel2000
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 ?
【5 検索キーワード     】?
質問です。
Excel2000を使用しています。
エクセルのシートに、jpg画像を貼り付けたいのですが、
ファイルを開いて貼り付けようとすると、文字化けします。
ヤフーで検索したら、なにやらソフトを買わないと?貼り付け
できないみたいなのですが、別途ソフトなどを購入しないと
いけないのでしょうか?
317 316 投稿日:2008/09/11(木) 21:42:28
【5 検索キーワード     】Excel jpg 貼り付け

失礼しました。
318 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/11(木) 21:43:49
んなこたーない。
挿入→図→ファイルから→好きなjpg選ぶ
319 316 投稿日:2008/09/11(木) 21:46:49
ありがとうございます。
今、やってみたら、できました!
320 61 [sage] 投稿日:2008/09/12(金) 03:30:05
【1 OSの種類         .】 WindowsxpSP3
【2 Excelのバージョン   】 Excel2003

海外からもらったファイルに
 ctrl+Pgup → 左スクロール
 ctrl+Pgdn → 右スクロール
こんな動作をするものがあります。どんな仕掛け?
321 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/12(金) 11:17:35
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 文字 挿入 関数 特定文字 など・・・

色々自分なりに検索してみたのですが、わからなかったので質問させてください。

7ケタの数字(0112233)が1列に数万行あり、まず最初に先頭の文字だけをすべて削除。
次に、2文字ごとにハイフンをいれたいのです。
最終的に、11-22-33としたいわけです。
これを効果的に行うためにどうすればいいのか、ご教授お願いしたいです。
よろしくお願いします。
322 名無しさん@そうだ選挙にいこう 投稿日:2008/09/12(金) 12:03:05
またプロバイダ規制されたので代理頼んでます。
お礼には来れないですがお願いします;;

マクロで.logという拡張子でファイルを保存するにはどうすればいいでしょうか。
ダイアログを出さずに処理したくてマクロを書いています。
ダイアログでなら、拡張子まで含めて書けばできますが、それをマクロ記録しても
できませんでした。
ActiveWorkbook.SaveAs Filename:="data.log", FileFormat:=xlText, _
CreateBackup:=False
としましたが、data.log.txtになってしまいます。
323 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/12(金) 12:47:25
>>321
=TEXT(RIGHT(A1,6),"??-??-??")
324 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/12(金) 12:53:06
あ、02とかゼロが空白になるな。
325 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/12(金) 12:59:53
>>321
=TEXT(RIGHT(A1,6),"00-00-00")

>>322
リネームすれば。
326 321 [sage] 投稿日:2008/09/12(金) 13:37:52
>>323
>>325
できました。非常に助かりました、ありがとうございます。
327 名無しさん@そうだ選挙にいこう 投稿日:2008/09/12(金) 23:27:39
すみません>>315にもお願いします
328 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/13(土) 05:43:16
>>327
Ctrl押しながら最大化を押してみて。
329 名無しさん@そうだ選挙にいこう 投稿日:2008/09/13(土) 12:12:17
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 excel 近似直線 数値

データの近似直線および近似曲線を描いて
その式を表示させるのはできるのですが、
式の係数をセルに自動でもっていきたいんですけど方法はありますでしょうか?
たとえばy=2x+3という近似直線であればA1セルに傾き2を
B1セルに切片3をもっていきたいです。
330 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/13(土) 12:25:28
【1 OSの種類         .】 WindowsXP
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード     】 比較 時間 条件付き書式 if 帯グラフ

下記のようなデータが100シート、1シートにつき100件程あるのですが
D E
'2008-07-01 11:20:00.0 '2008-07-01 11:40:00.0
'2008-07-01 11:00:00.0 '2008-07-01 12:00:00.0
'2008-07-01 13:50:00.0 '2008-07-01 14:10:00.0
'2008-07-01 09:00:00.0 '2008-07-01 10:30:00.0

1_09:00___________10:00_____________11:00___________12:00___________13:00___________14:00 15:00~21:00
2_____________________________________________■■
3_______________________________________■■■■■■
4__________________________________________________________________________________________■■
5_■■■■■■■■■
DからEまでの時間を10分刻みで帯グラフのよう(上記の様)にセルを塗りつぶしたいのですが
どのような式を作ればよいでしょうか。

G1 =HOUR($D1):MINUTE($D1)>=9:00<=HOUR($E1):MINUTE($E1)
H1 =HOUR($D1):MINUTE($D1)>=9:10<=HOUR($E1):MINUTE($E1)

を条件付き書式に入力してみたのですが、うまくDEセルからデータを読んでもらえず
オートフィルは10分刻みで時間を増やしてくれるわけもなく詰まってしまいました。
解決案を提示していただけたらと思います。
よろしくお願いします。
331 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/13(土) 12:30:25
>>329
LINESTという関数で求めることができる。
Excelの近似曲線も実際にはLINESTで係数を求めてからグラフを表示するという処理を内部で行っている。

例えばA1:B10のデータを使って散布図と近似曲線を描いた場合、傾きは=LINEST(B1:B10,A1:A10)で
求められる。あとはぐぐれ。
332 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/13(土) 12:31:38
>>330
まずは作業列を作って、日時のデータを文字列からシリアル値に変換だな
333 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/13(土) 13:15:31
>332
F3
=TEXT(D3,"hh:mm:ss")
G3
=TEXT(E3,"hh:mm:ss")
H3
=TIMEVALUE(F3)
I3
=TIMEVALUE(G3)
でシリアル値に変換して

J3以降を条件付書式で
J3
=$H$3>=K1<=$I$3
J4
=$H$3>=L1<=$I$3
.
.
.

k1から先を9:00:00~(シリアル値での入力)

にしたのですが、うまくいかないです。
これはどこが駄目なんでしょうか・・・
334 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/13(土) 14:28:10
2007で、終了時にいろいろ小細工するマクロを作ったのですが
一度子画面を終了させ、もう一度親画面で子画面を開くとマクロが
動いてくれません。なんかマクロ有効なのに無視されます。

何言ってんのかわかんねぇという方の為に説明しますと
Excelを開くと、「Book1.xls - Microsoft Excel」とか出てきますよね。
その状態で”適当.xls”とか開くとBook1が引っ込んでこっちがが前面にでてきますよね。
まぁ図にすると
        ↓子画面
   親画面┬ Book1.xls
      └(適当.xls)

みたいな感じになってるわけですが、呼び方がわからんので便宜上
これらを親画面、子画面と呼ばせて頂きます。

で、話を戻すと、一度親画面Aで"マクロ.xls"を実行し、子画面だけを閉じ
もう一度親画面Aで開き直すとマクロが無視されます。

新たに立ち上げた親画面では動きます。しかし、Aと同様に一度閉じて開き直すと
やはりマクロが無視されます。

これは自分の作ったマクロがおかしいのでしょうか?
もしそうなら何を弄ってしまうとこうなり、どうすれば子画面を閉じて開いてを
繰り返してもマクロが有効になるようにできるのでしょうか。
335 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/13(土) 14:36:05
>>334
2007ではブックを開いた時にプロセスが勝手に増えたり減ったりするんで、そのあたりの制御はけっこう面倒だった気が。
ごめん。解決策は俺にもわからん。
336 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/13(土) 14:39:01
>>333
ヒント AND関数
337 330 [sage] 投稿日:2008/09/13(土) 15:07:04
>336
ありがとう、すっかり忘れてた。
やってくる。
338 名無しさん@そうだ選挙にいこう 投稿日:2008/09/13(土) 15:32:27
Excelのセルに住所を書いてリンクを貼り付けて、
そのリンクを押下すると別ウィンドウでグーグルマップを開いて
その住所を表示させたいんだけど
そういった事って可能なんでしょうか?
可能であればどういうやり方があるのでしょうか?

対処のデータが一個二個なら
リンクにアドレスを埋めこんで指定する方法がありますが
さすがにデータが1000、2000になるとそれも厳しいので
339 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/13(土) 16:13:15
>>330
ちょっと長いけど、グラフ部分全体を選択して条件付書式を設定する。
=AND(TIMEVALUE(RIGHT($D1,10))<=(COLUMN()+47)/144,TIMEVALUE(RIGHT($E1,10))>(COLUMN()+47)/144)

元データ右から10文字に空白が無いように。47はG列を9:00に調整する為。
不等号のどちらに等号を入れるかはお好きに。
340 330 [sage] 投稿日:2008/09/13(土) 16:44:33
無事作成できました、みんなありがとう!

>339
これはすごい・・・・・・
341 名無しさん@そうだ選挙にいこう [sage] 投稿日:2008/09/13(土) 21:29:02
>>338
住所を指定してGoogleマップを開く

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim 住所 As String, URL As String
 住所 = Target.Value 'クリックされたセルの内容
 
 With CreateObject("ScriptControl")
  .Language = "JScript"
  URL = "http://maps.google.co.jp/maps?z=16&q=" & .CodeObject.encodeURI(住所)
 End With
 
 ThisWorkbook.FollowHyperlink URL 'URLを指定してブラウザを開く
End Sub

VBAにはクリックイベントがないので、俺にはこのあたりが限界だ。すまん。
全文検索:

新着レスの表示

板リスト 全部 前200次200最新100
Office関連書籍
当サイトの過去ログにリンクする場合は、こちらをお読みください。
read.php ver 06.2.0.1 2010/03/25
OURS◎ USO(Ultra-dynamic Shared Object)
収集スクリプトの不具合により自動更新を停止しています。削除依頼などの窓口はこちら


ロゴtop 辞書 カクテル 科学 Web制作 URL短縮 写真素材 2ch倉庫  more≫ 
Copyright © by l'OURS, Update: 2013-06-27 19:05 webmaster@ours.be

カスタム検索


au EZwebDoCoMo i-modeS!
URLをメール
携帯ではご覧になれないページもあります。
158-33