４０代のEXCEL、WORD

>>558さん、537です。お世話様になります。
知らない関数が・・・2つも。

私も自分なりにいろいろ調べて、
『Ctrl』+『Shift』+『Enter』で確定する配列関数というのを見つけました。
これならIFとMAXで何とかなりそうかな？と思っていたのですが今一使い方を把握してないのです。
このところ他の仕事が忙しくて確認できませんでしたが、
558さんのを明日会社で確認してみます。（実は自宅にExcelは入ってない･･･）

急いでる時にワードで文章作ると気が狂いそうになる

やっぱり文章作る時はエクセルでしょ

ワード結構使ってる。
PDFのしおりを作るのがワードだと結構簡単にできるから。

バグって腹立ててる姿が目に浮かびます。（−−；

>>559　試したら、なるほどちゃんとできてるよ。
>>558の「A15」を10行20列にしてもちゃんと正解を返してくる。
構文読むと、

CONCATENATE　　　　＞をＢ１に付け加える
ＣＯＵＮＴＩＦ　　　　　　　　Ａ１〜Ａ１５でＢ１より大きいセルの数を数えて○個と返す
ＬＡＲＧＥ　　　　　　　　　　Ａ１〜Ａ１５の中で、上から○番目の数字を返す

こういったところ、エクセルってパズルみたいで面白いよね。

そういや社内で飛び交ってる添付ファイルって
ＤＯＣは壊滅したかな？
ＰＤＦ、ＴＩＦたまにＸＬＳ。

>>558さん、>>564さん、537です。希望の答えが出ました。どうもです。

以下は参考までに自分がたどり着いた方法を。同じようにA15までで

=MIN(IF(A1:A15>B1,A1:A15,""))
をC1に記入、確定するとき『Ctrl』+『Shift』+『Enter』すると、
{=MIN(IF(A1:A15>B1,A1:A15,""))}
"{"と、"}"は書き込んではダメです。
これ配列関数というらしいですが、これも結構使えそうです。

「博士の愛した数式」読んだので、こんなプログラムを書いてみました。

Sub 素数()
k = 1
Cells(1, 1) = 1
For i = 2 To 10000 ' 好きなところまで
For j = 2 To k
If Int(i / Cells(j, 1)) * Cells(j, 1) = i Then
Exit For
End If
Next j
If j = k + 1 Then
k = k + 1
Cells(k, 1) = i
End If
Next i
End Sub

>>528
(PUGERA

インデントないと読みにくうてかなわん

EXCELのシート上でツリー構造のテーブルリンクをつくるには
どうしたらいいでしょうか？

みんな上級者なんだねぇ・・・。

いやいや、まだまだですよ。まだまだ
そうねェ、中の下ってところでしょうか、その程度ですよ。

>中国の秘密刑務所、生きた人から臓器を強制摘出
http://www.epochtimes.jp/jp/2006/03/html/d21483.html

VBAって覚えりゃすげー便利なんだろけどなー・・・・・。

VBA使えるようになれば便利なだけじゃなかったよ＾＾
仕事してて、これVBAでできるんだろなぁ〜なんていつも思ってて、
家で密かに本買って、VBAを勉強。。でもやっぱ敷居高すぎで挫折
しそになったが、ある時、ある処理のたった一行を何時間も考え抜いて
出来た時は、嬉しくて仕方なかった。そのお陰でなんとかかんとか完成！
で、マクロを会社でお披露目した時、周りの眼差しが変わったのが
なんとも快感でしたよ。
あーこーゆー副産物まで付いてくるんだってVBA覚えてよかったとほんと思いました

>>575
その１行をここに書いてください。

しばらくこなかったが、このスレのレベルも上がったな
おかげでおれにはついていけないけどな

今でもWORDですか？

それでは初心者の質問をばｗ

ひとつのセル（A1）で
朝4時〜10時に打ち込むと「おはようございます」（かぎかっこはいりません）
10時〜17時は「こんにちは」
17時〜翌4時は「こんばんは」
と表示するようにはどうしたらいいか教えてください。<m(__)m>
よろしくお願いします。

あの･･･誰か教えてくださいil||li ＿|￣|○ il||li

>>579
質問はちゃんとしましょう

ひとつのセル（A1）で
朝4時〜10時に打ち込むと・・・何を打ち込むんですか・・

それによって・・関数かマクロか・・易しい方お教えいたします。

時間取得の関数使えば簡単だけどね、、

もしも
今の時間が4時〜10時なら
おはようございます

これを関数にするだけ・・簡単でしょ

OS:Xpﾎｰﾑｴﾃﾞｨｼｮﾝに、正規品ｵﾌｨｽ2000を入れてもいいのですよね
また、ｲﾝｽﾄｰﾙしても動きますよね

>>584
動きますが、起動するたびに
「ビル・ゲイツ様〜ありがとうごぜえますだ〜〜」
と三拝の義務が生じます

>>585
笑　そうなんですか？同じ４０代のゲイツさんも良い人ですね＾＾

Sub aisatu()
Static flgf As Boolean 'スタティックな変数flgを宣言
　　If flg then Exit Sub Else flg = True '１回しか出さないようにする
　　'
　　Select Case Hour(Now) '今の時間で分岐
　　Case 4 To 11: MsgBox "おはようございます"
　　Case 12 To 17: MsgBox "こんにちは"
　　Case Else: MsgBox "こんばんは"
　　End Select
End Sub

>>579です。
>>５８１さん、そうでした。すみません。
ひとつのセルに現在の時間を打ち込むと、その時間によって
その時間にあった挨拶を表示させたいです。
できれば関数でお願いしたいです。
>>583さんのいってるやつです。

>>587さんが作ってくださったのは、マクロなんですか？
このままＡ１にコピペしていいんでしょうか？

NOW関数　HOUR関数　IF関数を極めなさい

>>587
Sub auto_open()
にすれば自動実行されるよ

>>589
どうもＩＦ関数が苦手系なんですorz
でもがんがってみました。これでいいでしょうか・・

=IF(A1<3,"おはようございます",IF(A1>17,"こんばんは","こんにちは"))
ちょっと時間が変わってしまいました(汗
これはＡ１にＮＯＷ関数入れて引っ張らないと表示されないんだけど。

>>590
ありがとうございます。マクロなんですよね。
ますますワケワカメですorzちょっとやってみます

おしい
=NOW(HOUR())
かな

逆だった
=HOUR(NOW())

なんかﾀﾞﾒﾀﾞﾒdeath.
夜ご飯作らないといけないので明日までの宿題にしますorz

ネスト入り関数は奥が深いなあ

「MS-Word形式のままファイルサイズを劇的に小さくするツール
内部画像データを軽量化」おぃ、こんなのあるぞ
http://www.vector.co.jp/soft/win95/business/se397543.html

エクセルでもプレビュー表示を無効にするとファイルサイズ小さくなるよ

こんにちは
会社の業務日報のExcelファイルを開くと癒しの音楽が流れるようにしています。
こんな感じです　↓

Sub SOUND_ON()
Dim SoundFile As String

SoundFile = "C:\Documents and Settings\Okure￥my Music\\SOUND08.mp3"
If Dir(SoundFile) = "" Then
MsgBox SoundFile & vbCrLf & "がありません。", vbExclamation
Exit Sub
End If
Shell "mplay32.exe /play /close " & SoundFile
End Sub

でも、これだと問題があるのです。
Excelを閉じても、mp3playerが残って、サウンドがなり続けてしまうのです。
Excelを閉じたときに、サウンドも終わるようにするには
どうしたら良いでしょうか？
ご教授お願い致します。

�@　SOUND_ON()のブロックをプロシージャと呼ぶんですが、
プロシージャの一番上に次の２行をコピーします。
但し、一番上に、Option Explicitという行があったら、その下にコピーしてくらさい。

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

これはウィンドウを探す関数と、ウィンドウにお知らせをする関数です。

�A　次の５行のプロシージャを追加します。

Sub Auto_CLose()
Dim h&
h& = FindWindow("WMPlayerApp", "Windows Media Player")
If h& <> 0 Then PostMessage& h&, &H12, 0&, 0&
End Sub

内容は、ブックが閉じられる時に、
クラス名がWMPlayerAppでタイトルがWindows Media Playerというウィンドウを探して
見つかったら、そのウィンドウに「消えてちょ」とメッセージを送ります。
（&h12は消えてちょの意味でWM_QUITでぐぐれば確認できます）
見つからなかったら何もしません。

早速のご教授、有り難く思います。
助かります。
�AのSub Auto_Close( )は、
workbookのbefore　close　のところに、このサブルーチン　コールを
仕込めば良いのでしょうか？

エクセルはよく判らないです。
それよりmplay32.exeってWindows Media Playerですか？
じゃなかったら、上の方法を使うには、
そのアプリケーションのクラス名を調べないといけないのですが
調べるにはspy++.exeというツールが必要なのでダメですね。

＞mplay32.exeってWindows Media Playerですか？

そうです。WMPです。
bookを開いたときに>>599のｻﾌﾞﾙｰﾁﾝをコールするようにしてます。
そうすると、WMPの縮小版がタスクトレイに出て、サウンドが鳴ります。

bookを閉じるときに動くルーチンで�Aをコールすればよい。
と言うことですよね。

うちのWMPのファイル名はwmplayer.exeだけどクラス名は同じかな？
これはやってみれば判るとして、
コードの追加は、
bookを開いたときに実行してるものがあるなら
Sub Auto_Open( )があるはずですね。
そこに追加すればいいれす

mplay32.exeって、現状最新版のWMPじゃなくて
旧型のWMPらしいです。
小生はXPホームですが、旧型のWMPも入っています。
旧型だとタスクトレイに小じんまりと、目立たないように出るので
こっちの方がいいと、解説されていたので、これを使ってます。

クラス名を検索条件に入れないで
h& = FindWindow(VbNullString, "Windows Media Player")
でもいいみたい。
"Windows Media Player"の部分はウィンドウのタイトルを全く同じに
キッチリ指定しないといけません

色々とご教授、大変有難う御座いました。
参考になりました。

エクセル内では、
FindWindow("WMPlayerApp", "Windows Media Player")
の部分が、そのまま使えないようでした。
FindWindow(　) を内部サブルーチンとして認識してしまい、
”そんなﾌﾟﾛｼｰｼﾞｬｰは定義されてません”っていうエラーになります。

また、いろいろネットで検索してみます。

ありがと。

ああ、がっかりっす。
それはFindWindowが定義されてないからです。
FindWindowの定義（Declare)は
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
掲示板で教えるのって難しい