Excel総合相談所６

Excelに関する質問は、ここで！

・質問する人は可能な限り具体的に書くこと。
・Excelのバージョン、ＯＳのバージョンも書くとレスが付きやすい。
・回答がなくてもキレないこと。
・分かる人はできるだけ回答して下さいませ。

前スレ
Excel総合相談所５
http://pc.2ch.net/test/read.cgi/bsoft/1018055390/

過去スレは、>>2を参照

【過去スレ】

Excel総合相談所
１　http://mentai.2ch.net/bsoft/kako/965/965792827.html
２　http://pc.2ch.net/test/read.cgi/bsoft/986283001/l50
３　http://pc.2ch.net/test/read.cgi/bsoft/1004432306/-100
４　http://pc.2ch.net/test/read.cgi/bsoft/1012439547/

Excel2000でシェイプをつかったVBAを作成したのですが、
Excel９５、９７、でも稼動するかわかりません。
どなたかこれらのバージョンの違いによる、機能の相違を検証したサイトを
ご存知ではないでしょうか？

>1
スレたて乙で〜す

すいません　教えてください
VLOOKUPで検索したデータ-をBOOK2に自動的にコピーして
コピーするときに一行ずつ下げたいのです
マクロを教えてください。お願いします

おながいします。

簡単なマクロを使い編集し終わったファイルがあります。
ファイルオープン時にマクロの有効、無効のタブが
出てこないようにするにはどおしたら良いのでしょうか？？

>>6
エクセルＶＢＡ質問＆研究板
http://pc.2ch.net/test/read.cgi/bsoft/1008219498/58-59

まったくの初心者で申し訳ありません。
教えてください。


　　　A　　　　　　B　　
１　樹木名あ　場所
２　アララギ　　a
３　アジサイ　　b
４　アオキ　　　e

このような表なのですが、「樹木名あ」の列を50音順に並べ替えして、
アオキ、アジサイ、アララギ、という順になるようにしたいのです。
ちなみに、Cの列には「樹木名い」が入っています。

よろしくおねいがいします。

>>8
Excel総合相談所５
http://pc.2ch.net/test/read.cgi/bsoft/1018055390/984

>>7
ありがとうございます。
無事、解決しますた。

たとえば
0.005468497
62502232.22
とあるとき
5.468*10^(-3)
6.250*10^7
と変換したいのですが、いい方法ないですか？

すみません。欲を言えば書式で上付きもじのような

　　-3
　10

にしたいです。

取りあえず、書式を
0.000e-0
にしてみる。

満足できなければ、LOG10()などを使って自分で指数部と仮数部を求めるしかない。

windowsCEのpocketExcelを使用しているのですが、
pocketExcelにはSUBTOTAL関数がありません。
これにかわる方法はないでしょうか？

やりたいことは、
オートフィルタで選択された行の値の合計値です。
例、
A列の値をフラグにしてオートフィルタをかけ、
選択された行のF列の合計値をほしい。
=SUBTOTAL(9; F1:F100)
のような感じなのですが。

どなたかよい方法をご存知の方、おねがいいたします。。

会社専用の積算ファイルを作ったんですが、このブックを開いたときに、
自動的に開いて数秒後に自動で閉じる 「会社のロゴ入りのユーザーフォーム」を
入れたいと思います。(こーゆうのが好きな上司がいるので…）

で、ロゴ(bmp)を貼り付けたUserForm1を作り

ThisWorkbookオブジェクトに

Sub Workbook_Open()
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
UserForm1.Show　　’←コレ
End Sub

コレを入れて、自動で開かせることは出来たんですが、
「数秒後に閉じる」為にはどうすればいいか判らないので
教えてください。

OnTimeメゾットを使うんだと思いますが、ヘルプを見ても
判らなかったです。

>15
こゆこと？
sub auto_open()
　Userfrom1.show
end sub

Private Sub UserForm_Activate()
　Application.Wait (Now + TimeValue("00:00:05"))
　Unload UserForm1
End Sub

(株)A社
(有)B社

の頭にある(株)や(有)を無視して並び替える方法はないでしょうか？
すみませんが、どなたか知ってたら教えてください

例えばH25に"END"を入れて
C3〜C25までの合計をC2に出すにはどうしたら良いですか？
（関数で）（2000・98）

追加

ENDの位置は項目を追加するごとに
したに下がります。

要は下に項目を追加すると、
一番上の合計欄が自動で書き換わるようにしたいのです。

>>17

http://www.mars.dti.ne.jp/~hiroyuki/excel/kansuuDic.html
の文字列のところに有ります。

○度○分○秒というデータを扱いたいのですが、
どうすればいいんでしょうか？

↑平均をとったり...という作業です。

現在、エクセルで表計算検定の問題をやっているのですが
構成比を求めると#DIV/0! と表示されます。
何がまずいのでしょうか？

構成比＝売上金額 / 売上数合計 です。
こちらのファイルです。

http://gotonext.gi-ga.net/upbbs5/img-box/img20020613220206.xls

>>22
ファイルは問題ない。
売上数合計=J16だけど、オートフィルで式のコピーをしてるときに
絶対参照じゃなく相対参照にしててJ16がずれていってエラーが出てるんじゃないの？

K16の間違い

>>18
ENDの位置は、
=MATCH("END",H:H)
で判る。この例では25が返る。

あとこれに =INDEX() か =INDIRECT() を適用。

>>21
度分秒は、時分秒と同じ比率なので、
区切りを:にして、シリアル値で扱えばいい。

度が24を越えるだろうから、表示形式を[h]:mm:ssにする。
小数で表示したい時は、*24して数値として扱う。

>>23
レスありがとうございます。
絶対参照を設定したらできました。
ありがとうございました。

あるデータの近似曲線を書きたいのですが、
そのデータの中に必ず通って欲しい点が２点あります。
２定点を通る近似曲線を書くにはどうしたらいいのですか？

>>20
レス遅くなってすんません。見てみたのですが,あまりよくわかりませんでした。(汗
関数を使って一部の文字列を抜き出してそれを元に並び替えるということでしょうか？

>>28
君だけでは無く、この前スレなどで近似曲線について質問する人は、
何のために、どのようなデータに対してその近似曲線を引きたいのかを考えるべきだ。

多項式、指数、など色々あるが、
元のデータは理論上ある特定の式に従うはずだが誤差を含んでいるという状況で、
データや誤差について判明している特徴から、式の不明な部分を推定するのが近似曲線なのであって、
ただ何となく線を引きたいのだったら、鉛筆で書いとけ。

＞30
２定点を通ることは理論上分かっているが、
特定の式は解明されていない。
グラフの見栄え上、線を引きたいだけなのだが
鉛筆で引くには量が多すぎるので質問した。

いい方法を思いついたので試してみるよ

>>31
近似曲線の意味を理解しているのならいいけど。

グラフの形状がどうなるべきなのかある程度知見が無いと、
あの質問だけだと、単にその２点を直線で結んでも、
（データ数−１）次の多項式でも、何でもOKになってしまうよ。

近似曲線てさぁ難しいこと考えないで

プロットだけして、（図形描画で）自分で線を引くってのはだめなのか？

キット、そんな単純な問題じゃないんだろうな・・・

ExcelのVBAで疑似データベースみたいなことをしてるんですが、
例えば、コード列が「01」の商品名を取ってくるみたいなSQLのSelect文っぽいことは
どの様にすれば良いのですか？vlookupがあれば良いんだけど…。
よろしくおながいします。

Excel.WorksheetFunction.VLookup()

>度が24を越えるだろうから、表示形式を[h]:mm:ssにする。
小数で表示したい時は、*24して数値として扱う。

ってどういうことなんでしょうか？

sin 60:01:36　っていう計算をするにはどうしたらいいんでしょうか？
このままでは0.59758162っていうようにでてしまいます。
正しい値は0.86625802なんですが...。

ある列と列を比較して、
セルの内容が一致したならば、
一致する、という事を書いて行くという方法を
以前お聴きし、参考にして
A B C
a b
c a
a a 一致
b a

とかだったとした場合、
各々を比較して一致した場合は一致するという事
を列Cにでも格納していくといった感じのマクロを作成しました。
しかし、そのマクロにおいては、最終行における比較が終了した
ら自動的に最終行をいう事を検知して比較を終了するという
事まではやってくれません。
(一回一回マクロを編集して、何行目までを比較するという
風に書き直しています)
それだとめんどくさいので、自動的に最終行を検出して
そこで、比較が終るといった感じのマクロを作るには
どのようにしたらいいでしょうか？

(例えば、最終行の次の行は、A、Bとも空のセルになるので、
それを利用したらいいのかな？とも思うのですが
やりかたが分かりません)

>>37
While....Wend　ステートメントが適当と思われる。
ＡとＢに値が入っておれば、ある処理をさせ最後に一行下げる。
ＡとＢが空白ならばＥｎｄ
ヘルプを見てくらはい。

>>36
君は、２つのことを理解していない。

１．
　Excelで時刻や日付けを扱う時に使うシリアル値とは、１日を１とした小数。
　つまり、時:分:秒　と表すとき、24:0:0 = 1.0 となる。
　一方、度分秒を小数で表すときは、どこを1にするか自分で決めることになるが、
　１度を１とした小数にしたいのなら、1:0:0 = 1.0 となる。この場合、時分秒との比は24。
　360度を１とした小数にしたいのなら、360:0:0 = 1.0 となる。この場合、時分秒との比は24/360。

２．
　Excelに限らず、sinには度を使わず弧度法（ラジアン）を使う。
　意味が分からなければ今後のために勉強した方が良いと思う。

>>37

Sub aaa()
Dim i As Long
　With ActiveSheet
　　　For i = 2 To .Range("A2").End(xlDown).Row
　　　　　If .Range("A" & i) = .Range("B" & i) Then .Range("C" & i) = "一致"
　　　Next i
　End With
End Sub

>>39
Excelで角度を扱うのはちょっとめんどくさいんですね〜

ラジアンのことについてはわかりますが、実験で得た値が
度だったんでそのままやりたかったんですけどね・・・

VBAでRange("A1:E5")が選択されているとして、
Aや1は.Rowと.Columnで取得出来るのですが、
このEや5を取得するにはどうしたら良いのですか？

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜★
／⌒ヽ ===== Kiss Love これって、 =====
u・・u
弌=●=） http://www.KissLoveTOCO.com
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜★
○__)______
....._____◎) >START SEARCHING HERE
.....__) Find out anything...
.....__) About anyone....
／____) Kiss Love World No,1 SEARCH JAPAN
なんでもあるじゃん。
暴言は英語ページでね。フランス人とバトル？
パラグアイ語もありんす。

>>42
RowとかColumnというキーワードで、ヘルプをさがしてみると吉

>>42

Ctrlキーを押しながら、複数エリアを選択した場合でも、最後のエリアの最後のセルを表示する

Sub bbb()
Dim a As Range

　Set a = Selection
　If a.Areas.Count > 1 Then Set a = a.Areas.Item(a.Areas.Count)

　MsgBox "Address : " & a(a.Count).Address(0, 0) & Chr(13) & _
　　　　　　　　　　　　　　"Row : " & a(a.Count).Row & Chr(13) & _
　　　　　　　　　　　　　　"Col : " & a(a.Count).Column
End Sub

ちとｽﾚからそれるが、回答しているお前！
その知識どこで手に入れてる？

>>46
素直に、「Excelでやりたいことを調べる方法を教えてください」と
聞けよ。

漏れは、helpをﾒｲﾝに使うけどな。

>>46
その質問は、解党している全員に対するものか?
それなら、漏れは、ＤＯＳ時代のＢＡＳＩＣが文字どうりベースだな
後は、記録マクロを見て解析したりするが一番はやはり良い参考書か

コマンドボタンをクリックしたら、アクセスで作ったクエリーをエクセルに
落とし、そのデータをエクセルの請求書フォーマットにひっぱって
差込印刷みたいな事をやろうと思って下記のようなVBAをアクセス側
で書いたのですが、実行してもエラーになってしまいます。
（Set ExcelObjectという言葉の部分が黄色くなり、変数の定義がされて
ませんというメッセージが出ます）
解消するにはどうしたら良いでしょうか？　お手数かけてすいませんが
教えてください。
----------------------------------------------
Option Compare Database
Option Explicit

Private Sub 請求書出力ボタン_Click()
With CodeContextObject
DoCmd.TransferSpreadsheet acExport, 8, _
"損益計算書作成クエリー", "C:\My Documents\新請求書フォーマット.xls", True, "当月データ"
End With
Set ExcelObject = CreateObject("Excel.Application")
ExcelObject.Visible = True
ExcelObject.Workbooks.Open Filename:="C:\My Documents\新請求書フォーマット.xls"
ExcelObject.Sheets("当月データ").Select
ExcelObject.Columns("D:D").Select
ExcelObject.Selection.Copy
ExcelObject.Sheets("請求書フォーム").Select
ExcelObject.Columns("P:P").Select
ExcelObject.ActiveSheet.Paste
ExcelObject.Sheets("当月データ").Select
ExcelObject.Columns("A:A").Select
ExcelObject.Selection.Copy
ExcelObject.Sheets("請求書フォーム").Select
ExcelObject.Columns("Q:Q").Select
ExcelObject.ActiveSheet.Paste
ExcelObject.Worksheets("請求書フォーム").Activate
下端 = ExcelObject.Range("P2").end(xlDown).Row
For 行 = 2 To 下端
ExcelObject.Range("C6").Value = ExcelObject.Cells(行, 16)
ExcelObject.ActiveWindow.SelectedSheets.PrintOut
Next
ExcelObject.ActiveWorkbook.Save
ExcelObject.ActiveWorkbook.Close
ExcelObject.Visible = False
End Sub

>>49
> Option Explicit
で変数の明示的な宣言を強制してるんだから、
ExcelObjectって変数をどこかで宣言してあげないと...
Setの前にこの文入れてみて。

Dim ExcelObject As Excel.Application

っと、「行」と「下端」もね
Dim 行 As Long
Dim 下端 As Long

>>50
ありがとうございます！
ただ、さっそく試したのですが、今度は
「ユーザー定義型は定義されてません。」
というメッセージが同じ部分で表示されてしまいました。
どうしたものでしょう。。。

>>51
あ、すいません。さっそくやってみます。
具体的に教えていただいて感謝です！

>>52
参照設定がされてないのかな。

ツール → 参照設定 で
□ Microsoft Excel 9.0 Object Library （うちの環境の場合)
にチェックを入れる。

214 名前：213 ：01/10/20 12:02 ID:fFGjQToc
先程お願いしましたが、まだ削除されていません
事実無根です
早急に削除して下さい
http://kaba.2ch.net/test/read.cgi/company/997171282/699

215 名前：削除屋三太郎 ★ ：01/10/20 12:09 ID:???
>>213-214
http://www.2ch.net/guide/adv.html#saku_guideに、
＞法人・公的機関の取り扱い
＞原則放置
＞　法人・企業については、社会・出来事カテゴリ内では、批判・誹謗中傷、
＞インターネット内で公開されている情報、インターネット外のデータソースが不明確なもの、は全て放置です。

とありますので、放置とさせていただきます。

260 ： ：01/10/23 10:54 ID:iMDesK4O

＞　法人・企業については、社会・出来事カテゴリ内では、批判・誹謗中傷、
＞インターネット内で公開されている情報、インターネット外のデータソースが不明確なもの、は全て放置です

おいおい、データソースが不明確だからこそ削除するんだろうが（苦笑

>>49
エクスポートだのコピペだのせんでセルに直接値をぶち込んだほうがいいぞ

まあ何でもいいがこれだけは直しとき (直さんでもいいが一番最後に入れとき)
× ExcelObject.Visible = False
○ Set ExcelObject = Nothing

>>54
ありがとうございます。それもためしてみます。

>>55
誤爆ですか？

ありがとうございます。やってみます。

＞エクスポートだのコピペだのせんでセルに直接値をぶち込ん
＞だほうがいいぞ
請求書のフォームに名前だけ入れると、アクセスから落とした
データを参照して、お客一人づつ請求書をプリントするように
したいんです。

>>58
お前超ド素人だな (w
それとも素人を装っての煽りか？

オレがいいたいのはムダを省けってコト
例えば５行使ってのコピペは１行で済む
With ExcelObject.Workbooks("新請求書フォーマット.xls") 'オブジェクトへの参照はきちんと行うべし！
.Sheets("請求書フォーム").Columns(16) = .Sheets("当月データ").Columns(4).Value
End With
※ホントは Columns オブジェクトじゃなく Range オブジェクトで必要最小限の範囲を指定すべき

同じ理屈でエクスポートじゃなくデータを直接設定する (無論やり方はまったく違うぞ)
わかる？

>>59
>例えば５行使ってのコピペは１行で済む
3行つかってるし。片方にしかValue付いてないし。動くけどさ。

>※ホントは Columns オブジェクトじゃなく
Columnsプロパティだし。

>同じ理屈で
コードを短くするのと方法論じゃぜんぜん理屈違うし。

やたらと偉そうな割にはVBAも日本語も恥ずかしいくらいに中途半端。煽りですか？

VBA最近習って、自習中です！
先輩方、質問お願いしたいっす！

ある表のM列が「001」の行の値をA〜Mまで1つずつ参照していきたいのですが、
M列から「001」を探すのはfindで出来たけど、
探した行の値を順に取るのが出来ません。

M2に「001」があったとして、A2を参照したかったら12セル分Previousで
移動するもんですか？

うーん…VBAの中でExcelのは一番難しく感じます…。

>651

Findは使わなくても良いと思うけど？

Sub checkM()
　Dim myRange As Range
　For Each myRange In Range("M1:M" & Range("M65536").End(xlUp).Row)
　　If Val(myRange) = 1 Then
　　　MsgBox Range("A" & myRange.Row)
　　　'Range("A" & myRange.Row).Select
　　　Exit For
　　End If
　Next myRange
End Sub

>VBAの中でExcelのは一番難しく感じます
そう？Excelが一番体系だっていてわかりやすくない？
（Wordが個人的には一番難しいと思うけど？）

>651
PreviousよりもOffsetの方が使いやすいよ

>>46
本、マクロ記録、ヘルプ、Web、そして蓄積された.clbから

>>61です。ありがとうございます。

>>62
ああ、こんな方法があるのですか。
For Each〜ってのも習いましたが、よく理解出来なくて忘れてました。
こんな風に使うのですね。勉強になります。
あと、Range("M1:M" & Range("M65536").End(xlUp).Row)←これがよくわかりません。
一度、一番下のセルを参照して、また一番上のセルを参照するのですか。
ちょとヘルプよく見ます。

>>63
Offsetプロパティって習ってませんでした。勉強になりますた。

>Range("M65536").End(xlUp).Row)←これがよくわかりません
M65536（excelの最終行）から上がってきて、中身のある最初のセルの行番号
>Range("M1:M" & Range("M65536").End(xlUp).Row）
M1から始まって、M列の中身のある最終セルまでの範囲

この方法で指定をすると、データ数が変わっても、途中に空欄があっても対応可。

>>66
ありがとうございます。
Endって完全に端まで逝くんじゃなくて、最初に出会ったデータの入っているセルで
止まるってことですね。だったらえらい便利ですね。最強か？
勉強になりました。

シート変えるキーボードショートカットって無いですか？
いちいちマウス触るの飽きたよー。

>>68
シートチェンジならCtrl+PageUP/Down
別ブックならCtrl+F6

>>69　tnks

----↓史上最低クズ板発見 !! (^o^)丿↓-------------------------
http://pc.2ch.net/hard/
カテゴリ;ハードウェア
★↑馬鹿博之本人 出没板★

------該当板発見、 ↓ちっともお勉強にも屁にもならない板発見 !!↓---------

××××http://pc.2ch.net/hard/←チンカス板 or ｸｽﾞの集まり××××

　　　　　　　　　　　　↑こいつらの中にｽﾊﾟﾑやってる奴いるぜ。
なんせ、↑こいつらｷﾁｶﾞｲ集団だからな。

>>40
その方法を応用したらできました。
有難う御座います。

322,456,433　
58,884,211　←直接入力
235,689,353
　　・
　　・
　　・
617,029,997 　←=sum関数で総和をだしたもの
[上記単位は円]

上記のように入力は円単位で、表示は下記のように千円単位に四捨五入して
322,456　
58,884
235,689
　　・
　　・
　　・
617,030
[単位は千円]

とできませんか。
書式設定の表示形式を変えればできそうだとは思うんですが、どうやっていいのかわかりません。
入力と表示のセルを別にするなら、round関数を使えばいいんですが
同じセルでしたいもので・・・。

ご教授お願いします。

>>73
#,##0,

>>74
さっそく試してみました。
素晴しいです。ありがとうございます。

もう少し詳しく伺いたいんですが、どういう仕組みなんですか？
#とか0とか,の役割は？
万単位で四捨五入の場合は？

0604　や　1203　などと入力し
６月４日　１２月３日　などと表示させる方法を教えてください。

>>76
=DATEVALUE(LEFT(TEXT(A1,"0000"),2)&"/"&RIGHT(A1,2))

>>76
#"月"00"日"だと、
0614→6月14日、1231→12月31日、0604→6月04日、1203→12月03日
とできるが、６月４日、１２月３日とはできない・・・ハズ。

>>77-78
ありがとうございます。

>>78
いえいえ、小文字でいいです。ありがとうございました。

CSV形式で保存して、メモ帳で開くと、横の列の最後に｢,,,,,,｣というものが残ってしまいます。
いちいちメモ帳で取り除くのは面倒なんで、それを出さないようにするにはどうしたらいいのですか

教えてください。

>>80
別に取り除く必要無いんじゃないの？

>>80
＞｢,,,,,,｣というものが残ってしまいます
ていうか、ナニモナイヨという各セルの情報を記すために
｢,,,,,,｣が記されているんです。

ほんとに必要ないのに、全行とも等しく末尾に｢,,,,,,｣が付くのなら、
そもそも、もとの *.XLS ファイルのワークシートに書かれている情報が
へんです。要らない列があります。
要らない列は削除（クリアじゃないよ）しておしまいなさいな。

>>78
[DBNum3]#"月"00"日"

Range("A1:B10").Select
Selection.Sort Key1:=Range("A1")

とやってもソートされないのですが、何が足りないのでしょうか。

>>84
ちゃんと動くよ。
データはソート可能なものが入ってる？
ExcelのVerは？

>>85
どもっす。Ver97です。
今、例として（A列B列全部文字列です）

　A　　　　　　　B
あああ　　　　○○○
いいい　　　　○○○
あああ　　　　○○○
いいい　　　　○○○
いいい　　　　○○○
あああ　　　　○○○

となってるのですが、>>84に書いたのはA1を拠点として

　A　　　　　　　B
あああ　　　　○○○
あああ　　　　○○○
あああ　　　　○○○
いいい　　　　○○○
いいい　　　　○○○
いいい　　　　○○○

にするコードですよね？これがならないのです。
自分で書いてて分からなくてスマソです。

うーん、わかりません。
97で上記例で、当たり前に動きました。
エラーメッセージの類いは出ないのですよね。
他のマクロは動いてますよね。
一回、自動記録でも使って試してみるとか？
うーん、判りません。

>>84
↓の一番上のカキコのようにしてみたらどうだろ？
http://www.uchidas.com/yasuo/vbaboard/vbaboard98.html

メニュー、ツールバーが出てきません。
ヘルプでツールバーの表示、非表示について調べたところ、
“「ツール(T)→ユーザー設定」から〜”って載ってるのですが、
ユーザー設定自体がグレーアウトしてしまっている。
（今は、IEからExcelファイルを開いてメニュー、ツールバーを表示させてしのいでいます。）
修復ｲﾝｽﾄｰﾙをしても直りません。

>>89
http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/208.zip

ＤＯ素人です。
顧客管理などで使用したいですが、セル１では名前だけで　セル２ではその詳細をクリックして
使いたいと考えています。簡単に出来る方法など教えて下さい。

>>91
セル1とかセル2というのが、A列とかB列という意味なんだろうけど、

＞セル２ではその詳細をクリックして使いたいと考えています。

何をクリックして、何に使うのかがわからん。
質問が第三者に伝わるように書き直してくれないか？
顧客管理ならAccess向きだと思うけどね。

>>91
92さんの言うとおり、
現状では何をしたいのかが自分自身で言えないくらいの
段階だから、それが問題。
そもそも、顧客管理「など」なんて、イイカゲンすぎ。

お教室に通うのが、なにしろ「簡単」だと思う。ガンバレガンバレ。
もっと「簡単」なのは、業者に任すこと。

>>87、88ｻﾝ
返事遅れてスミマセン。
なんと範囲選択して、メニューから並び替え選んでも
ソートされませんでした…。
シートに保護なんてかけてないし、なぜだかさっぱり分かりません。
もう少し、よく見ることにします。ありがとうございました。

　OFFICE2000をWIN98で使っています。
今まで使っていたWIN98のユーザーが不要になったので、
コンパネからユーザーごと削除して、別ユーザーで
ログインしたら、OFFICEが使えなくなってしまいました。
アプリケーションをインストールしてくださいと出ます。
プログラムはちゃんと入っているので、どうやらOFFICE2000は
ユーザー1人につき1ライセンスといった管理をしているのだと
思いますが、ユーザーは一人しか登録しませんので、
最初にインストールした以外のユーザーでなんとか使えるように
ならないでしょうか？
　再インストールすればよいのでしょうが、CD-ROMのついてない
ノートPCなので、それも簡単には出来ません。
　レジストリなどをいじればよいのかもしれませんが、その辺が
わからないもので。。。
　詳しい方よろしくお願いします。

表の値を変えてもグラフ中の値を変えないようにするにはどうしたら良いのですか？　
もう一つエクセル開いてそっちにコピペする方法以外にありますか？

もう１つシート作ってそっちにコピペする。

>>97
それ以外の方法はありません？

>>81-82
レスどうも。
板違いになってしまうかもしれませんが、
FS2002でFlightPlanを作ってるんです。[,,,,,]があると、コンパイルしたときにエラーが出てしまうので、
どうしても取り除きたいんです。
全ての行にあるわけではありません。
それは、いちいちメモ帳で消すしかないんですか?

図としてペイントなどにコピぺして保存。
Excelで挿入−図−ファイルから、とか？

しかし、そんなややこしい事したきゃないけどなぁ｡｡｡

>>100
でもそれだと重くなってしまいますよね？
要はＡ４一枚にグラフを８個貼りたいのですが、たとえばワードにグラフを
コピペしたりするとかなり重くなりますよね？それを解消する方法は無いものかと思って
質問したんです。先に書くべきでしたね。すみません。

>>99
>>82でいらない列を消せばいいと書いてあると思うんだが。
それでもダメだったの？

>>101
だったら>>97の方法で十分だと思うんだが。

>>95
この現象かな
http://support.microsoft.com/default.aspx?scid=http%3a%2f%2fwww.microsoft.com%2fJAPAN%2fsupport%2fkb%2farticles%2fJP233%2f5%2f29.asp
とべなかったらJP233529をマイクロソフトの技術情報で検索してみて。
結論はそれぞれのユーザーでセットアップ。

>>103
それだと表の値を変えるとグラフの値も変わってしまうんです。

グラフの数だけデータ（系列）も用意すれば？
それがシンプルでストレートな方法だと思いますョ。

>>106
やはりそうなってしまいますよねぇ･･･。

【ｽﾚ違いだと思いますが初歩的な質問】
テレビ番組表を1年分ぐらいﾀﾞｳﾝﾛｰﾄﾞしたhtmlﾌｧｲﾙがあるんですが、
それを年・月・日付がわかるように整理したいんですがexcelではどのようなことができるのでしょうか？
わかりやすくhtmlにﾘﾝｸつけて整理することできるでしょうか？
結構多い量のﾌｧｲﾙの管理ってどうやったらうまくできるのかわからないので教えていただきたいです

>>107
グラフを選択状態にして
Shiftを押しながら　編集＞図のコピー → 編集＞図の貼り付け

>>99
マクロで、print#で自分で出力書式を設定したらできると思う。
このスレか前スレで最近あった。
すまんがいまへべれけなのであとはじりきでたのむ

>>109
あ、それだ。100でやろうとして思い出せなかったの。
ｻﾝｷｭ、すっきりした。

>>108
逆に、自分はどのように整理したいのかを考えた方がいいと思う。
それによってどのソフトでどんな作業をするか決まる。

例えば、日付けをクリックしたらその日の番組が表示される、とか、
タレント名や番組名を入力すると検索できる、とか、
タレント別の出演延べ時間ランキングを作りたい、とか。

>>112
日付だけの管理でいいんです。（ちょっとメモを入れてみたいですが。「ワールドカップ期間中」など）
たまった不要ﾌｧｲﾙでもなんか愛着あって捨てれない。。。
どうせならひとつのﾌｧｲﾙを開いたらそこからﾘﾝｸさせることができたらなと思ったわけです
やっぱりﾀｸﾞうってｼｺｼｺとﾘﾝｸ張ってった方がいいですかね？
ﾌｧｲﾙ名が「tv2002-05-18Vt.html」のように連続してるのでexcelだと簡単かなと。。。
上記のように日付ｸﾘｯｸでhtmlﾌｧｲﾙ起動ならexcelの初心者本読めば簡単にできますか？

>>113
file://フルパスでハイパーリンクになるはずだから・・・

日付をA列にとるとして、B列に
="file://tv"&text(a1,"yyyy-mm-dd)&"VT.html"

その後、オートフィルしたらどうかな？

×="file://tv"&text(a1,"yyyy-mm-dd)&"VT.html"
○="file://（フルパス）\tv"&text(a1,"yyyy-mm-dd)&"VT.html"

そのままじゃならないね。Excel2002
値コピペ
して、F2＆Enterしたらハイパーリンク化したけど・・・

スレ汚しｽﾏｿ。もう寝るよ。

>>113
Alt+F11→挿入＞標準モジュール
そこに↓のマクロをコピペ。
excelに戻ってファイル＞名前を付けて保存。（保存先はリストにしたいhtmlがあるフォルダ）
あとはマクロの実行でどうだろ？

Function Mypath()
　　Mypath = ThisWorkbook.Path
　　　　If Right(Mypath, 1) <> "\" Then
　　　　Mypath = Mypath & "\"
　　End If
End Function

Sub ファイルリスト読み込み()
　　Dim fn As String
　　Dim i As Integer
　
　　i = 1
　　fn = Dir(Mypath & "*.htm", vbNormal)
　　With Worksheets("Sheet1")
　　　　.Cells(i, 1) = fn
　　　　.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:=fn, TextToDisplay:=fn
　　　　While fn <> ""
　　　　　　i = i + 1
　　　　　　fn = Dir
　　　　　　.Cells(i, 1) = fn
　　　　　　.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:=fn, TextToDisplay:=fn
　　　　Wend
　　End With
End Sub

>>114-117
詳しい説明ありがとうございます。大変参考になります。
記述してあるマクロがどうなるのか理解すらできませんが（藁
ﾚｽを参考にしながら少し勉強して、色々試行錯誤して作ってみたいと思います
くだらない質問に答えてくださってありがとうございました。
スレ汚しすみませんでした。

過去ログ３にも有ったのですが、
excelファイルが、不正終了後に、読み取り専用になってしまいました。
アイコンからのプロパティ欄には「読み取り専用チェック」は有りませんでした。
削除も移動もできない状態です。

なんとか、削除だけでもできないものでしょうか？
良きアドバイスお待ちしています。

>>119
Tempフォルダ内のファイルを削除する
http://arena.nikkeibp.co.jp/qa/trouble/20020416/01/

ファイル内にHtmlタグが含まれているcsvファイルをエクセルで開くと、
タグが出力された状態で表示されてしまい、テキストとして編集することが
出来ません。Htmlタグもcsvファイル内のテキストとして編集したいのですが、わかりません。
アドバイスをいただけると助かるのですが、宜しくお願いします。

>120様
ありがとうございました。うまくいけそうです。

EXCELで「リッポウメートル」の単位として、�uではなく、右上の数字
が3になったものを表示させたいのですが、どうすればいいのですか?
「単位」とか「記号」で変換押しても、「�u」は出てきても、
「リッポウメートル」の単位は出てこないのですが。

>>123
mに上付の3じゃダメ？

>>121
""で囲んでもダメ？

>>124
上付の3はどうすればできるのですか?

>>126
「ｍ3」と入力する
数式バーの中で「3」(以降)だけを選択し、右クリック
セルの書式設定から、文字飾りで「上付き」にチェックし、OK
もう一度、Enterで確定

>>127
ありがとうございます。
できました。

会社のExcel97で先日、自動保存ってのを実行したのですが、ウザくなってはずしました。
にもかかわらず、Excel起動する時にステータスバーに
Autosave.exe(拡張子違うかも…)と表示されて、その横にゲージがすすすっと出ます。
オートセーブはされない状態なのですが、毎起動時に出るのでウザくて仕方ないです。
他にチェックなどあるのでしょうか。

>>129

ツール−アドイン

>>121
(ﾟДﾟ)ﾊｧ?

>>121 さん、
私も知らなかったけど、そうなるんですね。
今、エクセル２０００で、Ａ１〜Ａ５セルに
＜ｈｔｍｌ＞
＜ｆｏｎｔ　ｃｏｌｏｒ＝ｒｅｄ＞
ＡＢＣＤＥ
＜／ｆｏｎｔ＞
＜／ｈｔｍｌ＞
って入れて、ｃｓｖ形式で保存してから呼び出したら、
Ａ１のセルに赤文字で「ＡＢＣＤＥ」って表示されてしまい、
セルの書式設定をみたら、フォントが赤になってた。

エクセルからタブ区切りテキスト→ｃｓｖ　にしても
同じだ。なんでだろう。
>131 さんは、なんで(ﾟДﾟ)ﾊｧ?になっているの？
解決方法はないんでしょうか？

データ - 外部データの取り込み - テキストファイルのインポート

すみません。 エクセル２０００で質問があります。

エクセルつかって表をつくりました。
1 AAAAA 2000 4/5
2 BBBBB 1980 4/3
3 CCCCC 2500 4/4
:

上記のような表を日付で降順でならべかえさせると
1 AAAAA 2000 4/3
2 BBBBB 1980 4/4
3 CCCCC 2500 4/5
:

となってしまいます。これを
2 BBBBB 1980 4/3
3 CCCCC 2500 4/4
1 AAAAA 2000 4/5
:
とさせるにはどうすればよいでしょうか？
よろしくおねがいます。

>>134
並び替えたいデータの入っているところを全部選択してから並び替え。

○　あああ
○　あいあ
○　あいい
×　あああ　
○　いいい
×　あいい
×　あああ
×　あいあ

このように重複する文字列が出てきた場合、
×のフラッグを付けるようにするにはどの関数を
もちいれば良いのでしょうか？

>>136
ソートしてIF関数で上と同じ場合は×そうでない場合は○という式を入れる。

>>137
それだと、136のリスト下から２行目の「あああ」が×にならない

>138
(ﾟДﾟ)ﾊｧ?

>>136
○×がA列、文字列がB列として
=IF(COUNTIF(B$1:B1,B1)=1,"○","×")
では？

>>140それだと重複しているの全部に×だやな。
>>137がお手軽で妥当

重複のぞいたリストが欲しいならフィルタオプション機能だやね。
これギャルの間じゃ常識。

>141
(ﾟДﾟ)ﾊｧ?

只今より、このスレは

　質問
　　↓
　回答
　　↓
　(ﾟДﾟ)ﾊｧ?

で1000を目指すスレになりますた

>143
(ﾟДﾟ)ﾊｧ?

ウィンドウズＸＰにオフィスＸＰをインストールしたのですが，
エクセルやワードを立ち上げたり終了する際，
非表示モジュール　Auto ExecNew 内でコンパイルエラーが発生しました
とメッセージが出てしまいます。
オフィスを削除・再インストールしたり，アプリケーションの自動修復，
アップデート等行いましたがだめでした。
他にはビジオを入れてあります。
何か良い解決方法がありましたら，ご教授ください。

>>145
VBAを使用できないようなカスタムインストールの仕方をしたとか？
標準インストールでも直らなかったのかな？

標準インストールしたのですが。
ちなみにソフト自体は普通に使えます。

>>145
Visio が作ったマクロを起動時に実行してるんじゃないけ？
スタートアップフォルダにファイルがあれば移動か削除すれ

Word は 'STRATUP' フォルダ
[ツール] - [オプション] - [既存のフォルダ] タブ - [スタートアップ] を見れ

Excel は 'XLStart' フォルダ
ヘルプで「Excel の起動方法を指定する」と質問しぃ

148さん
ありがとうございます。
さっそく家帰ったらやってみます。

ある整数を、数値が入った複数のセルにランダムで振り分けたいのですが、
どのようにすればよいのでしょう？

具体的には、F16の値が5だとすると、それを色々な数値が入っているE1〜
E10とかにランダムで振り分けたいのです。
欲をいえば、同じセルに1以上は割り振らないとか、できるだけ値の少ない
セルへの割り当てを優先するとかしたいわけですが、とりあえずそういう以
前の問題なので・・・。
使用しているのはExcel2000です。

あ、割り当ては必ず整数で行います。
つまり、５ならば”１”を５個、各セルに割り当てるということです。

>>150-151
(･∀･)?

>>152
だよね
オレも何を逝ってるのかさっぱりわからん
F16 が 5 ならば E1 〜 E10 のうちのランダムな 5 つのセルに 1 を加算するってことか？
どっちにしても VBA じゃないとムリぽ
もっと上手な説明 or 超具体的な例をあげてくれ

>>153
カズが入ってるセルに
上書き汁？　かねぇ。

＞　F16 が 5 ならば E1 〜 E10 のうちのランダムな 5 つのセルに
＞　1 を加算するってことか？

そうです。
わかりづらい説明で申し訳ない。

E1=5 E2=10 E3=2 E4=7 E5=9、E6=1と仮定した際、ここに"ある値"、例えば5な
どを割り振るわけです。
この割り振るというのは、それぞれのセルの値に加算するということです。

具体的には、E1=5+1 E2=10+1 E3=2+1 E4=7のまま　E5=9+1 E6=1のまま・・・
といった具合です。

この加算がE1〜E6のどのセルに対して行われるかということをランダムにし
たいということなんです。
更に細かいことを言うと、割り振りの際加算するのは必ず1であって、
E1=5+2 E2=....といったような割り振り方はしないということです。

う〜ん、相変わらずわかりづらい説明ですね・・・。

それにしてもＶＢＡ使わないと無理なのかぁ〜。

上の「具体的には、E1=5+1・・・」って書いてあるとこ、間違いです。
これだと４までしか割り当てられていませんね。
重ね重ねｽﾏｿ

治りました!
アクロバットのＰＤＦメーカーとかいうのが悪さしてたっぽいです。
（同じファイル名がありました。）
恐るべしアドビ！

>>155
VBA使わないと無理だろうねぇ。方法が思いつかない。
VBAはまずいの？

>>155

私がExcelでやろうとしていたのは、最終的にはMSAccessの方で作成す
るシステム全体の中の１部分の簡易版なんです。いきなりAccessで取り
組むより、入り組んだ計算式が必要なところはExcelで試しに作ってみ
てからの方がわかりやすいだろうと思いまして・・・。

ですから、まあＶＢＡまで使わねばならないほどのものであれば、直接
ACCESSの方でやった方が早いかな・・・と。

どうもありがとうございました。

>>158の間違い

>>133 さん、
私、122じゃないけど、
ありがとう！

12345678を桁区切り線を引いて|1|2|3|4|5|6|7|8|のように表示させたい時は
書式設定のユーザー定義の所で?"|"?"|"?"|"?"|"?"|"?"|"?"|"?と入力します。

質問�@
最初に上のような設定を定義して、数値を入力しました。(セルの高さはデフォルト)
で、その後に、セルの高さを高くしたら、桁区切り線までは高くならず、上に空きが
できてしまい、体裁が悪いので、セル高を高くすれば自動的に桁区切り線も高くなる
ような設定を教えて欲しい。

質問�A
|1|2|3|4|5|6|7|8|の所は主に見積書や請求書で使っていて、＝数量×単価
の部分なんですが、この部分の値が0だと、桁区切り線自体が消えてしまう
ので、0でも消えない方法を教えて欲しい。
この部分の値が結果として0の時は0は表示させないようにしていますが、
ツール→オプション→表示→ゼロ値のチェック印を入れる入れないに関わらず、
桁区切り線は消えてしまいます。

この桁区切り線に関しては他にもまだ質問があるのですが、とりあえず、
上の２つだけ、何卒、お願い致します。

表示形式は万能ではない。

A1=123456789
B1=MID(A1,1,1)　−＞　1
C1=MID(A1,2,1)　−＞　2
・・・・と順次、1セルに一桁ごとばらして表示させて、
桁区切り線は罫線で作り出すのが良いように思ふ。

>>163
御回答頂いて、有難うございます。
せっかく御回答頂きながら、また質問で申し訳ないのですが、
B1=MID(A1,1,1)　−＞　1
C1=MID(A1,2,1)　−＞　2
の部分が理解できないのですが、どういう意味でしょうか?

>>164
Mid関数のヘルプを見ると幸せになれると思うよ

>>164
シートへのコピペも可

>>164
163じゃないけど。
A1のセルに目的の数字が入っているとしたら、
その数字をMID関数で一文字ずつ取り出すと言うこと。
結果としてはB1〜J1のセルにA1の数字がそれぞれ1つずつ表示される。
MID関数を知らないならヘルプでも読むべし。

訂正します。
数値なので、左から切り出しちゃ拙かった。
A1=123456789
B1=RIGHT(A1,1,1)　と入力して→「1」と表示させる
C1=LEFT(RIGHT(A1,2),1)　→　「2」と表示
D1=LEFT(RIGHT(A1,3),1)　→　「2」と表示

>>162
質問1に関してはセルの高さを変えても文字の大きさが変わらないのと同じで
書式もフォントの大きさによるので当然の現象。
解決法は>>163

質問2はゼロ値のチェックを入れれば解決すると思うんだけど。
（当方Excel2000）

セルひとつに値をひとつ入れるってことでしょ

関数は、連続した数字の値 1234.....を
各セルに、ひとつずつ、わけて表示させようとしてるんでしょ

また間違い。（T_T
A1=123456789
B1=RIGHT(A1,1,1)　と入力して→『9』と表示させる
C1=LEFT(RIGHT(A1,2),1)　→　『8』と表示
D1=LEFT(RIGHT(A1,3),1)　→　『7』と表示

それでもまだ間違い(w

またまた間違い。（T_T　もうだめぽ
A1=123456789
　　・
　　・
G1=LEFT(RIGHT(A1,3),1)　→　『7』と表示
H1=LEFT(RIGHT(A1,2),1)　→　『8』と表示
I1=RIGHT(A1,1,1)　と入力して→『9』と表示させる

桁数が8桁に満たない時のロジックもいれなきゃだわね。

がんばれ！完全版を皆待ってるぞ〜

A1 = 12345678

B1=INT(MOD($A$1,10^8)/10^7)
C1=INT(MOD($A$1,10^7)/10^6)
・
・
・
I1=INT(MOD($A$1,10^2)/10^1)

とかはどうよ？（後学のために、どんどんけなしてくれい）

>>133
ありがとうございました。
早速明日バイト先でやってみます。

>176

I1=INT(MOD($A$1,10^1)/10^0)

だな

A1がターゲット、
B〜Jまでに１桁づつ入れるとして、

=VALUE(MID(TEXT($A$1,"000000000"),COLUMN()-1,1))
として、オプションでゼロ値のチェックを外すと完璧か？

皆さん、大変親切な御回答、有難うございます。
質問1は文字の大きさを変えたことによって高さの部分は解決できました。
ただ、フォント数を大きくするってことは、横幅も長くなってしまうのですが、
文字(＝数値)の縦のみを大きくするってできるんでしょうか?

質問2は何を血迷ったか私の勘違いでした。ゼロ値にチェック印付けたら
簡単に片付きました。

大変有難うございました。

MID関数はこの後、勉強します。

そしてレスは繰り返されるw

163 名前：名無しさん＠そうだ選挙にいこう 投稿日：2002/06/18(火) 23:35
表示形式は万能ではない。

A1=123456789
B1=MID(A1,1,1)　−＞　1
C1=MID(A1,2,1)　−＞　2
・・・・と順次、1セルに一桁ごとばらして表示させて、
桁区切り線は罫線で作り出すのが良いように思ふ。

>>181
御回答頂いて、有難うございます。
せっかく御回答頂きながら、また質問で申し訳ないのですが、
B1=MID(A1,1,1)　−＞　1
C1=MID(A1,2,1)　−＞　2
の部分が理解できないのですが、どういう意味でしょうか?

パソコンが無かった時代は、体力と笑顔で乗り切れましたか？

その前に続きの質問なんですが、もしかして、MID関数を勉強した後なら
解決付くような質問だったらすいません。
質問�B
一番左端の桁の左側の部分だけ(|1|2|3|4|5|6|7|8|の1の左の部分の空白)
他のに比べて、若干、幅が広くなってしまうので、統一したい。
一番左の線はユーザー定義での設定ではなく、単なる罫線にしています。
試しに今、|?"|"?"|"?"|"?"|"?"|"?"|"?"|"?と入力してみましたが、
(?"|"?"|"?"|"?"|"?"|"?"|"?"|"?では無く)駄目でした。

質問�C
|1|2|3|4|5|6|7|8|で言う所の、5|6の縦線、及び2|3の縦線を他の縦線
に比べて太字にしたい。

>>183
その頃は社会人ではありませんでした。
色々御迷惑かけてすいません。
他にも勉強し直して来てから出直します。

>>180、>>184の質問4
どちらもフォントの問題。
｜の太字というフォントがあれば可能だけど、そうでない限りは>>181に戻る。

質問3は意味がわからん。

>>185（多分123）
マヂレスせんでよろし。ただのネタやから。

それはそうと、"|" と "┃"って機種依存文字？
書式で使えないかなぁ？

全体が9桁の場合に、A1の値をバラバラにして表示 :
1桁目 =LEFT(RIGHT(REPT(" ",9) & A1,9),1)　ここが最上位桁
2桁目 =LEFT(RIGHT(REPT(" ",9) & A1,8),1)
3桁目 =LEFT(RIGHT(REPT(" ",9) & A1,7),1)
4桁目 =LEFT(RIGHT(REPT(" ",9) & A1,6),1)
　・
　・
　・
9桁目 =LEFT(RIGHT(REPT(" ",9) & A1,1),1)　ここが1の位
フォントはMS 明朝とか、Pの付かない(プロポーショナルでない)物を使用すること。

>189
おつかれ〜
Rept関数を使ってくるとは思っていなかったよ。

>>187
うちからはどっちも見える（Windows MSPゴシック）
機種依存文字でも特定の（使用する）パソコンで見えるなら問題ないような気もしますが。

今、163さんの163書き込みの内容通りにやってみました。
おぼろげながら、漠然とながらですが、わかってきました。
これから、その後も詳しく読んで色々試してみます。

質問3と4はこの方法なら関係なさそうです。

今、>>174
の書き込みの意味まで理解しました。
残りは明日にします。
本当に有難うございました。

>>123

りゅーべは、機種依存するけどあるよ
?うにコード３３Ａ５
ＭＳ付くフォントなら、表示も印刷もできます

昨日の問題がまだ片付かないうちから悪いのですが、
印刷に関してなんですが、
仮に、一枚のシート内で、例えば、1〜20行目＋50行目を印刷したいと
します。印刷部分の選択の仕方はわかります。
問題は、これを2ページにまたがる印刷では無く、1ページ内に印刷したい
のです。

194はわかりました。すいません。

193さんは建設関係のお仕事の方ですか?

>>195
建設業ではありません

「りゅうべい」で変換できたのね。ＭＳ−ＩＭＥ

>>196
それでも変換できる事は初めて知りました。有難うございます。
「りゅうべ」「りゅーべ」までは試してみたんですが、正確な
発音が「りゅうべい」と言うのは初めて知りました。

ちなみにATOK14では無理ですた。
ATOK14は文字パレットからでないと入力不可みたい。

俗に「りゅうべ」と発音しますが、立米で「りゅうべい」、平米(�u)で
「へいべい」です。

A
1 156,501
2 187,812
3 344,313 ←=A1+A2

を【右クリック】−【セルの書式設定】−【表示形式】で
"###,"とし、千円単位で表示させると

A
1 157
2 188
3 344 ←=A1+A2

となり、表示上ではA1+A2=A3とはなりません。
この和を合わせたく、基準を合計であるA3において、
合計させるセルで最も繰り上げ、繰り下げの境に近いものを(上記例ではA1)
実際繰り上げではあるが切り捨てにして、表示上A1+A2=A3にしたいんです。

なにか、いい関数、いい方法はありませんか？
ご教授お願いします。

　　　　A
1 　　156,501
2 　　187,812
3　　 344,313 ←=A1+A2

を【右クリック】−【セルの書式設定】−【表示形式】で
"###,"とし、千円単位で表示させると

　　　　A
1 　　 157
2 　　 188
3 344 ←=A1+A2

となり、表示上ではA1+A2=A3とはなりません。
この和を合わせたく、基準を合計であるA3において、
合計させるセルで最も繰り上げ、繰り下げの境に近いものを(上記例ではA1)
実際繰り上げではあるが切り捨てにして、表示上A1+A2=A3にしたいんです。

なにか、いい関数、いい方法はありませんか？
ご教授お願いします。

　　　　A
1 　　156,501
2 　　187,812
3　　 344,313 ←=A1+A2

を【右クリック】−【セルの書式設定】−【表示形式】で
"###,"とし、千円単位で表示させると

　　　　A
1 　　 157
2 　　 188
3　　 344 ←=A1+A2

となり、表示上ではA1+A2=A3とはなりません。
この和を合わせたく、基準を合計であるA3において、
合計させるセルで最も繰り上げ、繰り下げの境に近いものを(上記例ではA1)
実際繰り上げではあるが切り捨てにして、表示上A1+A2=A3にしたいんです。

なにか、いい関数、いい方法はありませんか？
ご教授お願いします。

教えてください。
OSはWIN95、エクセル97です。
エクセルのワークシートで作成した資料を
その資料丸ごと、ビットマップ画像として変換したいのですが、
どうすればいいんでしょうか？

オートシェイプやワードアートを沢山入れて作成しており、
なんとかこのままのカラフルな状態を、画像として
会社のマニュアルとして使いたいのです。
お願いします。

>>203
プリントスクリーン

>>202
いまいち、長くてよく理解できないのだが、
A1=ROUNDDOWN(156501,-3)ということ？

>>205
いえ、手動でやるんではなくて、IF関数などを使って
自動で上記で申したようにできないものかと・・・。
四捨五入後の千単位以上の合計が、
一単位の合計を四捨五入して千単位にしたものとは違う場合に
IF関数などを使って自動に・・・、ということです。

>>179
有難うございます。
たった今、179さんのやり方で試してみましたが、新たな問題点が
生じてしまいました。
C1をターゲット(=A1×B1=数量×単価)でやってみたんですが、
結果として、C1の値の「低い位に0」が入ると(例えば40,000とか)
4しか表示されません(ゼロ値チェック外した場合)。
かと言って、ゼロ値チェックをオンにすると「00040000」みたいに
なってしまいます。

176&8さんのやり方はまだ試してないので、これからやってみたいと
思います。

>>176
176さんのも試してみましたが、同様の結果でした。
最初に書いた???のやり方で良しとするしかなさそうですね。
大変お世話になりました。有難うございました。

>>202
画面上A3=A1+A2でいいなら、スマートな回答ではないけど、
A3=IF(ROUND(A1,-3)+ROUND(A2,-3)=ROUND(A1+A2,-3),ROUND(A1+A2,-3),ROUND(A1,-3)+ROUND(A2,-3))

>208

B1 =IF(A1<10^7,"",INT(MOD(A1,10^8)/10^7))
C1 =IF(A1<10^6,"",INT(MOD(A1,10^7)/10^6))
・
・
・
I1 =IF(A1<10^0,"",INT(MOD($A$1,10^1)/10^0))


にしてみるとか・・・

>123さん
188さんのやり方なら、「ゼロ｣と「空白｣が使い分けてあるから、
問題ないはずですよ。
ゼロ値の表示はONでね。

>>209
A3を一単位の四捨五入の値そのままで、A1、A2のどちらか(繰上げ、切捨ての境に近い方。上の例ならA1)の
値を変えて、A1+A2=A3とすることはできませんか？
ノーマルEXCELではできなくても、BVAを使えばできたりするもんなんですかね・・・。

>>202
>A3を一単位の四捨五入の値そのままで、A1、A2のどちらかの値を変え
ると、循環してしまう。他のセルに移らないと無理かな。
VBAなら可能。

>>213
VBAをつかうのにはvisual basicが必要なのですか？
それとも、office単体(officeの追加インストール等)で
いけるんですか？

188さんのやり方試すの忘れてました。
今からやってみます。

すみません。ちょっと教えて下さい。
先日から家でセコセコ作って、初めてユーザフォームからデータを
良い感じに入れられるのを作ったのですが、家のペンIII800MHzマシンでは
一瞬の出来事で分からなかった、データ書き込み時のSheet入れ替え(串刺しにしてます)が
会社のマシンではあからさまにパッ、パッと変わってすごい時間がかかります。
これは何かコツがあるのでしょうか。その他に、何かこれやったら早くなるぞ、って事ありますか？

>>214サン
Excel使用時にAlt+F11を押してみて下さい。VBEが起動します。
ちなみにVBAのヘルプは標準インストールじゃ入らないので、
別途インストールする必要があります。

>>216
ありがとう。

>214
そのままで、できます。

合計の精度を優先したいってことだよね？

新しい表示用のセルを作るなら

B1 = A1-500*AND(MOD(A2,1000)>=MOD(A1,1000),MOD(A1,1000)>=500)
B2 = A2-500*AND(MOD(A1,1000)>MOD(A2,1000),MOD(A2,1000)>=500)
B3 = A1 + A2

こんなんとか・・・

見当違いなことしてたらスマソ

>216
根本的にマシンスペックの壁は大きいけど･･･
Application.ScreenUpdating = False
これを入れておくと画面切り替えが行われないので、多少はスピードアップする。
後は、他のブックやアプリを閉じておくとかか。

>>220
どもです。
明日会社でやってみます。
ブックがいっぱい開いているとダメなのか…。設計ミス…かな（ｗ

やっと思い通りにできました。
ありがとうございました。
ただ、参考までにお聞きしたいのですが、
1.何故、Ｐの付かないフォントを使用しなければならないのですか？
試しに、ＭＳＰ明朝体とかＭＳＰゴシック体でもやってみましたが
特に問題があるようには見えませんが。

2.ゼロ値のチェック印をOFFでも試してみましたが、問題あるようには
見えないんですが(ONでもOFFでも表示は変わらない)、何故ONなのですか？
後々、又は、その他の部分とかもろもろ考えた場合、OFFだと何かしらの
不具合出るってことですか？

簡単にマクロを使ったデーターベースつくりを１から始めたいのですが
まずは参考リンクなどありましたら教えて下さい。

>>222
P付きかP無しか :
以前かかれてた「1の隣の空白が気になる」っていう問題への配慮のつもりでした。
今試しましたが、セル内に1文字だけとあまり気になりませんね


ゼロ値表示について
例えば A1 に 0 を入力、
B1 には式 「 = A1 & "TEST" 」 を、C1 には 式 「 = A1 & "" 」 と入力し、
ゼロ値表示のチェックをオン／オフして試してみてください。

B1とC1は A1の後ろに「文字」をくっ付けた為に、Excelはこれを数値ではなく
文字として解釈しますので、ゼロ値表示の設定に影響を受けません。

>>188の方法でも、同じようにそれぞれの桁の値を文字列として表示しています。
このため表示オプションのゼロ値チェックには関係なく動作しますので、
ゼロ値表示設定はどちらでもOKです。

Excel総合相談所６
http://pc.2ch.net/test/read.cgi/bsoft/1023811906/

エクセルＶＢＡ質問＆研究板
http://pc.2ch.net/test/read.cgi/bsoft/1008219498/

>>224
試してみます。が、明日にします。(すいません。寝不足続きなんで
今日はもう寝ます)
ありがとうございました。

Excel95のシートとブックの保護を解除したいのですが、
PassクラックツールはExcel97以降なので駄目でした。
　他にないのでしょうか？

以下のプロシージャをThis Workbook のコードに入れてしまいました。
どうすれば修正できますか？お願いします。

Private Sub Workbook_Open()

Application.DisplayAlerts = False
Application.Quit

End Sub

>>228
マクロを無効にして開けばいいのでは。

右方向へのオートフィルをかけたいのですが、どこからはじめてもＺ列で終わるオートフィルにするにはどのようなＶＢをかけばよいのでしょうか？

小数点以下を切り捨てにしたいのですが、どのような作業を踏めば
いいのでしょうか？

今の設定だと、どうしても四捨五入になってしまいます。

>>231

TRUNC　ワークシート関数
INT　ワークシート関数
ROUNDDOWNワークシート関数

>>230

Set baka = Selection　'Range("A1:B2")とかの好きな範囲でもいいよ
Set aho = Cells(baka.Row + baka.Rows.Count - 1, "Z")
Range(baka, aho).DataSeries xlRows, xlAutoFill

>>233
ありがとうございます。

質問なのですが
Excellでグラフを書いたときに
グラフの軸に
0.0003を
3.0E-4　
とのような表示ではなく
10の右肩に小さく-4 とつけたいのですが
教えていただけませんか？
既出だったらすみません。

No5 のすれが見れないので。

>>202
VBA方式と関数方式の二種類を考えました｡
数値を千単位に表示については､セルの表示形式から設定｡
A1 = 数値１
A2 = 数値２
A3 = A1+A2

なお、この問題の出口は以下の５通りに分かれます。
1)、無調整でよい
2)、A1を切り上げる
3)、A2を切り上げる
4)、A1を切り下げる
5)、A2を切り下げる

Sub abc()
a = Range("A1").Value
b = Range("A2").Value
c = Range("A3").Value
ra = Application.Round(a, -3)
rb = Application.Round(b, -3)
rc = Application.Round(c, -3)
lal = Abs(a - ra)
lbl = Abs(b - rb)

Select Case rc
Case Is > ra + rb
If lal > lbl Then
Range("A1").Value = Application.RoundUp(a, -3)
Else: Range("A2").Value = Application.RoundUp(b, -3)
End If
Case Is < ra + rb
If lal > lbl Then
Range("A1").Value = Application.RoundDown(a, -3)
Else: Range("A2").Value = Application.RoundDown(b, -3)
End If
End Select
End Sub

調整が必要で 『lal=lbl』 の時は 『A2値』が変更されます
もし、この時『A１値』の変更を優先するなら、『lal>=lbl』として下さい。
これをボタンに登録するか、イベントマクロに直すかで実行させる。

B1 = IF(ROUND(A3,-3)=ROUND(A1,-3)+ROUND(A2,-3),A1,IF(ROUND(A3,-3)>ROUND(A1,-3)+ROUND(A2,-3),IF(ABS(A$1-ROUND(A1,-3))>ABS(A2-ROUND(A$2,-3)),ROUNDUP(A1,-3),A1),IF(ABS(A1-ROUND(A1,-3))>ABS(A2-ROUND(A2,-3)),ROUNDDOWN(A1,-3),A1)))

B2 = IF(ROUND(A3,-3)=ROUND(A1,-3)+ROUND(A2,-3),A2,IF(ROUND(A3,-3)>ROUND(A1,-3)+ROUND(A2,-3),IF(ABS(A$1-ROUND(A1,-3))>ABS(A2-ROUND(A$2,-3)),A2,ROUNDUP(A2,-3)),IF(ABS(A1-ROUND(A1,-3))>ABS(A2-ROUND(A2,-3)),A2,ROUNDDOWN(A2,-3))))

B3 = B1+B2

改行が入ってるかもしれませんが、つながってます。
別セルにコピペする時は、式中のセル参照に気を付けて下さい。
ROUND や ABS の数学（計算）関数中のものと、表示させるための式部分のものでは、相対させ方が違います。
（$）では完全に対応させれませんでした。
セルをもっと使って、VBA方式のように計算部分を式から出したほうが、すっきりするしセルの相対性も保てると思います。

VBA同様、『A2値』変更での調整が優先されます

多分123さんの表示問題もこれも、簡単なのに落とし穴があって表現すると回りくどく感じる。
すなわち、たわいなさそうなモノほど人間の捉え方と機械の進め方との違いがはっきり出やすいのだな、と。
「１＋１＝２」の証明みたいなもん？
どちらもパズルみたいで面白かったけど､
「端数処理の関係で、各欄の計が「合計」と一致しない箇所がある。」の注意書きの効率性？を体感。
こんなレベルじゃない世のプログラマーさん達、ご苦労様です。

勉強になりました。まだ抜けてる所があったら、ご指摘ください。
長文失礼しました。

>>235
グラフの設定では無理。テキストボックスを使うのが定法。
Excel2002とかでは出来たら、ゴメン。

Ａ４横のページ設定の時に、左端に縦にページ打をする方法を
教えて下さい。
ＥＸＣＥＬ２０００でページのイメージは例えば、２−１−４
の様な感じです。
（要するにｅｘｃｅｌで作った表を他の文章や画像と一緒に、
　Ａ４縦に製本したいのですが、現在は一ヶづつ枠を挿入して
　数値を入力てな感じでやっています）

単純な質問でスイマセンが以下のように
１つのセルに２つの単語をずらして入力するにはどうしたらいいのでしょうか？
-----------------------
|あああああ |
|　　　　　　　あああああああ|
-----------------------

>>242
Alt+ENTERでセル内改行が出来る。
あとはスペースでも入れれ。

セル内の改行は、[alt]＋[enter]。
2行目の頭にスペースを適量。

ごめんさい　>243
リロードを怠りますた。

>>236
丁寧に説明してくれてありがとう。
ええ人や・・・。

>>236
VBA方式、試してみました。
すばらしいですね、これ。
VBA始めようと思いました。皆さん、何かお勧めの本はない？

>>243
>>244
有難う御座います。分からなくてずっと悩んでいたんですぅ。

>>240
ありがとうございます。
エクセルでは出来ないんですか残念。
テキストボックス使ってみます。

　セキュリティ版からここに来いと言われてきました！！！
Excelクラックツールを見つけたのですが、ダウソしても使い方が
いまいち分かりませんでした。自分の作ったファイルのシートとブックに
パスワードをかけたのですが、忘れてしまいました。どなたか知力の
ある方、教えてくださいませ。平に平にお願いいたします。


http://www.geocities.co.jp/SiliconValley-Oakland/8051/excelcrack.zip

>>250
パスワード忘れるような馬鹿は死ね。
どうしても復帰したきゃ業者に金払って復帰しろ。
保護したくてパスワードかけてる人も大勢いるのに破る方法なんかを
馬鹿の集まる掲示板でさらせるか。
クラックソフトのリンクを張った時点でお前はどうかしてる

>>250
しかもZIPファイルに...
本物のｳﾞｧｶだ...

昨日は色々と有難うございました。
違う質問なのですが、セルの位置に関係なく、文字や線を入れたい
時って、図形描写押して、線引いたり、テキストボックス使って
入力しますよね。ここまではできるんですが、その線や文字を
消す方法がわからなくて困ってます。
線の長さやテキストボックスの枠をを最小限まで縮めても、
始点と終点を現す四角い印までは消えませんよね。
できれば、その□と言うか、図形描写で入力した、そのものを
消したいのですが、どうすればいいんでしょうか？

>>253
線なしを選択するということ？

選択して、delete　
ってことじゃねーよな？

>>253(多分123さん）
毎日ご苦労様です。
その図形などをアクティブにした状態で、[Delete]。
または右クリックして、｢切り取り｣。

わかりました。できました。
テキストボックスの場合、線のあるところで右栗切取しなくちゃ
駄目だったんですね。枠内でやってました。
有難うございました。

＞257
えっ？　枠内でも枠上でも、構わないっしょ!?

いえ、枠内で切り取り押しても消えませんよ。→テキストボックス
線のあるところにカーソル合わせないと。

あ〜、なるほど。
枠内だとテキスト(内容物)に対する編集モードになってるわけやね。
失礼しました。

積上げ棒グラフを作る際に、元データのワークシートに手を加えずに
数値の大きい順に表示させたいのです。
どうすればできるかお教え下さい。

シートを変更するショートカットキーを教えて。

Ctrl+(PgDn or PgUp)

>263 ぽ。

CTRL+Cでコピーしたセルを
形式を選択して貼り付け→値
の形で貼り付けるショートカットキーってあるんですか？

教えて下さい。

エクセルで画像を貼り付けた場合って最背面に設定してもセル入力はできないのでしょうか？　
例えば日本地図の画像を取り込んで来てエクセルに貼り付けたとして、
画像と重なっているB12のセルに「東京」とか打ち込むようなことがしたいのですが
貼り付け方や設定等で可能なのでしょうか？色々試してみたつもりなのですがどうしても
画像を貼り付けた真下にあるセルへの入力が出来ませんでした。
ご存知の方がいたら教えて下さい。

>265
マクロを組んで、ショートカット登録するとか。
だめ？

>266
ちと違うが、シートの背景にする

>>267
サンクス
それは思いついたんだけど、
結構いろんなbookで使ったりするのよ。
既存の機能として用意されていないのかなと。。。

ん？それともEXECL登録することができるのか？

↑
ん？それともEXECL登録にすることができるのか？
の間違いです、スンマセン

また間違った欝だ。。。
ん？それともEXECLに登録することができるのか？
が正解

>268　
　
即レスどうもです。　
シートの背景にするとは？すいませんやり方がわかりません。
当方97SR2です。（自宅マシンにはエクセルが無いので確認できません）
後、欲を言うと印刷の際には画像を印刷して欲しくないです。
オブジェクトを印刷の対象から外すやり方で背景にした場合も逃げれるでしょうか？

>>273
EXCEL97は知らないけど2000なら　書式＞シート＞背景で挿入できる
背景画像は何も設定しなくても印刷されないから条件にぴったりだね。

>>272
個人用マクロブックに登録するとブックに関係なくマクロが使える
あとはアドインと言う手もある。

あ、ちなみにEXECLじゃなくてEXCELね。

>>272
ツールバーを右クリック＞ユーザー設定＞コマンドタブ＞編集から
値の貼り付けボタンをツールバーにD&Dして追加すれば？

>274

どうもです、月曜会社逝ったらやってみます。

>265
alt-e-s-v-enter
よく使ってます

>266
白地図なら白を透過色にすれば後ろの文字が見えるよ。
マウスで図の後ろのセルの選択はできないかもしれないけど
キーボードや名前ボックスを使えば可能。

>>265
値の貼り付けをキーボードで
http://www2.odn.ne.jp/excel/waza/toolbar.html#SEC21

>278
私の場合、Application-s-v-enterですが、何か。

>281
それが何か？

>>280
そのやり方は知っていたんだけど、
Alt+Vが表示（V）とダブっているのと、Ctrl+Shift+Vで値貼付をしたいから

メニューバー登録したショートカットをCtrl+Shift+Vにする方法はあるのかな？

>>261
まず、別のシートにコピーする。
次に、そのシートで並べ替えする。
最後に、並べ替えの結果でグラフを作って　ｳﾏｰ(ﾟДﾟ)

学校で今年検定を受けるから
家でエクセルをやりたいんですけど
エクセルってどうやって手に入れるんですか？
ホームページにおちてるんですか？
店に売ってるんですか？

氏ね

店で売ってます。
PCを買うと、知らないうちに入っている事もあります。
落ちているもの拾って届けないのは、拾得物横領、といいます。
ホームページで拾った場合は、抽選でお巡りさんとの対談が当ります。

エクセルの画面でセルとかの上の数式バーとかあるところに右よせとか
左よせとかあったのに消えてしまいました。どうすれば表示できるか教えて下さい。

個人用マクロブックとやらで実現できました。
皆さんどうもありがとん。

>>288
そのへん右クリ。
グリグリ弄ってどうにかしてみぃ

>>288
表示＞ツールバー＞書式設定

つまんない質問ですが、助けてください。
オートフィルタがうまく機能しません。
15000行・30列ほどの表からデータを抽出したいのですが、
どうも重たそうで、砂時計が消えてくれません。
ブックを強制終了するしかなく、困っています。
ＯＳ・エクセルはＸＰ、ＣＰＵは１1.4ギガ、メモリは384メガですので、
ハード的には問題なく作動するとおもうのですが・・・。
また、当該ブックは１１メガの大きさです。
どなたか、オートフィルタを軽く作動させる方法を教えてください。

フィルタをいろいろ弄っているのですが、「特定の文字列を含まない」という抽出条件は
設定できないのでしょうか？
ヘルプを死ぬほど見たつもりなんですが、どうも該当の演算子が無くて・・・

>>292
表を分けるしかなさそうだね。それか抽出⇒転記ならフィルタオプション
でやってみたら

>>293
どこ調べたら見つからないんだそれ？ヘルプにかいてあんじゃん
<>"*文字列*"だよ。

11.4GのCPUってでてたんだ・・・

>>>294
フィルタオプションを使用してもでも同じ状態です。
>>>295
1.4の間違いです。

フィルタを使用しなくても良いのですが、
何か良いデータの抽出方法はないでしょうか？
今さらACCESSで作り直すのはムリですし・・・

>>296
データの部分だけ別シートに切り離して抽出は
Query(外部データの取り込み機能)でやったら？
Accessとかわんないけど。

>今さらACCESSで作り直すのはムリですし・・・
技術があるならこういう無駄な抵抗をするくらいなら
ちょっとがんばって作り直したほうが結局早いぞ。

>>294
>どこ調べたら見つからないんだそれ？ヘルプにかいてあんじゃん
><>"*文字列*"だよ。

申し訳ありません出来ました。
「<>*文字列*」もしくは「<>文字列」
が正解ですね。今まで
「<>"文字列"」とか「<> 文字列」とか「not("文字列")」とかやってたのが原因でした。
　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　※半角スペース

いやお恥ずかしい。ヘルプでは文字列を使った場合の否定式例が無かったので・・・

>274
> EXCEL97は知らないけど2000なら　書式＞シート＞背景で挿入できる

今日やってみました。が残念ながら考えていた状態にはなりませんでした。
例えばA4サイズに印刷できる範囲がA1:F70だとした場合、その大きさに
丁度収まる形で背景として表示されてくれるようなイメージで考えてました。
背景となる画像データをピクセルで指定してサイズ調整してから貼り付けてみたのですが
これ！というサイズにあわせるのが難しいです・・・
後、シート倍率を200%にしても背景は2倍にならないんですね
　
背景となる画像サイズが実際の印刷サイズに連動してくれてない（当たり前か）
上に自分で背景に貼り付けてからのサイズ調整も出来ないから難しそうですね。
　
>266
>白地図なら白を透過色にすれば後ろの文字が見えるよ。
>マウスで図の後ろのセルの選択はできないかもしれないけど
>キーボードや名前ボックスを使えば可能。

テキストボックス、名前ボックスではうまくないんです、計算式も打ちこみたいんで。
テキストボックスなら画像を最背面にしておけばいくらでもできるんですが。

実は考えていたのは会社の独自フォームの専用伝票にあうようにセルの幅とか
入力式を調整して打ち出すための方法だったんですが、どのセルにどう打ち込むと
うまく用紙とピッタリ合うのか位置あわせが難しくって。
なんかうまい方法ないのかなぁ・・・

>>299
背景画像をA4サイズに作りかえればいいのでは？

EXCEL単体の機能内で、できるかどうかわからないのですが、
外字作成って、できるんですか？

「株式会社」と言うのを、一字に収めたいのです。
具体的には、一字を上下左右に分けるとして、
左上→株　右上→式
左下→会　右下→社
のようにしたいのです。
EXCEL単体で無理なら、WORDの機能を使っても構いません(ただし、
WORDで作成した外字をEXCELで使えることが前提)。
よろしくお願いします。
もし、どっちでも無理なら、そういうソフトで(できればフリーソフト)
お薦めってありますか?

>>301
㍿
IMEのUnicode文字にはじめから用意されてるけど・・・

>>301
外字じゃないけどワードアート使うってテもある

>>302
気付きませんでした。
ありがとうございました。
今日初めて、IMEパッドを使いました。

ワープロ(シャープ)には㍿があるんですが、
エクセルに無いのは仕様で仕方の無いことかと
あきらめかけていました。

本当に有難うございます。

他のHP等検索したのですが、分からなかったためご質問いたします。

あるブックの複数のシートを、それぞれのシート名をブック名とした複数の
ブックとして保存するマクロはございますか？

例えば、あるブックの中に、sheet1、sheet2、sheet3という
３つのシートがあるとします。
この３つのシートをそれぞれsheet1.xls、sheet2.xls、sheet3.xls
といったブックとして保存したいのですが・・・
手作業で新しいブックへの「シートの移動」→シート名をコピー→名前をつけて保存→
ファイル名をシート名に変更　を3回繰り返せばよいのですが、
マクロを使ってうまく自動化させたいのです。
VBAの知識が全くないので、幼稚なことを聞いてしまっているのかもしれませんが、
どなたかお分かりになる方、お答えくださいますと幸いです。

>>305

一度保存した事あるブックが対象

Sub aaa()
Dim ws As Worksheet

For Each ws In Worksheets
　On Error Resume Next
　ws.Copy
　ActiveWorkbook.SaveAs (ThisWorkbook.Path + "\" + ws.Name)
　ActiveWorkbook.Close
Next ws

End Sub

質問なんですが
例えば､［ツールバー］→［フォーム］にあるチェックボタンのオン､オフ
で(A1)のセルに画像を出したり消したりできますか?
VBAでやろうとしているのですがコードが分かりません｡
何かアドバイスをお願いします｡

>>306 さん
ありがとうございました！！
VBAの内容は理解できていないのですが、ともかくできました！！
これで、今後の作業が数段はかどります。
VBAの勉強をはじめてみたくなりました！

webクエリを使ってオークションの自分の出品物の状況を自動更新で取り込みたい
のですが、出品物のurlは出品するたびに毎回変わるのでそのつど、urlの設定を
しなくては取り込みできないのですが、これをVBAなどで自動的に取り込むには
どういった手順でやればいいのでしょうか？

>>309
無理。どういうＵＲＬになるかはオークションのサーバ側の
コードによって規則が違うからわからん。規則が分かればできるんじゃない

それより素直にVectorとかで監視用のフリーソフトでも落としたほうが早い

セル内に英字5文字(例として(ccc-1))を入力したときに､後ろ2文字(-1)の文字色を白になるようにしたいのですが･･･｡
今の考えでは､セルの表示形式のユーザー定義で何とかならないかなと思ってます｡
でも､形式が分かりません教えてください｡ また､別のやりかたがあれば宜しくお願いしたす｡

173 ：参加するカモさん ：02/03/12 09:46
みんなメルマガ読んでる？
あれ読むとひろゆきの性格よくわかるよ
すっごい陰湿。
根暗。
正直、引くよ。２ｃｈの管理人って、こういう奴なのかって。

176：参加するカモさん ：02/03/12 11:18
ひろゆきの裁判の報告の仕方はよくわかったけど、たまには相手側の言い分も聞いてみたいね
まったく違う状況だったりしてｗ

177：参加するカモさん ：02/03/12 11:42
ひろゆきさんっては自分の都合の良いことしか報告しないし、都合が悪くなると
報告しなくなっちゃうんだよね、、
それにしてもひろゆきさんてば見事に陰湿な文章書くなあ。。

>>309
手順としては、出品物一覧のページ
Yahoo! Auctionsならhttp://user.auctions.yahoo.co.jp/jp/user/自分のID?
をまず取り込んで、そこから出品物のurlを読めばいいと思うけど、
複数ページになったりすると面倒だな。

《マジで緊急事態！！》
http://fifaworldcup.yahoo.com/jp
日本人が投票したとわかるシステムです。
　『スケート以外に投票して下さい。』
現在、日本在住朝鮮人の投票なのか、なぜか日本の投票でもスケートが一位です。
このままだと日本人が世界の敵になります。

『世界が推薦⇒宙返りのジュリアス・アガホワ』
↑これが良いでしょう。だってあの宙返り、かなり凄かったし。

コピーして仲間を増やしてください　
マジやばいです、日本まで一緒にされて"世界から非難されます"

ある人がある商品を何個買った（例、Aさんが○を2個、◆を4個、×を3個、
Bさんが◆を3個、×を1個買う）とかいうのを下の表のようにした時、
Ａ　○　２
Ａ　◆　４
Ａ　×　３
Ｂ　◆　３
Ｂ　×　１
○や◆や×の総合計をうまくあらわす方法ないでしょうか？

>>315
Sumifワークシート関数を使ったら？

>>307
まぁ、自分の手で動かす手順を
「マクロの記録」で記録し、再生して、
VBAのコードを見てください。

ハナシはそれからダ。

>>316
あ、出来た。ありがとう！
SUMIF関数に何で気付かなかったんだ、俺・・・

VBAでアプリ作った後、手でSheet変えられなくしたり、
メニューバーやツールバーを制限したりするのはどうやったら良いのですか？

2000で作成済みのファイルが数十個あり、それを97でも開けるよう保存したいのですが、
手動で一つずつでは大変なので数十のファイルを一括でバージョン変換できるツールとかないですかね？

>>320
Saveasで97形式を引数に指定して、VBAでループさせるだけ。

セル内に日付を入力し､そのファイルを開いた時､日付が当日または過ぎているものにかんしては､セルに色をつけたいのです｡ ［条件付き書式］の［数式が］でやりたいのですが･･･
当日だけなら「=TODAY()」で出来るのですが･･･

guest guest

>>322
なんで[数式が]の方でやりたいのかわからないけど
(A1セルに条件付き書式をつける場合)
=TODAY() > A1
にしてやればいいんでは？

ああ、当日も含むなら
=TODAY() >= A1
だな

>>324
>>325
ありがとうごさいます｡ 勉強になりました｡
やりたい事は､頭に浮かぶのですが､なんせ技術がおっつかない｡日々勉強ですね｡
みなさんオススメのエクセルの本やサイトはありますか｡
(作るものにもよってもかわりますが)
参考にしたいのです｡

excel2000を使っています。背景色を白から黒に変えることはできるでしょうか？
昔のDOSのような画面のほうが見てて疲れないので。方法があれば
お願いします。

質問です。
あるワークシート（データ）のQ列において、
セルの内容が#N/Aの場合は、S列になにも記入しない。
セルの内容が#N/Aで無い場合（数字が入ってます）は、S列に
別のワークシート”更新”の”C数字”セルの値を代入する
というようなことをしたいのですが、どうやったらいいでしょうか？
たとえば、

”データ”ワークシートのQ列において

　　 Q S
11 #N/A
12 192
であったとします。

そして、同じブック内の別のワークシート”更新”において
C
192 2001/12/17
であったとします。

この場合
データワークシートのにおいて

　　 Q S
11 #N/A
12 192　　2001/12/17

となるようにしたいのです。
お願いします。

ﾏｸﾛを適当にいじっていましたところ、
Sub ｣()

End Sub
なる変なﾏｸﾛができてしまいました。
むかついたので、
ALT+F8でﾏｸﾛを開いて削除しようとしたのですが、削除ボタン
が有効になりません。
そこでMSN Visual Basicをひらいて、そのﾏｸﾛのモジュールとやらを解放したり
ﾏｸﾛを消して、上書きした上で、確認してもまだ存在します。
かなりうざいです。
どうやったら消せますか？

表計算する時にあるセルある式を使う時に
普通は「A3＊A4」とか代入して計算しますよね。
ところが自分のパソコンだと列の記号がアルファベット
ではなく数字になっているので計算が出来ないんですが
どうやればなおるのですか？
それともこれはバグですか？

OSはWindows　Me
バージョンはExcel　2000

です

EXCEL2000でWin2000で使用中です

すみません変な質問なんですが
塗りつぶしているセルの数を集計する方法ってありますでしょうか？

□■■■□□□□■■■
□□■■□□□■■□□
□□□□□□□□■■■
↑のようにセル一つ一つを塗りつぶしていて
その塗りつぶしているセルの数を集計したいのですが


□■■■□□□□■■■ 　６
□□■■□□□■■□□ 　４
□□□□□□□□■■■ 　３

↑のような感じにしたいのですが、
もしできるようでしたらよろしくお願いいたします。

Excel 2002を使ってます。
下記のシートからデータを抽出したいと考えていますがvlookup関数を利用
してデータを抽出する方法で悩んでいます。

A列（仮に変数Aとする）B列（仮に変数Bとする）の変数を指定してC列の
データを引っ張ってこようと考えています。
例えばbの2と指定した場合には345とデータの抽出という感じです。
vlookup(変数A,A:C,3,false)
からいい方法が思いつきません。

vlookupを利用して、又は利用しないでいい方法はないでしょうか。

【元データシート】
-｜A｜B｜ C ｜
1｜a｜1｜123｜
2｜a｜2｜456｜
3｜a｜3｜789｜
4｜b｜1｜012｜
5｜b｜2｜345｜
6｜b｜3｜678｜
7｜c｜1｜901｜
8｜c｜2｜234｜
9｜c｜3｜567｜

>>321
ＶＢＡですか・・・スキルないんで簡単にできるツールがないかなと思ったんですが。。
んでもＶＢＡ使えるようになればできるって事がわかっただけでも参考になりました。ありがとう
(´-`).｡oO（ＶＢＡべんきょうしてみるかなぁ・・・）

>>328
=IF(ISNA(Q11),"",INDIRECT("更新!C" & Q11))
こんな感じ？

>>330
計算式を R3C1*R4C1 と書くか、
ツール→オプション→全般の
□ R1C1 参照形式を使用する
のチェックを外す。

>>331
塗りつぶすって色の何かの色が付いてるってこと？
VBAで良ければ
Selection.Interior.ColorIndex = xlNoneがセルに色が付いてないとき
Selection.Interior.ColorIndex = 数値が何か色が付いてるとき
上手くカウントさせればできるかも。

>>332
VLOOKUPとHLOOKUPの組み合わせでできると思う。

ワークシートのみの計算処理における限界を教えてください。

>>337

A列もB列も重複してるのに、どうやってやるの？

>>332

一番手っ取り早いのは、先頭に列を挿入して、=B1&C1
A列は隠す。

後はただのvlookup

>>337
hlookupも考えたのですが指定の仕方が分からず断念しました。

>>340
それが一番現実的ですね。
ただ元データシートはいじれないので、できるならば1ステップ（関数の組み合わせで）
できる方法を考えてます。（もう１シート用意すれば良いのですがデータ量が多いため）
良いやり方はないもんでしょうか。

2chのみなさま

現在EXCEL 2000上でマクロを組んでいるのですが、壁にぶつかってしまい、ご教授お
願いしたく投稿させてもらいます。

例えばセル１Aにhogeという文字があり、このhogeはハイパーリンクされて、
そのリンク先は同じフォルダに存在するバッチファイルを見に行っていると
します。（例えばage.bat名前にします）で、このハイパーリンク状態の文字
"hoge"をクリックすると、リンク先のバッチファイルage.batが実行されて、
そのバッチファイルに書かれている変数%NAME%は、クリックした文字"hoge"を
値として処理を行いたいのです。

例えばバッチファイルに echo %name% と、書いてある場合は変数%name%は
クリックした場所の1Aに書かれている文字"hoge"を使用して、バッチファイル
から生み出されるOutputは”hoge"という文字になります。

理解しにくい文章で申し訳ありませんが、できる限りわかり易く書いたつもり
です。もしこのような動作が可能なのであれば、是非教えてください。

よろしくお願いいたします。m(__)m

shell "c:age.bat うんこ"
みたいにshellで引数付きでbatファイル起動すれば？
bat側でコマンドライン引数をうけとればいいでしょ
echo %1

>>341
見出しをつけてDGETか配列数式
{=INDEX(C1:C10,SUM((A1:A10="a")*(B1:B10=3)*ROW(A1:A10)))}
でも遅い、無理とかいってないで処理用のシート作れ。

excel初心者です．

複数の点があり，各点の距離だけが分かっているとき，その点同士の位置をグラフで表示させることは可能ですか？
よろしくお願いします．

>>338
何の限界なのやら。

>>345
＞複数の点があり，

点はどんな空間にあるんだ? 何次元なんだ?
各点はどんな書式で記述されているんだ?
点の情報が書かれているファイルの形式はどんなものなんだ?

＞各点の距離だけが分かっているとき，

ほんとうに距離だけしか分からないのか?
各点と他のすべての点との間の距離が分かるのか?
その距離は2点間の直線距離なのか?

＞その点同士の位置をグラフで表示させることは可能ですか？

どの視点から表示すべきなんだ?
全ての点を表示すべきなのか、それとも2点だけでよいのか?
( ´-｀).｡ｏＯ(　2点のみの関係という意味での相対位置を表示するなんて無意味だナ　)

>>329
どうですか？

長文の上にわかりにくい説明になってしまいましたが
よろしくお願いします。

　　 Ａ　　Ｂ　　　Ｃ
　　日付　項目　　出金額
１　4/3　消耗品　　1000
２　4/5　人件費　　7000
３　4/13 雑費　　　1200
４　4/20 消耗費　　2000
　　　　　・
　　　　　・
といった表を月毎にSheet12個分に作成しました。
さらに"消耗品"･"雑費"・"人件費"といった項目別のSheetを
作って、4〜3月の１年分の項目別一覧表を作成したいのですが
月別のsheetから振り分けるにはどうしたらよいのでしょうか？
どなたか良い方法をお教えください。
よろしくお願いします。

>>348
私も初心者で自信はありませんが、

=SUMIF(Sheet1!B:B,"消耗品",Sheet1!C:C)
+SUMIF(Sheet2!B:B,"消耗品",Sheet2!C:C)…

ではだめでしょうか？
もっときれいな方法もありそうですが

>>347
お前がどんないじりかたしたか知らないから分かるわけねえだろ
何日もアホみたいに悩んでるんだったら新しいシートにマクロ
以外のシート移せ sheets.move とかでいいだろ
それでも駄目ならさっさとExcel再インストールしろ

画面上ではセル内の文字がちゃんと表示されているのに
印刷すると写りません。列の幅とか変えてみたけど、ダメなんです。
何故なんでしょう・・・。

皆様のお知恵を拝借したいと思い、書き込み致します。
大変重要なファイルに、誤って上書き保存してしまいました。
予備に保存してあったファイルにも同じように上書きしてしまいました（涙）。
上書きする以前のファイルはもう戻ってこないのでしょうか？絶対に不可能ですか？
どのような複雑な手段でも講じますので、ファイルの戻し方をお知りの方は、
ぜひ教えていただきたい！！と思います。
どうぞよろしくお願いいたします！！

すみませんもうひとつ･･･。
エクセルのファイルが勝手に読み取り専用になって、
開いた時に「このファイルは○○によって編集されています･･･」
読取専用で開くどうかのメッセージが出ます。設定した覚えはないんですが･･･。

>>353
そのファイルを既に開いていませんか。
Excelが複数起動してるとか、ＬＡＮで違うＰＣから使用中とか？

>>351
セルの文字は途中までは印刷されるの？

それとも全然印刷されないの？
だとしたら、どんな文字列が入ってるの？

>>348
合計だけでなく、項目別の一覧を作りたいという事なら･･･
1〜12月分を一枚のシートに連結しておき、
オートフィルターを設定して、各項目ごとに絞り込み、
絞り込んだ状態で、新シートへコピペ。

>>349さん
その計算式だと消耗品の合計金額が出てしまいます。
簡単に例をいうと

〜４月のsheet〜
　 Ａ　　Ｂ　　　Ｃ
　　日付　項目　　出金額
１　4/3　消耗品　　1000
２　4/5　人件費　　7000
３　4/13 雑費　　　1200
４　4/20 消耗費　　2000

〜５月のsheet〜　　　　　
　 Ａ　　Ｂ　　　Ｃ
　　日付　項目　　出金額
１　5/3　消耗品　　3000
２　5/5　人件費　　4000
３　5/13 雑費　　　3200
４　5/20 消耗費　　1000
　　　　　
〜消耗品のsheet〜
Ａ　　Ｂ　　　Ｃ
　　日付　項目　　出金額
１　4/3　消耗品　　1000
２　4/20 消耗費　　2000
３　5/3　消耗品　　3000
４　5/20 消耗費　　1000

〜人件費のsheet〜
Ａ　　Ｂ　　　Ｃ
　　日付　項目　　出金額
１　4/5　人件費　　7000
２　5/5　人件費　　4000

〜雑費のsheet〜
Ａ　　Ｂ　　　Ｃ
　　日付　項目　　出金額
１　4/13 雑費　　　1200
２　5/13 雑費　　　3200

という風な感じにしたいのですが･･･。
すいませんがよろしくお願いします

>>356さん
すみません、↑の書き込んでいたので
読んでいませんでした。
できれば1つのsheetに移動しないで
一覧表を作成したいのですが...。
わがままばかりで申し訳ありせん。

>>354
結局そのファイルをコピーしたらそっちは上書きができました。
でも二重に開いた覚えはないんですよ･･･。
>>355
SSL2020用増設ドライブ※注1
TL891/TL881拡張ユニット

という文字がいひとつのセルに入ってます。（結合したセル）
でも印刷したら

SSL2020用増
TL891/TL881拡

までしか入りません。あう〜もう帰らないといけないです。
どうかよろしくお願いします!!

>>358
一つのシートに移動しなくても、同じ事を12回繰り返せば出来ます。

シートに1年分まとめるのは作業用で、作業の手間を軽くするためのものです。
一枚に纏める時は、切り取りでなくコピぺでまとめてください。
そこで、オートフィルターを使った作業項目の数だけ行います。
作業が終了したら、削除します。
分かりにくくて＆言葉が足らなくて済みません。

セル幅が充分でも駄目なんですよねぇ･･･　困ったなぁ。
Excelの場合、」画面上と印刷で少々の差は出易いですが、8文字は大きすぎますね。

う〜ん、結合セルというのが関係してるのか？
何か気付いたら書きこみます。お力になれなくてごめんなさい。

>>358=356さん
いろいろ考えていただき、ありがとうございます。
でもですね、できればそういう作業をせず
月別のsheetに｢消耗品｣を入力すると、そのまま
"消耗品"sheetに日付・金額が反映されるようにしたいのです。
ほんとに贅沢ばかり言って申し訳ありません。

>>348
一ヶ所に入力したのと同時に、条件に合ったもう一つの場所にも自動記入させたい。
という事ですね。
帳簿を纏めるのではなく、帳簿システムを作りたいと･･･

出ていた例プラスα程度の規模なら、ＶＢＡの簡単な知識があれば可能です。
しかし、Excel自体が初心者の様に見うけられますので、
適したフリーソフトでも探したほうが早い様に思います。
ベクター等にいろいろあると思います。

>>３４６さん

３４５です。すいません、わかりにくくて。。。
えっと、

重みつきのグラフ

　　　　５　　　　　　４
　　A――――B――――C
　　|　　　　　　　　　　　|
　　―――――――――
　　　　　　３

っていうのがあったとき、これをマッピングしたいです。
点は3つ以上あります。
お願いします・

ＯＥのアドレスのエクセルシート１、８０００人分から、
配信希望者５００人分のシート２を削除する方法をおしえてください。
フィルタオプシォンでできそうなのですが？

>>364
ヒトのハナシをちゃんと聞け！

EXCEL2000で普通に保存して終了した後、開こうとしたら
「○○○（ファイル名）にアクセスできません。ファイルは読み取り専用であるか、または
読み取り専用の場所にアクセスしようとしています。または、サーバー上に
保存されているドキュメントから応答がありません。」
とエラーがでて開きません。他のPCでも駄目です。
ファイルを右クリックすると、読み取り専用にはなっていませんが、
タブが全般しかありません。通常なら全般、カスタム、概要と３つあるはずですが。
このファイルはもう修復できないのでしょうか。
久々のEXCELのエラーでショック。こんなことがあるようなソフト売るな！！

買うな！

>>365

怪しい目的に思える。スパム発信者か？

>>367

スキャンディスクでもすれ

>>367
フロッピーディスクにそのファイル入ってるって落ちはない？
もしそうならデスクトップにでもデータをコピーしてそっちをひらいてみて。

>>355
実はセルの結合を解除したらちゃんと印刷プレビューに出てくるように
なりました。ただ、その表を「図のコピー」（Shift＋編集で開いて出る方）
で、貼り付けたら、やっぱり例の場所が写りません。しかし、
今度は8文字でなく、2文字くらいの誤差になってました。

質問です

あ い う え
A 15 23 10 69

さ し す せ
B 93 25 14 75

な に ぬ ね
C 26 96 66 12

のような表(英字は品名 ひらがなは項目です)があるとき､
セルA1に品名
セルB1に項目を入力した時に
セルC1に数字が自動的に表示されるようにしたいのですがどのようにすれば･･･
項目が統一されていれば INDEXで出来るのですが
品名によって項目が違うのでちょっと苦戦しています｡
アドバイスお願いします

>>334
=IF(ISNA(Q16),"",INDIRECT("更新!C" & Q16))
という感じでやってみましたところ、
なぜか、
2002/5/17
となるはずなのに、
37168
という数字が書き込まれてしまいます。

しかし、
=IF(ISNA(Q12),"",INDIRECT("更新!C" & Q12))
ではなぜか
2001/12/17
とかかれ成功します。
何が原因でしょうか？
どうかよろしくお願いします

>>374
シリアル値で検索してみてください。
多分答えが見つかるかと。

フリーのテンプレート（マクロ入り）を使用したらツールバーの設定を始め
いろいろ設定が変わってしまいました。インストール時に戻すリセットのような
事はできますかね？数式を入れてもセルにそのまま計算式が出てきて
数式バーの＝を押さないと答えがわからないというなんだか間抜けな状況です。

>>374
S16とS12の両セルで表示形式の違いを探してみる。

>>375,377
THX!
できました。セルの書式設定を日付に設定したら直りました

>>376
ツール＞オプション＞表示タブの「数式」のチェックを外す

>>376
直った！ありがとうございますた。
あーよかった〜

インターネットは使い方次第で個の力を何倍もの力に変えることが可能です。
費用対効果で他の媒体にこれより優れたものは無いでしょう。
長い目で見ても素晴らしいネットワークビジネスの紹介!!
私たちの参加しているネットワークビジネスは 在庫をもつ必要がなく、
製造メーカーの製品を直接広めるものです。
私たちのグループは、製造会社の製品をＨＰとメールという媒体も活用して、
低価格、高品質なよき製品を広めようという集まりです。
流通コストを消費者に還元して製品を広めるというこのシステムは、
何人かの識者が本などで発言しているのを読んでみると、
人間的かつ将来有効なシステムを創っていける可能性の大きいものだと感じます。
実際、有名な大会社AT&T、GM、マスターカードなども採用しだしています。
興味のある人には、ぜひ参加して一緒にやってみましょう。
以下のホームページでの説明も御覧ください。
http://ailove22.fc2web.com/lpd/index.html

最近思うのですが、エクセルをいかにマスターしたところで、
それをメインに仕事ができるわけではないな、と思うようになった。
というか、所詮事務処理レベルでしか仕事で使わないんですよ。
自分では関数もかなり使えるように
なったけど、実際仕事で使うのはせいぜいSUM。あとは入力だけ。
どこも「会社のシステム」が入ってて、それもシンプルな+-*/算くらいしか
使わないし・・・。

マクロができても仕事の募集も見ない・・・。

↑
ゴメン。

セルにURLリストを直接入力するとハイパーリンクになりますが、
文字列になっているものをハイパーリンクにしたいと思っています。
個別に一つ一つのセルを右クリックして設定できるところまでは
分かったのですが、URLリストが複数のセルに存在する場合に
そのセル内のリストを一括でハイパーリンクにする方法を教えて下さい！
例えば、
http://www.yahoo.co.jp
http://www.goo.ne.jp
http://www.infoseek.ne.jp
とあった場合にはすべてそのURL先へリンクさせたいのです。
どなたか設定方法教えて下さい。よろしくお願いします。

>>384
各セルでF2→Enter

>>384
セルを選択→書式→スタイル→スタイル名をハイパーリンク　でどう？

ALT+ENTERを使うなどしてセル内で任意改行した文字列を、
別セルにて参照すると、改行箇所に“・”が入りますが、
それを非表示にする方法はあるんでしょうか？

すいません。>>387です。
会社のPCだと“・”が入ったんですけど、自宅のPCでは消えてました。

OS＆エクセルのバージョンの差でしょうか？
会社；windows98SE + office2000 SR-1の初期型
自宅；windows-xp + office2000 SR-1の最終型

┌──┬───┬───┐
│番号│1　　　 │2　　 　 │
├──┼───┼───┤
│A駅 │10:00 　│10:03　│
├──┼───┼───┤
│B駅 │10:04　 │10:07　│
├──┼───┼───┤
│C駅 │10:06　│10:10　 │
└──┴───┴───┘
のように作った表から、ダイヤグラムを出す方法教えて。

>>389
始発駅であるA駅からの距離（本当は標準到達時間か何か）のデータを入れた列を作り、
散布図。

>>367
ATOKの使用をやめれ。
Excelを立ち上げる。
　↓
ATOKからMS-IMEにでも切り替える。
　↓
ファイルを開く。
　↓
別名で保存する。

それとATOKを通常使う日本語入力からはずす。

>>391　
す、すごいです。言われるとおりATOKを使ってます。
EXCELのファイルはバックアップからなんとか復旧しました。
その後は問題はありませんが、ATOKを使う限り
また同じようなことがあり得るってこと？
ずっとATOKを使ってきたのでいまさらMS-IMEを使うのは・・・。
それにしてもMS製品とATOK相性悪すぎです。
IE使ってても？？なことが多いし。

>>392
私も同じ目に遭いExcelの再インストールまでしたから覚えてた。
ATOKの特定バージョンの問題なのかは不明。ｼﾞｬｽﾄｼｽﾃﾑのFAQにもないし。

関数で４捨５入を５捨６入とかに出来ないんでしょうか？
達人の皆様、教えてくださいm(__)m

>>394
+0.1してから四捨五入とか。

>>395
やっぱり、そうしないとダメなんですかねぇ。

>>396
関数はないので何かしら式を作らにゃならん
>>395 のやり方だとこんな感じ
=ROUND(A1-0.1*SIGN(A1),0)

なるほど！！
ちょっとやって見ます。

累乗根の計算方法がわかりません。
教えていただけませんでしょうか？

たとえば192466057の38乗根はどのように算出すればよいのでしょうか？

>>399
=192466057^38
ただし、このくらいになるとオーバーフローするかもね。

Excel 計算の仕様
有効桁数 ： 15 桁
処理できる正の最大値 ： 9.99999999999999E307

＞399 y=192466057 として累乗根をxとするとy=x^38ということだね？
両辺の常用対数を取るとlog(y)=38*log(x)
x=10^(log(y)/38)で計算できるよ。これでいい？

エクセル初心者です。質問があります。エクセルは2000を使用しています。
セルに変更があったかどうかを調べる関数はありますか？
セルに入力があった場合、となりのセルとかにタイムスタンプを
押したいのです。
とりあえずifで入力セルがゼロ以外ならTODAY関数を使うように
したのですが、そうするとほかのセルが入力されるたびに
全部のタイムスタンプのセルが同じ時刻になってしまいます・・・。
何かいい手がありましたらお願いします。

エクセルで質問です。
エクセルを使っていて、何を押したのか覚えていないんですが、急に
A列のところが数字の1,2という風に変わってしまいました。
どうしたら治りますか？
教えてください。

>>404
「ツール」−「オプション」−「全般｣−「R1C1参照形式…」のチェックを外す。

=192466057^(1/38)
だろ

すみません教えて下さい。

今、エクセルでデータの入力をしているのですが、
表に数字を左から右に向かって１０個ほど入力をして
一行が終了なのですが、
一行終わるごとに、次の行の先頭にカーソルを持ってくるのが
とても面倒なのです。
一行終わったらエンターキーで次の行の先頭にカーソルが
来るような方法はないのでしょうか。

何か方法があると思いつつ、シートの保護等を組み合わせてやってみているのですが、
なかなかうまくいきません。
エクセル初心者なのでどなたか救いの手をお願いします。

>>407
「TAB｣キーで横移動を繰り返し、１行終わったら「ENTER」キー
最初にTABキーを打ったセルの一つ下のセルに移動します。

追加　こんな手もあります。
入力範囲を選択してから入力をする。
「enter｣は範囲内を下に移動、一番下まで行ったら次の列の一行目に移動
「TAB]は範囲内を右に移動、一番右まで行ったら次の行の一番左に移動
「SHIFT]＋「ENTER」で上に移動、「SHIFT」＋「TAB」で左に移動　になる
これで選択範囲内をぐるぐる回ります。

ただし、入力を間違えた時に入れ直してると、選択範囲はチャラになって
しまい、範囲選択し直しになるのが難点。

Excel2000です。

ツール/マクロ　で表示される マクロ名ダイアログで一覧に一部のマクロ(Sub)が表示されません。

どないしょ。

VBAはなんやかんやで(空のシートと併せて)1Mバイト超えてます。やっぱりどっか壊れたのかしらん。

>>410
Private は表示されんが

Excel使ってみようと思って、Excelって言えばやっぱグラフかと
グラフウィザードで作ってみたのですが、どうも下の項目軸名を
変える方法が分かりません。
ウィザードで作ったせいか、今は1、2、3…と数字が振られていますが、
これを6月1日、2日、3日…としたいのですが、どこを触れば良いのでしょうか。
お願いします。

エクセル２０００を使っていますが、１つのファイルだけ、
シート見出しの領域（シートタブと水平スクロールバーのある領域です）
の高さが普通より少し短いのです。

そのファイルだけは、シートタブに書かれたシート名の
文字（全角文字）の上がほんの少し切れます。
水平スクロールバーも、高さがほんの少し短いです。

新規エクセルファイルでも、他のファイルでもそれは
起こりません。
直し方はあるでしょうか？

表の数式と値のうち、数式は消さないで値だけ消すには
どうしたらいいんですか？

過去ログを見る余裕がないので外出だったらすいません。
行と列がある一覧表で縦と横の項目を見て交差する
値を返す方法があったら教えてください。
今はvlookupとhslookupを併用してやってますが
もっと簡単な方法があったら教えてください。

>>414
数式の元になっているセルを消す。

>>412
グラフウイザードの2/4の「名前」のとこをかえてみれ
>>414
編集→ジャンプ→セル選択→定数→OK→消去
>>415
index関数

フォームにコマンドボタンを配置して、それを押すと
docとかtxtが開くようにしたいのですが、openステー
トメントを使うのでしょうか？

よくわからなかったので教えてください。

>>418
どう開きたいのか知らんが Word ファイルであれば Open では開けん (困難)
テキストファイルなら開けるし Word は Excel VBA で制御できるが
いろいろなファイルを開くなら ShellExecute を使うのがいいかと
下は Excel 2000 での例

Private Const SW_SHOWNORMAL = 1

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpVerb As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub CommandButton1_Click()

ShellExecute FindWindow("ThunderDFrame", Caption), "open", "C:\My Documents\test.doc", vbNullString, Application.Path, SW_SHOWNORMAL

End Sub

>>414
なんか最近、某ﾒｰﾘﾝｸﾞﾘｽﾄでそっくりの質問見たな。
変な消し方、流行ってんのか?

>>419
開くことができました。ありがとうございました。

ついでに教えてもらいたいのですが、
>Private Const SW_SHOWNORMAL = 1
から
>Private Sub CommandButton1_Click()
までの間のどういう宣言なのですか？
勉強不足ですいません。

>>421
Win32API。検索してみろ

416.417
どうも！

>>403
で質問したものです。やはりセルにタイムスタンプを押すなどの作業は
マクロを使わないと無理なのでしょうか？

>>396
>=ROUND(A1-0.1*SIGN(A1),0)
なんで =ROUND(A1+0.1,0) じゃいけないんだ？
と考えてたけど、わかった。 A1<0 の時も五捨六入になるようにしてるんだ。

一晩寝て起きるまでわからなかった……まだまだだ、オレ

>>424
うん。マクロを使わないと無理だよ。
あとは「ツール」「ブックの共有」機能で履歴を記録することかな
詳しい方法はヘルプとかWEBしらべてね
でもこの方法は気をつけないとファイルサイズがすぐ大きくなるんで
あんまりおすすめできないんだよもん。

棒グラフで項目と凡例を同じにできますか？

>>427
意味が判りませんが…
もっと具体的にどうぞ。

エクセル2000とMS-IME2000使用しています。
エクセルを立ち上げたときに自動で入力モードをローマ字ひらがなモード
にする方法を教えてください。

>>428
すいません。
項目がビールであれば、凡例にもビールという表示をさせたいのです。
系列と項目の名前をいっしょにできるのでしょうか？

>>427さん
グラフの項目と系列の関係（行と列のいずれかがそれぞれ対応）を
ゴッチャにしている様な気がするのですが。
そんな事はわかっていて、あえてしたいという事なら…

話しから系列数と項目数は同数と思われますので、例えば
　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ
1　ビール　　　5
2　ワイン　　　　　　　3
3　冷酒　　　　　　　　　　　　　7
見たいな感じで、データ表の対角線上にのみデータを入力。
グラフ種類は「積み上げ縦棒」を選択する。

こんな風では如何でしょうか？　はずしてたらゴメン。

>>431　追加訂正

　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ
1　　　　　　ビール　　ワイン　　冷酒
2　ビール　　　5
3　ワイン　　　　　　　3
4　冷酒　　　　　　　　　　　　　7

にすると、凡例の名前付けが簡便でした。

>>431
回答ありがとうございます。
わかってはいますが、あえてそうしたいのです。
教えていただいた方法だと項目がずれてしまうのです。

>>433
私もやってみましたが、ずれませんけど。　>432も試してみましたか？
もし、凡例の順序を変更したいという問題なら、
棒の一つを選択して、右クリック。
「データ系列の書式設定｣−「系列の順序」をいじってみて下さい。

>>434
回答ありがとうございます。432もためしてみましたが、ビールと冷酒の項目名が棒グラフの真下にならないのです。

>グラフ種類は「積み上げ縦棒」を選択する。
選んでますか？

>>436
おぉ！成功しました。
ありがとうございます。

>>436
普通のデータ表から432のようなデータ表にするにはどのような方法がありますか？
簡単な方法があれば教えてください

おめでとうございました。
次からは>>1 にもあるように
『・質問する人は可能な限り具体的に書くこと。』が早道です。
ネットの向うのＰＣ画面は見えません。
あと、人の話はよく聞いてください。

>>438の簡単な方法ですが、沢山あるなら、マクロ(VBA)を組みます。
そこまでするほど多くなければ、
　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　　Ｅ
1　　　　　　　　　　ビール　　ワイン　　冷酒
2　ビール　5
3　ワイン　3
4　冷酒　　7
の様にもとの表の（or右）に項目を足しておき、
C2＝IF(MATCH($A2,$C$1:$F$1,0)=MATCH(C$1,$A$2:$A$5,0),$B2,"")
「C2:E4」範囲にオートフィル。
（検索関数苦手なのでもっとシンプルな式もあると。誰か代案ﾖﾛｼｸ。）

少しなら、地道にやるのが結局早い！？
では頑張ってください。

439は、うまい方法だと思うけど、
C2に入れる式は
=IF(C$1=$A2,$B2,"")
でいいんじゃない。

OfficeXPのExcelでセルにハイパーリンクを張ったのですが、
Enterキーでリンク先に飛んでくれません。バルーンヘルプでは
「ダブルクリックしてください」なんて出てるし。
なんか別のショートカットキーがあるんでしょうか？

>>440
あっ、ホントだ。コピーしても対応できてますね。
私、何考えてだんだろ？これなら、シンプルですぐに入れれますね。
どうもでした。

>>439 440
ありがとうございます

たとえば、A1に　TEST[3000]　と記入されているときに
下記のワイルドカードを使うようなイメージで
MsgBoxに　TEST と表示させることをしたいと思います。

Sub tad()
MsgBox Replace(Cells(1, 1), "[*]", "")
End Sub


MsgBox Replace(Cells(1, 1), "[" & * & "]", "")
MsgBox Replace(Cells(1, 1), "[" & \* & "]", "")

どれも駄目でした・・・

マクロでワイルドカードを使った置換はどのように行うのでしょうか？
どなたか教えてください。

Sub abc()
　　a = Range("A1").Replace("[*]", "")
　　MsgBox Range("A1")
End Sub

>>445


ありがとうございます。
目的の動作を実現することができました。


しかしながら、A1の値を変更せずに
マクロの中でのみ、置換された値を使いたいので
>>445を下のように
変更したのですが、すごく冗長な気がします。

これって、わかりやすくスマートに書くことってできますか？
どなたか、お願いします。

Sub abc()

a1_original = Range("A1").Value

tmp = Range("A1").Replace("[*]", "")
a1_tmp = Range("A1")

Range("A1") = a1_original

MsgBox a1_tmp

End Sub

100％積上げ横棒グラフを作成したときに区分線を部分的に入たいのですが
可能でしょうか？「区分線の書式設定」では全ての区分線の設定は可能ですが、
１本ずつの設定ができないのです。

>411
Publicが表示されない。なんでだろー。

>>448
新しい Book にコピペないしインポートして正常かどうか調べてみれ

>>447
不可能。図形描画から線を加えれ。

>>446　根本的には差がないがdiet
Sub abc()
　　a1 = Range("A1")
　　tmp = Range("A1").Replace("[*]", "")
　　MsgBox Range("A1")
　　Range("A1") = a1
End Sub

朝餉になってしもうた。失敗（汗ｗ

別のブックを参照しているセルを、別シートにコピーすると
なぜか何も入っていないセルに「0」が勝手に入りやがるので嫌なのです。
これを空白のままに出来ないのでしょうか。

あと、この「0」を消そうとVBAで
Range("A1").Value = ""
とか
Range("A1").Formura = "=B1"
とかやると、「配列の一部を変更できません」ってなるのですがなぜでしょうか。

セルの幅は一定でしかいられないのですか？

例えばＡ行の幅について、
A1からa9を幅10、A10からA20までは20とかできませんか？

>>454
セルを結合したら？

Excel 2000 の質問
ファイルをダブルクリックして開くとき
既存の Excel じゃなく新たに Excel を起動して開くには？

こんな感じでどうだろ？

Private Sub Workbook_Open()
　　Dim MyPath As String
　　
　　MyPath = ActiveWorkbook.Path
　　ActiveWorkbook.SaveAs Filename:=MyPath & "\(" & Format(Now, "yyyymmddhhnn") & ")" & Right(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 14)
End Sub

あ、↑は開くファイル名の頭に(200207051246)book1.xlsみたいに14文字のなにかしらが必要です。

初めて質問させていただきます。
索引作成で困っておりまして、人の名前を五十音順に並べ替えるのですが、
下記のような並びにしたいのです。

直井　ナオイ　　　　　直井　ナオイ
中井　ナカイ　　　　　中井　ナカイ
永井　ナガイ　　　　　中尾　ナカオ
中尾　ナカオ　　　　　中田　ナカタ
長尾　ナガオ　　　　　永井　ナガイ
中田　ナカタ　　　　　長尾　ナガオ
永田　ナガタ　　　　　永田　ナガタ
南木　ナギ　　　　　　南木　ナギ

左側はエクセルの五十音で並べ替えられるのですが、
右側のように濁音が後ろに来るようにするにはどうしたら
よいのでしょうか。
よろしくご指導おねがいたします

初めてココに質問します。どなたかご教授していただければ…と思うのですが(^^;
Excel2002で以下のマクロを記録しました。

00 Sub 置換え()
01 Sheets("Template").Select
02 Columns("C:C").EntireColumn.AutoFit 'セルの自動幅調節
03 Columns("C:C").Select
04 Selection.Replace What:=":", Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False '文字「:」の置換え
05 Selection.Replace What:="|", Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False '文字「|」の置換え
06 Sheets("Sheet1").Select
99 End Sub


03でｃ列を選択して、04,05でｃ列の中に「|」「:」が在れば「_」に置換えする、というものです。
これをVBAのモジュールに組み込んで使おうとしたのですが、
03が黄色く選択され、「RangeクラスのSelectメソッドが失敗しました」と表示されます。
ヘルプも参照してみたのですが、よくわからない書き方の上に、毎回違う項目が開くので
何を信じれば良いのかサッパリです(TwT) (HelpFile壊れてる?)
それとも記録したマクロをそのまま組み込んで使うのはアマイ考えなのでしょうか…

>>459
C列に「=LEFT(B1,2)」をオートフィルさせて
データ＞並べ替えで最優先されるキーをC列、2番目に優先されるキーをB列に設定して並べ替えすれば？

途中で書き込みボタン押してしまいました(汗)ああ、スペースずれてる…

エラー文を読むと、c列を選択するのが上手く動作していないのかな、と
読めるのですが、如何なものでしょうか。
VBAを使うのは初めてですので(というより何かを組む事自体が10年振り)
よろしくご指導の程、お願い致します

あ、456はEXCEL97みたいな別ウィンドウで開く動作を期待してたわけか・・・
>>456　無理

>>463
そういうことっす(Excel つーより Win 関する質問でした)
自己解決したが実行するアプリで DDE を使わず引数を "%1" とすればできることがﾜｶﾀ
回答すまんかった m(_ _)m

>>460
別におかしかねーぞ
とりあえず Select しねーでやってみれ

With ThisWorkbook.Sheets("Template").Columns(3)
.Replace ":", "_", xlPart, xlByRows, False, False, False
.Replace "|", "_", xlPart, xlByRows, False, False, False
End With

マクロのコードを変更するマクロって作れますか？
Excelのヘルプにそんな記述があったような気がするのですが・・・。
参考になるサイトか本ってなにかない？

>459

B2に全角でフリガナがあるとして、C2に

=IF(ISERROR(SEARCH("ﾞ",ASC(B2),1)),0,1)

C列B列の順に優先を付けてソート

>>466
CodeModule オブジェクトを調べい

スクロールバーをドラッグしたとき、
実際に表示領域が更新されるのはマウスボタンを離したときになりますが、
これをドラッグに伴ってリアルタイムで表示領域を更新させるにはどうすればよいのでしょうか？

数年前の週刊アスキーにレジストリをいじる方法が載っていた記憶があるのですが…

>>453なのですが…。どなたか…。

>>470
見た目がいやなだけだったら、表示形式を変えるとか。
データが入ってないことにするのはできるのかな。

>>470

>>470
その状況が再現できないよ。
「0」も出てこないし、「配列〜なんたら」もならない。

　えクセルを使い始めて２ヶ月ほどになるものです、どなたかに助けて頂きたく
　カキコしました。
　　仕事である地区について、ある事項（１）が起こったときにその年度を入力するという
作業をしています。ただしその事項は過去に起こったことがあるばあい、過去の年度が優先
されないといけません。この地区の件数が何千件もあるため過去の年度を調べるのにいちいち
書類を見返しています。
　そこでいっそのこと過去年度のデータを入力しておいて、過去に１がすでにおこっている
場合地区と１を入力すると過去年度が自動的に抽出されるような機能はないでしょうか。
ながながとすいませんが、次のような感じでやってます。

　　たとえば下のようなシートにＡ（地区）Ｂ（１）Ｃ（年度）
　ある地区について、１という事項があったときにその年度を入力
　ルックアップ機能などは使えないのでしょうか。
　　
　　　A 　　　　　　　 B 　　　　　　C
1 ﾄｳｷｮｳ１−２ 　　　１　　　　　　　１４　　

2　ｵｵｻｶ３−１　　　　　１　　　　　　　１３

3　ﾌｸｵｶ７−３　　　　　１　　　　　　　１１

4

.

>>471、>>473
驚いた事に今、別のBook開いてやってみたら再現しませんでした。
VBA内でなったので、それも試したけどなりませんでした。
おかしいな…。
とりあえず>>471サンのおっしゃる通り、表示させない方法試してみます。
ありがとう。

ある地区においてある事象が発生した最も古い年度を知りたい。
ただし、これまでに一度も発生していない場合は空白とする。
ということ？

地区と事象の数が限られてるなら、ルックアップとか何とかいわずに
地区ごと事象ごとに表を作り上げてしまえば済むのではないか。で、
あとは空白の地区・事象について、発生するたびに入力してゆく。

アクセスのほうが向いてるのではないか、と思わなくもない。

>>476
件数にもよるが、やりたい事はシンプルなので
Excelで充分だと思われ。
初心者らしいし、ここでACCESSに手を出しても混乱するだけでは？

Ａ列に地区名、行１に事象名（１だけでなくずらっーと）
クロスしたところに、年度を入れる。

地区と事象の数が多いなら、検索関数を勉強するとよし。

レスありがとうございます。
過去に事象が起こっていない場合は、年度に１４を入れます。

＜４７６　たしかにそうなのですが、Ｂの列にはいるのは１だけではなく
　　　　　１から４０ぐらいまでの事象でありその中で特に１につい
　　　　　ては年度の入力が必要とされます、せつめいぶそくですいません。

＜４７６　たしかにそうなのですが、Ｂの列にはいるのは１だけではなく
　　　　　１から４０ぐらいまでの事象でありその中で特に１につい
　　　　　ては年度の入力が必要とされます、せつめいぶそくですいません。
これってもしかして、<477宛かと思うので再レス（違ってたらゴメン

　　　A 　　　　　　　 B 　　　　　　C
1　　　　　　　　　　事象1　　　　　事象2　　・・・・・・・　事象40
2　ﾄｳｷｮｳ１−２ 　　　１４　　　　　１３　　　　　　　　　　　　１３　　
3　ｵｵｻｶ３−１　　　　１３　　　　　１４　　　　　　　　　　　　１２
4　ﾌｸｵｶ７−３　　　　１１　　　　　１４　　　　　　　　　　　　１４
5

年度の入力が必要ない事象は空欄にしておけば良い。

遅くに申し訳ございません。

1つのブックに60くらいのシートがあります。
それぞれのシートには斡旋品の支出状況が出来ていて、
今までいちいちそのシートを開いて、在庫を確認していました。
出来れば、在庫を別シートにまとめて表示させる方法はないでしょうか？

また、個々のシートの斡旋品支出状況も、一つ一つ手で式を入れてました。
例えば、斡旋品Aに対し、
　　｜　　　A　　｜　　B　　｜　　C　　｜　　D
----------------------------------------
1　｜　日にち　｜　入庫　｜　出庫　｜　在庫
----------------------------------------
2　｜　7/1　　　｜　　500　｜　　　　　｜　　500
----------------------------------------
3　｜　7/2　　　｜　　　　　｜　　100　｜　　400
----------------------------------------
4　｜　7/3　　　｜　　　　　｜　　150　｜　　250
----------------------------------------
と、こんなかんじで作成しています。
（同じように斡旋品B、斡旋品Cというのもあり、別シートで管理しています。）
7月2日だったらD2-C3、7月3日だったらD3-C4となっています。
手で式を入れ直すのではなく、B列・C列に値を入れたら
自動的にD列に在庫を入れる方法を教えて下さい。

>>480
このサンプルで言えば、
D2=D1+B2-C2と入れた後、オートフィルで下段にドラッグしていけば
いいのでは？

訂正
D3=D2+B3-C3

>>480

>>482の方法で各斡旋品の在庫を求め、
各在庫をコピーして、
新たに作成した在庫一覧シートにペーストリンク。

>>475

ある程度のセル範囲を配列として別シートから参照している場合
（範囲を選択してペーストリンクした場合）に、
>>453のようなエラーメッセージが出たと思う。

>>481、>>482、>>483
どうもありがとうございました。
早速やって見ます。

エクセル２０００です。ＯＳはウインドウズ９８で、
サーバー（ドメイン）に接続しています。
ある日突然、特定のユーザがドメインに接続するときだけ、
エクセルが強制終了するようになりました。
プログラム自体が開きません。
ローカルでログインしたり、他のユーザがドメインにログインすると
普通に使用できます。何が原因でそうなってしまったか、
さっぱりわかりません。どうしたらいいでしょうか？

コピーソフトを不正使用してません？

Excel2000使ってます。

bmpデータを管理するのに、表を作ってます。
でも、ファイル名だけではなんなので図の挿入でbmpの絵を貼ってるんですが、
元のbmpデータが変更されたときに、いちいち再度図の挿入をするのが面倒です。
bmpを入れておくフォルダはいつも一緒だし、
元bmpを上書きしてるので、bmpのファイル名は、変わりません。
うまく元データにリンクできれば、bmpを上書きするだけで
表を触らずしていつも最新になってる、と言うようなことが出来ると思うのですが、
やり方がわかりません。

どの様にすればよいのでしょう?

>>465
雄男牡おおおおおおおおお(T-T)
ありがとうございます。無事動きました。
ちとExcelの本買って勉強してきますね。

たいていのことはかみにいのればなをります

>449
デベロッパーの「ソースコード管理アドイン」の問題みたい。
ソースコード管理下に入るとそれをXLSファイルのどこかに覚えこんでいるようだ。
エクスポート/インポートしてやんないとソースコード管理から外せないんですけど、
他にほうほう無いかしら？

教えてください。
いま、エクセルで作業をしているのですが、データ量が多いのです。
ファイルサイズが30メガとか50メガになってしまいます。
それを簡単な関数とかで推計していると、固まってしまいます。

原因は
・ファイルサイズが大きすぎ
・パソコンが非力すぎ（ノートパソコンでセレﾛﾝ500、メモリ192メガ）
のどちらが主因でしょうか？ちなみにエクセルで扱うファイルの上限は存在するのか、
またパソコンの性能がアップすれば、固まらない確率が大きくなるのか教えてください。

よろしくお願いします。

・Windows98se
・Excel97SR-1　(office97)

VBAをしています。
あるフォルダ内のファイル名を全て取得したいんですが何か方法はないでしょうか？
なるべくならAPIを使わない方法があれば幸いなのですが。

何卒宜しく御願い致します。

>>492
固まってるんじゃなくて考えてるんだろう。
一日ぐらい考えてるかもな、だからずっと、ほっとけ。
なぜ、VB,C,C++でやらないのか？

エクセル９７です。
関数を「０２２２」と打つと「２２２」としか表示されないのですが
「０２２２」と表示させる方法を教えて頂けないでしょうか？

>>493
aFile = Application.GetOpenFilename
でダイアログを出して、ファイルのあるディレクトリを取得できる。

dir(aFile(i))　　　　　------（i）は１から数える変数（for i = 1 to xxxとかで使う）
でそのディレクトリのファイルをひとつづつ取ってこれる。

>>493

カレントフォルダのファイル名取得プロシージャですが、
どうでしょうか？（サブフォルダは検索してません）

Sub aaa()

Dim bbb As String
bbb = Dir("*.*")

Do While bbb <> ""

i = i + 1
Cells(i, 1).Value = bbb
bbb = Dir()

Loop

End Sub

>>495
セルの書式設定で文字列

>>496 >>497
ありがとーございます。

>>497さんの方式でやってみます。

ようやく解決できそうです。
有難う御座いました。
http://www.cartoonnetwork.co.jp/g-card/images/thumbnail/00atom_s.gif

唐突に５００げっちゅ！

初めて質問します。
Win98SEでExcel97を使ってます。


挿入→オブジェクト→ファイルから　でデジカメ写真（元は50KB程度のjpg)を
貼り付けたらファイルサイズが2MBくらいになりました。
この写真（オブジェクト？）を元のjpgに戻すことはできますか？

挿入→図→ファイルから　で貼り付けたほうがファイルサイズを軽くできる
らしいので、作り変えたいのですが元々の写真がもう残っていません。

なので、一旦jpgに戻しもう一度貼り直そうと考えています。
それとも他にその写真（オブジェクト？）をそのままに軽くできる方法はありますか？

よろしくお願いします。

写真を「コピー」して、ペイントなり画像ソフトなりで「貼り付け」すれば、
また保存しなおせます。

EXCELでは ALT-Enter を押せば、セル内で改行できますよね。
このようなセルを含んだデータを、プログラムで出力させたいのです。

プログラムで扱うため、XLS ファイルではなく、CSV ファイルに
して、それをEXCELで読み込もうと思います。

改行の記述は、たとえば \n にしておき、
EXCELで \n を改行コードに置換し、
その結果、セル内での改行が表現できればいいんだけど、
どうやっていいのかわかりません。

何かいい方法はありますでしょうか？

>>503
改行はChar(10)だから、置換すれば良し。

>>503
Excelでセル内改行したシートをCSVで出力してみました?

>>504
「編集」→「置換」で出るダイアログから、それをできるですか？
abc\ndef の \n を Char(10) に置換してみたら abcChar(10)def になってしまった（汗）

>>505
もちろんやってみましたよ。
「使えねえなあ」と思いましたです。
505さん、その結果を見て何かいい方法を思いついたですか？？？

>>505
ごめん。これで良かったんですね。
改行コードが CR+LF じゃなくて、LF のみで出力しないといけなかったですね。
505さんサンクス。
504さんもヒントを呉れてサンクスです。

21 名前：　 投稿日：2002/06/03(月) 22:01
始めて裁判見てきたけど、ひろゆきって２chでの中傷について、「おいらは第三者だもんねー」ってな主張してたけど、裁判官に一喝されてた。
どうもひろゆきが企業の中傷を禁止してないことと、削除依頼を自分の意思で突っぱねたことで、当事者と判断されてる感じ。
でも裁判官も他の掲示板と２chは同じには扱っていないみたいだったから、他の掲示板には影響ないと思うけど。
それにしても、ひろゆきの顔はイベント板のタイトルに使ってる写真と全然違うのに驚いた。
あの写真は「勝負写真」なんだろうけど、あれじゃ詐欺だよ。
実物は深海魚みたいな顔だった。

if関数ででた値を合計するにはどういう式が必要になりますか？

昔々、BASICを使っていたexcel素人です。
最近VBAを覚えようと思い、勉強しているのですが、わからないことがあるので教えてください。
�@DO〜LOOPやFOR〜next等のコマンドで、ループの途中である条件を満たした場合に、
　そのループを終了させ、次に行くためにはどうしたらいいでしょうか？
�ADOやIFのあとに続く条件文で、andやorはつかえますか？
�Bある条件を満たした場合に、途中でSUB（サブルーチン？）を終了させたいときは
どうしたらいいですか？（ENDSUBが二つ以上は置けないようなので）
�Cむかしのbasicのように、行番号がないので、飛ばしたり、戻したりに苦労してます。
いい方法はありますか？
くだらない質問だとは思うのですが、よろしくお願いします。

if関数ででた値を合計するにはどういう式が必要になりますか？

例えば [ ENT.2002.07.09.xls ] の様にファイル名に日付を含んでいる
エクセルファイルで、ファイル名から日付をとってきて自動的に
日付を入力するようなマクロを作りたいのですが、可能でしょうか？

今は完全に手入力でやっているのですが、面倒な上に間違いやすくて・・・
識者の方、よろしくお願いします

すいません。過去ログ見てたらありました。
�@、�Bはexitを使うんですね。
いるか君の言ってることはよくわからないので・・・。
�A、�Cもお願いします。

>>513
2．Yes
4．ラベルをつけるかな？
Basicをやったこと無いので行番号がどんな風に使われるかはっきりとはわかりませんが。

>514
レスありがとうございます。
「VBA ラベル」で検索したらラベルの意味もわかりました。

質問というか疑問なんだけど
みんなは五捨五入とか使わないの？
品質管理やってるひととか

if関数ででた値を合計するにはどういう式が必要になりますか？

>>516
五捨五入というのを初めて聞きました。
調べてみたんですが、へぇ、そんな計算が必要になるんだ、といった感じです。
検索では測量関連で利用されているようなページが見つかりました。

>>517
SUM関数

元利金等元金均等返済を求めるExcelの
マクロを作りたいのですがおながいしま〜す。

自動保存の設定を解除したいのですが、チェックを外しても
一旦ファイルを閉じると設定が復活してしまいます。
完全に解除する方法を教えて下さい。

>>519
ヘルプの財務関数

印刷プレビューをすると、
エクセルのスタックエラー
モジュール：KERNEL32．DLL　アドレス：0167：bff724c1
ってメッセージが出てきてexcelが落ちるんだけど
どうしたらいいのでしょう？

人のトラブルなんで
細かい情報が欠落してます、すいません
MSのニュースグループのログも見てみたんですが
同様の質問が上がってましたが
レスがなかった様です。

>>522
基本的にウィンドウズのトラブル関係であることが多い（みたい）
たくさんヒットしたけど、たくさんありすぎて探したくない(w
あとはよろしく

http://www.google.co.jp/search?hl=ja&inlang=ja&ie=Shift_JIS&q=kernel32.dll+Excel+%83X%83%5E%83b%83N%83G%83%89%81%5B&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

プログラム板から案内されてきました。

VBAでのプログラミングに関して質問です。
ユーザーフォームにリストボックスを置き、
そこにN行3列のリスト(ファイルから読み込み)を表示させ
ユーザーに選択させる処理があるのですが
それぞれの列の幅を自由に設定する方法はないのでしょうか。

あるいは3列のデータを結合した文字列を作り
それを表示させることも考えたのですが
「リストボックス上の表示と、選択時に入るListbox.Valueの値を
　違うものにする」
ことができるかどうかが分かりません。
ちなみに、リストボックスをシート上の列に関連付ける方法は
処理時間がかかるので駄目でした。

>>524
ColumnWidthsを使うべし。
詳しくはヘルプを

>>523
レスどうもです。
書いてませんでしたが
既に同じキーワードでググってました。
大体BBSやQ&Aサイト等に引っ掛かるんですが
excelとカーネルの話は関連性が無いというか
別項の話なんですよ。
色んな角度からググってたんですが
同様の質問＆事項は見つかりませんでした。
唯一見つかったのが
MSのニュースグループのログでした。

http://www.lix.ne.jp/~winfaq/bbs9x/139.html
「Re^2: Word起動時にフリーズ」辺りが参考になりません？

ここには「NECのサポートは再セットアップしかない」とあるみたいですけど。

聞いていなかったけど、Excelの再インストールくらいはしたの？

カーネルの話なら、それ以外の情報もうｐした方がよくない？
OSとか入れてるアプリとか、ね？

OFF2000: Troubleshooting Office Kernel32.dll Errors Under Windows 98 (Q218853)
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q218853

>>510
余談。未だに行番号も使えたりする（藁
Function hoge()
10 Dim I As Long
20 I = 0
30 Debug.Print I
40 I = I + 10
50 If I <= 2000 Then GoTo 30
End Function

MicrosoftってBasicのことを溺愛してるよな⊂ ´⌒つ゜ー゜)つ

エクセル９７で作成した一覧表を印刷すると１Ｐ、
これを、フロッピーに入れエクセル２０００のＰＣで印刷すると、
２Ｐになって出てくる。プリンタ、ＯＳはいっしょ。
９７では印刷範囲に入っているものが、２０００では、ずれてしまう。
これはどうしてでしょうか？また、ワードでもこういう現象はあるので
しょうか？毎回こうだと困るので、どなたかおしえてください！！！

excel2000を使っています
vbaでキー操作のやり方がわかりません
一つ下にとかshift押しながら一つ下にとかの方法です
helpは見たのですがみつかりませんでした
教えてください

>>532
SendKeys "{down}"
SendKeys "+{down}"
など、SendKeysステートメントで検索してちょ。

Excel全然使った事ないんですが…（パソコンは使えます）質問なんですが。
今バイト先で二万件近く縦に並んだ単語があるんですが
これのだぶっている分を集計しろ。とのパソコンを使ってるとは思えない作業があるんですが
エクセルでだぶっている単語（例えば ビデオ ビデオ類 ビデオ屋）
などのビデオという単語で選びだしその分を集計したりできる機能はないのでしょうか？
何卒ご教授下さい。

>>534
オートフィルでは

エクセル97です。
再計算を決まった回数だけ繰り返すにはどうしたらいいでしょうか。
具体的には

　　　　　　　Ａ　　　　　　　　
1　　　　=2*RAND()
2　　　　=RAND()
3　　　　=if(A1>A2,1,0)
4　　　　=A3+A4

のような表を作り、10万回程度計算を繰り返し
（F9を10万回手動で押せばいいのでしょうが、それを自動で）
A1>A2となる確率を求めたいのです。

>>488
漏れの場合はシートを２つ使てるよ。
片方に空のイメージを貼付けておいて

Sheets("フォーム").Cells(y1, x1)　=　i
Sheets("フォーム").Cells(y2, x2) = Sheets("テーブル").Cells(i, x0)
Sheets("フォーム").Image1.Picture = LoadPicture(Sheets("テーブル").Cells(i, x0))
こんなカンジ
ちなみに i はスクロールバーで変化させて、変化があったらマクロ実行。

オートフィルとはどこにあるのでしょうか？

データ→フィルタ→オートフィルタにチェック
▼クリックで（オプション...）選択→抽出条件の指定

>>536
こんな感じでどうよ。
A1に =2*RAND(), A2に =RAND()が入ってるものとして、
A5に試行回数、A4に条件に一致した数を入れる。
（RAND()で生成される乱数がどんなものかについては、漏れはしらんよ）

Sub test()
 &nbs; &nbs;Dim l As Long
 &nbs; &nbs;Range("A4:A5").Clear
 &nbs; &nbs;For l = 1 To 100000
 &nbs; &nbs; &nbs; &nbs;Calculate
 &nbs; &nbs; &nbs; &nbs;If Range("A1") > Range("A2") Then
 &nbs; &nbs; &nbs; &nbs; &nbs; &nbs;Range("A4").Value = Range("A4").Value + 1
 &nbs; &nbs; &nbs; &nbs;End If
 &nbs; &nbs; &nbs; &nbs;Range("A5").Value = l
 &nbs; &nbs;Next
End Sub

うあ、ミスった
Sub test()
 &nbps; &nbps;Dim l As Long
 &nbps; &nbps;Range("A4:A5").Clear
 &nbps; &nbps;For l = 1 To 100000
 &nbps; &nbps; &nbps; &nbps;Calculate
 &nbps; &nbps; &nbps; &nbps;If Range("A1") > Range("A2") Then
 &nbps; &nbps; &nbps; &nbps; &nbps; &nbps;Range("A4").Value = Range("A4").Value + 1
 &nbps; &nbps; &nbps; &nbps;End If
 &nbps; &nbps; &nbps; &nbps;Range("A5").Value = l
 &nbps; &nbps;Next
End Sub

さらにミスってるし。宇津田氏...
Sub test()
    Dim l As Long
    Range("A4:A5").Clear
    For l = 1 To 1000
        Calculate
        If Range("A1") > Range("A2") Then
            Range("A4").Value = Range("A4").Value + 1
        End If
        Range("A5").Value = l
    Next
End Sub

D1からD10までのセルに、ランダムに数値が入っているとして、
その数値に対し昇順で順位をつけ、それをE1からE10に入れたい
のですが、VBAでやる必要があります。
どうかご教授ください。

>>542
536はセルの式だけで実現したいんだと思うよ。
字下げは &の後なんて打つの？

>>544
>536はセルの式だけで実現したいんだと思うよ。
じゃ、漏れにはわからんよ。

>字下げは &の後なんて打つの？
＆ｎｂｐｓ；を半角で、半角スペース１個。

>>545
&nbps; ありがと
教えてもらっておいて悪いけど
Range("A5").Value = l
は要らないんじゃない？

あれ？

初心者板で練習しちきまーす。

って、＆ｎｂｓｐ；だってば＞漏れ(o_ _)o
>> Range("A5").Value = l
要らないっちゃ要らない。
試行回数いじったときにあった方が便利かなと思ったからつけただけ。

皆さんありがとうございます。
VBAは今まで一度も扱ったことがなくて、
Dim l As Long　からして理解不能なのですが
（ヘルプを見て唸りましたが　 lをLong変数として定義する？）
>>542を元にヘルプをみながら試行錯誤した結果

Sub test()
　Do Until Range("a5") = 100000
　　Calculate
　Loop
End Sub

　　　　　　　Ａ　　　　　　　　
1　　　　=2*RAND()
2　　　　=RAND()
3　　　　=if(A1>A2,1,0)
4　　　　=A3+A4
5　　　　=1+A5

で、とりあえずは用を足せそうです。
（おそらく無駄だらけで低速なのでしょうが）
表が大きくなって高速化が必要になったときにもう一度542の文を理解してみようと思います。
ありがとうございました。
　　

  どれどれ
入れるのならForNextの後、壱拾萬回のループの中は
ちょとキツイ。
カウンターの増える様子を表現したいなら別だども。

マクロの含まれた別のブックをVBAから開こうとすると、どうしても
「マクロが含まれています…」とかいうダイアログが出るのですが、
そんなのは分かってるので、このダイアログを出さずに開く方法はないっすか？

このVBA以外から開こうとすると、一応ダイアログは出したいです。
素人も使うもので…

Sub Test()
    Dim i, c as Long
    c = 0
    For i = 1 to 100000
        If Rnd * 2 > Rnd Then
            c = c + 1
        End If
    Next
    Cells(1,1) = c
End Sub

>>543
こゆこと？
Sub test()
    Range("D1:D10").Copy Range("E1")
    Range("E1:E10").Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin
End Sub

>>551
うちの環境だと
Workbooks.Open "ファイル名"
で、マクロ入りのファイルでも警告なしにひらいちゃうけど、なんかいじったかな...？

Win2kSP2 + Excel2000
Win2kSP2 + Excel97
Win98SE + Excel97

自動保存の設定を解除したいのですが、チェックを外しても
一旦ファイルを閉じると設定が復活してしまいます。
完全に解除する方法を教えて下さい。

＊表１＊
┌─┬─┬─┬─┬─┬─┬─┬─┐
│Ａ │１ │５ │９ │４ │７ │６ │２ │
├─┼─┼─┼─┼─┼─┼─┼─┤
│Ｂ │３ │２ │７ │３ │４ │１ │０ │
└─┴─┴─┴─┴─┴─┴─┴─┘
Ｂにある数字がＡにある場合、Ａの数字はそのままで抽出する表２を作る。

＊表２＊
┌─┬─┬─┬─┬─┬─┬─┬─┐
│Ａ │　 │５ │９ │　 │７ │６ │　 │
├─┼─┼─┼─┼─┼─┼─┼─┤
│Ｂ │ 　│２ │７ │　 │４ │１ │　 │
└─┴─┴─┴─┴─┴─┴─┴─┘

抽出した表を空白を作らずに、左に詰める表３を作る。

＊表３＊
┌─┬─┬─┬─┬─┬─┬─┬─┐
│Ａ │５ │９ │７ │　 │　 │　 │　 │
├─┼─┼─┼─┼─┼─┼─┼─┤
│Ｂ │５ │７ │４ │　 │　 │　 │　 │
└─┴─┴─┴─┴─┴─┴─┴─┘

表1に数字を入力した時点で表3までが作成されるようにしたいです。
ご聡明なこのスレの方々、どうかよろしくお願いします。

>>555
ツール→アドイン

>>556
表3でAの6とBの1が抜けておりました。
＊表３＊
┌─┬─┬─┬─┬─┬─┬─┬─┐
│Ａ │５ │９ │７ │６ │　 │　 │　 │
├─┼─┼─┼─┼─┼─┼─┼─┤
│Ｂ │５ │７ │４ │１ │　 │　 │　 │
└─┴─┴─┴─┴─┴─┴─┴─┘
正しくはこれです。

>>556　ルールが良くわからないのだが、下の表現であってる？

＞Ｂにある数字がＡにある場合、Ａの数字はそのままで抽出する表２を作る。
Ｂにある数字がＡにある場合、Ａからその数字を消す。
Ｂにある数字がＡにない場合、Ｂからその数字を消す。

あ！あと、希望はどっち？（読解力なくてｽﾏｿ）
イ：入力してある表１を表３に置き換えたい。
ロ：表１を入力したら、表２と表３を自動的に作りたい。

>553
レスありがとうございます。
説明不足ですいません。
具体的に言うと以下のような感じです。
Ｄ列｜Ｅ列
　１｜５
１５｜３
３３｜１
２５｜２
　８｜４　
Ｄ列の数字の大きい順に順位付けをし、それをＥ列に投入したいのです。
手動でやると、Ｃ列に1、２，３と番号をふって、Ｄ列でソートし、Ｅ列
に番号をふり、Ｃ列でソートするという操作で、簡単にいくのですが・・・。
やっぱり、力技がいいのでしょうか？

>>561
割り込みですが、一般機能の関数で云うと
E1=RANK(D1,D$1:D$5,0)　これをE5までオートフィルの方が簡単です。

VBAなら、
Sub test()
For i = 1 To 5
　　Cells(i, 5).Formula = Application.Rank(Cells(i, 4), Range("D$1:D$5"), 0)
Next i
End Sub

>>559
レスありがとう〜！つか漏れの表現力の悪さに鬱氏

表の２では、
B行の中の数字がA行にあれば、そのB行の列を抽出して表の２を作る
というふうにしたい。
ex：
表１中のB行の2は、A行にあるから、表２でB行の2の列(A行5、B行2)を表示する。

逆にいえば、B行の数字がA行になければ、表２では表示しない
というふうにしたい。
ex：
表1中のB行の3、0は、A行にないから、表2ではB行3、0の列を表示しない

表3では、
表2の列を左に詰めて表示したいです。

あらかじめ表1、2、3を作っておいて、表1に入力があったら、表2、3に表示される
という感じにしたいです。（なので、表１に入力がなかったら表2、3にも表示がない）

…>>559さん、おわかりいただけたでしょうか？
わかんねぇよｳﾞｫｹ!!っていわれたらあきらめます(´･ω･`)

>>556　理解した。一般機能で作ってみました。
表１の範囲　Ａ１：Ｈ２
表２の範囲　Ａ４：Ｈ５
表３の範囲　Ａ７：Ｈ８　とします。

Ｂ４ =IF(B5="","",B1)　　　　　　　　　　　　←これをＨ４までオートフィル
Ｂ５ =IF(ISNA(MATCH(B2,$B1:$H1,0)),"",B2)　←これをＨ５までオートフィル

Ｂ７ =MID(CONCATENATE($B4,$C4,$D4,$E4,$F4,$G4,$H4),1,1)
Ｂ８ =MID(CONCATENATE($B5,$C5,$D5,$E5,$F5,$G5,$H5),1,1)
　　　　　　　　　　　　　　　　　　　　　　　　　　　＝
　　　　　　　　　　　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　Ｈ８までは、ここの数を順次　2、3、4…と変えた式とする。
　　　　　　　　（column関数を使えば、コピーしても自動的に対応させれます。）

まどろっこしい表現になったが、宜しく。

やっぱり、ずれた。
＝
↑　は　後から２番目の「1」の部分を指してます。

>>559
できますた！！すげー！
何をやっているかよく分からないけど、今からじっくり考えてみます！
ありがとうございました！

教えてください。
をVBAを使って表１を表２のように移動させたいと思っています
表１
┌─┬─┬─┬─┐
│１ │２ │３ │４ │
├─┼─┼─┼─┤
│５ │６ │７ │８ │
├─┼─┼─┼─┤
│９ │10│11│12│
├─┼─┼─┼─┤
│13│14│15│16│
├─┼─┼─┼─┤
│17│18│19│20│
├─┼─┼─┼─┤
│21│22│23│24│
└─┴─┴─┴─┘
表２
┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐
│１ │２ │３ │４ │５ │６ │７ │８ │９ │10│11│12│13│
├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤
│14│15│16│17│18│19│20│21│22│23│24│25│26│
└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘
のようにしたいと思っています。
実際は８列１６３８４行のデータを３２行づつ上記のように横に並べて
256列を１行として最後まで並べ替えたいのですがどのようにすればよいのか教えてください。
５日間ほど本を読んだりネットを調べたりしたのですがどうにもなりませんでした。
お願いします。

567ですが、
ExcelのVerは2000です。
OSはWin2Kです。

>>567
Sub AutoMove()
　Const myLimit As Long = 13
　Dim myRange As Range
　Dim x As Long
　Dim y As Long
　'Worksheets(2).Cells.Clear
　y = 1
　For Each myRange In Selection
　　With Worksheets(2)
　　　If x >= myLimit Then
　　　　x = 1
　　　　y = y + 1
　　　Else
　　　　x = x + 1
　　　End If
　　　.Cells(y, x) = myRange
　　End With
　Next myRange
End Sub

これでいい？
選択範囲をシート２に移動させるんだけど・・・。
ちなみに折り返しはmyLimitで変えられる。

>>562
ありがとう！！Rankというコマンド？（ステートメント？）があったのですね。
553さんもありがとう。
ところで、もうひとつお願いします。
ラベルを入れると、全部左端によってしまうのですが、これはどうにもならないのでしょうか？

>>570
コマンドじゃなくて、関数。
それもワークシート関数。WorksheetFunctionのヘルプ参照

ラベルは左端に寄るもの。あきらめる？使わない？ご自由にどうぞ

>>567
なんかサンプルの方がむつかしいような....
ってことで、8列16384行から256列512行へ。

Sub test()
    Dim i As Long
    For i = 1 To 16384
        Range(Cells(i, 1), Cells(i, 8)).Cut Cells(1 + ((i - 1) \ 32), 1 + 8 * ((i - 1) Mod 32))
    Next i
End Sub

569　ありがとうございます。

572 ありがとうございます。
非常にわかりやすくシンプルで的確なVBAでただただ感心しました。
本当にありがとうございます。

だいたい意味がわかりました。こんな考え方があるなんて、思いませんでした。やっぱすげぇ！
ただ、入力される数字が2桁ではうまく行かないのは、(このやり方では)どうしようもないでしょうか？

これをヒントにして、またいじくってみます。

教えてください。
A-1〜A-16,B-1〜B-16,C-1〜C-16の計48教室があります。
生徒は1教室で15人います。
ピポットテーブルを使用してテストの合計額を表示しました。
しかし、ピッポトテーブルの並べ替えを行っても
A-1
A-10
A-11
A-12
A-13
A-14
A-15
A-16
A-2
A-3
となってしまいます。
A-1
A-2
A-3
|
|
A-9
A-10
A-11
とするにはどうすればよろしいのでしょうか？
質問の意味がわかってもらえるかな

A-01とかでは駄目なの？

SendKeys "{down}"
この後に一つ下に行ったセルを選択してコピー張り付けしたいんですけど
どうやってselectするんですか
教えてください

offset を覚えたほうが、今後の為じゃないか？

>>577
SendKeys "{down}", True
Selection.Copy
何をしたいのかわかりづらいが、こういうこと？

>>578
同意。
ただ、具体的に何をしたいかわかんないからアドバイスのしようも....

>532
相対的な位置のセルの表し方

Range("B2").Cells(2,3)　
　→　"B2"を基準セル(1,1）とし、2行目＆3列目にあたるセル『D3』が指定される
Range(Range("B2"),Cells(5,6))
　→　"B2"を最初のセル(1,1）とし、5行目＆6列目にあたるセル『F5』を最後のセル
　　　とする範囲『B2:F5』が指定される
ActiveCell.Offset( 1,-3).Select
　→　アクティブセルの1行下＆3列左のセルが選択される

↑の名前は
×577
○578　の間違いでした。

えっと、教えて欲しいのですが、
94.0や88.0等と言ったような（〜.0）数字を書いた時に
前（上下）に書いた数字と微妙に位置がずれてしまうんです。
何とか同じ感覚にそろえることはできませんか？

それから、グラフを書いた時にそれに線をひきたいんです。
そのグラフは決まった点を通るのではなくだいたいの位置感覚でひいていきたいんです。
どうやってひくんですか。教えてください。

>>538
どういう風になってるかわからないけど、プロポーショナルフォントをやめたら？

グラフの目盛り線の設定が気に入らないってこと？
自分で直線のオートシェープで書けば？

エクセルで作った文書の文字カウントをしたいのですが
ワードにコピペだと、いらないスペースとかが混じってしまうようです。
一般的にはどういうふうにするものでしょう？

>>584
えっとですね、つまり 59.3
59.0
と言ったように微妙ですが、上の方に書いたやつとは位置が異なるんです。
これは、他の数字で終わるときは大丈夫なんですが
（〜.0）のときだけはずれるんです。どうにかなりませんか？

それは自分でひくんですか？
それはいったいどうやるんですか？お願いします。

>>583
数字の位置ズレについて、設定について出来るだけ具体的にお知らせ下さい。
もっと具体的なアドバイスが来ると思います。
*セルの書式設定の中の
「表示形式」「配置ー横位置」「フォント名」
*他にも設定しているモノなどあれば。

グラフについて
図形描写を使った、直線の引き方はご存知ですか？
解るらなければ、「図形」や「図形、作成」などをキーワードにしてヘルプを
見てください。　

>587
え〜っと…すべて標準？なんですが
何も設定は変えていないんです。

グラフはさっそく調べてみます。

だから,フォント名は？
まるきっりの標準そのままでは「59.0」と入力したら、
「59」としか表示されないでしょう？
具体的に回答しぃ。キレルデェ。

>>587
はい。59って言うふうに表示されましたよ？
だからそれを、〜.0と言ったような感じにしたいのです。
ちなみにＭＳＰゴシックです。
お願いします。

←.0
.00　みたいなアイコンがありますから、
目的のセルを選択した上でそのアイコンををクリックしてください。

583さんの状況はズレルって言うんじゃなくて、「59」としか表示されないって言うんです。
584さんも自分も、小数点の位置が微妙にずれるとか違う状況を想像してました。
ネット上では相手のパソコンは見えません。
自分にとっては当たり前の事でも、具体的に表現しましょう。
回答もしやすいく、より適切なアドバイスが貰えますよ。

>>583
右クリック
セルの書式設定
表示形式−数値
小数点以下の桁数を１にする。
でどないや？

>>583
プロポーショナルフォントを使わない。
若しくは、プロポーショナルの意味を理解した上で使う

581の3番目の例、間違いに気付いた。
今、ケータイなので後で書き直す。

ずれたセルを右クリック。
セルの書式設定→表示形式のユーザー定義
→0.00_となっていたら_(アンダースコアっていうの？)を削除。

↑
>>583
でした。
もしくはユーザー設定で
0.0
と入れてしまう。

>>593 >>595
583の「微妙に位置がずれてしまうんです」つのは
「はい。59って言うふうに表示されましたよ？
だからそれを、〜.0と言ったような感じにしたい」事らしいので、
そんなデリケートな問題ではないらしい。（ｗ

エクセルを完璧にマスターしたくて（上級以上の知識）、
学校に通おうと思っていますが（当方大阪）、
お勧めのところとかご存知なら教えて下さい。
なお、「そんなの独学でもできるやろ」のようでしたら、
どのような勉強方法が良いがアドバイス宜しくお願いします

＞エクセルを完璧にマスター
MicrosoftのExcelを開発してる部署に就職とか？

>>594
ＰＣで落ちついて見たら、間違ってませんでした。（多分…）
お騒がせしますた。

みなさんありがとうございました。
たくさんの人から意見もらいました。ありがとうございました。
おかげでなんとかできました。

Excel2000で散布図を描こうとしています。
データポイントを折れ線でつないだ散布図にした場合、
数百ものデータがあるとマーカーが近接しすぎて見辛くなってしまいます。
そこでマーカーを数個おきに表示させたいのですが、やり方が見つかりません。
間引いたデータを新たに用意しなくちゃならないのかな？

>>602
たぶん、間引きしたデータを用意しなきゃならないと思う。

その前に、マーカーの設定を変えるのは試したか？
サイズを最小の2ポイントまで下げると、だいぶスッキリする…
他にもスタイルを小さなものに変える。
背景の色を「なし」にするなど、も効果があると思う。

でもやはり、間引かなきゃならないという時は、折れ線に本来のラインを保持させる為には
1、もとのデータ系列はそのままで、「マーカー無し」にする。
2、間引いたデータ系列を追加し、こちらは「線無し」で、マーカーの色をもとデータ
　の線の色に合わせる。
がいいかと思う。

直接の回答は出来ないのに、余計なお世話ばかりｽﾏｿ。

マーカーを間引くのできるよ。
今どきExcel4.0のマクロだと、↓こんな感じ。当然VBでもできるけどオレはこちらの方が得意なので。

一つ置きにマーカー
=SELECT("S1")
=PATTERNS(,,,,2,,,,)全マーカー削除

=FOR("i",1,30,2)１番目から３０番目まで一つ置きに
=SELECT("S1P"&i,TRUE)
=PATTERNS(,,,,0,1,1,2,FALSE)マーカー設定
=NEXT()

=RETURN()


まあ、>>603の言うようにマーカーなしにするか、線なしにする方が手っ取り早いとは思うけど。

>602

グラフを選択した状態で実行

Sub Macro1()
Dim Sobj As Series, Pobj As Point, Pos As Integer
Application.ScreenUpdating = False
On Error Resume Next 'データが飛んでたらエラーになるので一応
With ActiveChart
For Each Sobj In .SeriesCollection
Pos = 0
For Each Pobj In Sobj.Points
Pos = Pos + 1
'３つおきの場合
If Pos Mod 3 <> 1 Then _
Pobj.MarkerStyle = xlMarkerStyleNone
Next
Next
End With
Application.ScreenUpdating = True
End Sub

XL97で試験ずみです。

↑　二つおきの間違い。３つに１つプロットでした（１，４、７...でプロット）

表が書かれた紙にエクセルを使って、文字だけ印刷したいのですが
セルの高さと幅をmm単位で設定できますか？
ワードの罫線を使った表だと、mm単位で指定できるのですが、
沢山罫線使うとワードが落ちるのとデータが多いのでエクセルを利用
して印刷とデータ管理をいっしょにしたいので。
verはどちらも2000です。
よろしくお願いします。

>>607
XL C Kit 〜セルサイズ〜
http://www.vector.co.jp/soft/win95/business/se220317.html

こういう折れ線グラフって作れるのでしょうか？ウィザード使っても作れなくて、困ってます。

データがこう並んでます。
番号　％
１　　５０
２　　８０
３　　８０
４　１００
５　　７０


　０　　　　　５０　　　　１００％
　｜−−−−−−−−−−−−−−
１｜
　｜
２｜
　｜
３｜
　｜
４｜
　｜
５｜

>607

労力考えたら、専用ソフトを使った方が無難。

ttp://www.silverstar.co.jp/ichiawase/ichiawase.htm

>>609
散布図を作ってから、X軸とy軸を交換。
または、データの番号と％の位置を入れ換えてから散布図を作る。
その後、軸の書式でy軸の上下を反転。

くわしいやり方は、前に同じ質問に答えたことがあるので、このスレか前スレを探してみてくれ。

>>608 >>610
返答ありがとうございます。
教えてもらったソフトを試してみたいと思います。
Excelだと仕様で印刷した際にずれは仕方がないとかかれていました。
できなかった場合は専用ソフトも考えてみます。

予め書かれた表は4mmの項目が沢山あり、フォントサイズ6で考えてい
ますが、できるところまでやってみます。

>>611
回答していただきありがとうございます。じゃあ、既出のを探してみます！　と思っていたのですが・・・。
２ｃｈ検索が立ち上がらない・・・。

>>609, >>613
思い返すと、過去の回答では結構面倒なことを書いたので、単に、
データの番号と％の位置を入れ換えてから散布図を作り、軸の書式でy軸の上下を反転。
とした方がいいかも。

>>611
ありがとうございます。私もそうかなぁ・・・と思ってやってみたのですが、
表を行と列を入れ替えてグラフを作っても、入れ替える前と同じグラフになるんですよねぇ・・・。
どうしてでしょう？(T.T)

>>615
ウィザードでちゃんと散布図を選んでる？

>>611
選んでますよぉ・・・。(T.T)
どうやれば、ｘ軸が％になってくれるのでしょう？

ちょっとうまい言い方が見つからないのですが、エクセル同士での
差し込み印刷みたいなものはできないのでしょうか？
いろいろ検索してもVBAを使うのしか見つからなくて・・
具体的に言うとシート1にあるデータをシート2にある
印刷フォーマットに乗っけて連続して印刷するということ
なのですが・・
エクセルで、印刷する土台のフォーマットを作ってしまったので
ワードの差し込み印刷は使えなくて。

>>618
Vlookupを使うのはダメ？

>>618

そんなんVBAとVLOOKUPで簡単。
Sheet1のA2〜AxxまでVLOOKUPのキー
Sheet2のA1に連続入力

Sub Test()
Dim r As Range, myRange As Range
　Set myRange = Sheet1.Range("A2:A" & _
　　　Sheet1.Range("A65536").End(xlUp).Row)
　For Each r In myRange
　　　Sheet2.Range("A1") = r
　　' Sheet2.PrintOut
　Next r
End Sub

>>603,4,5
返答ありがとうございます。仕事で返事が遅れました。
やはりデータを間引いてやる必要があるようですね。
LINUXでデータ取りしているので、そちらでデータを作り直そうかと思ってたのですが、
せっかくですので604さんや605さんのマクロも勉強させてもらいます。

追記
これまでマーカー無しのグラフだったけど、如何せんモノクロで印刷するので
10種くらいデータが重なると、太さとか線種を変えても見づらいんですよね。
プレゼン資料を作るのはまだ慣れてないので、全てが勉強になります。

>>619,620
お二方ともアドバイスありがとうございます。
それで、シート1を参照して印刷したいのは一カ所ではなく
三カ所ほどあるのですが、その場合は
Dim r As Range, myRange As Range
　Set myRange = Sheet1.Range("A2:A" & _
　　　Sheet1.Range("A65536").End(xlUp).Row)
　For Each r In myRange
　　　Sheet2.Range("A1") = r
の部分の行、列の部分を適宜変えて、３つ続けて書けば
いいのでしょうか？

エクセルでＸＹ平面に
Ｘ＝ｆ(a,b）　Ｙ＝g(a,b)　の二変数関数を書く方法も教えてください。

Ｘ＝〔（αａ＋βｂ）／（γａ＋βｂ） −１〕×１０＾４
Ｙも同じ形でギリシャ文字の数字が違います
a,ｂは整数で任意です。　a､bには関連はないです
a､ｂはｘｙ平面のグラフにでてくるひつようはないんです。
が書きたい形です　

あ、ギリシャ文字は定数です

>>624
専用ソフトを使う方が楽ではあるが、
aとbを定義域内で動かし、それによって求められたXとYで散布図を書く。

ということしかあり得ないと思う。

専用ソフトにはどんなのがあります？

>>623
コードは620ので良いと思う。
（変えてあげるのはVlookupの第３引数だけ）
まずVlookupのヘルプを見ること！

今いろいろ調べてます(w
第3引数・・・
ヘルプを読もう(ｗ

>>627
グラフを書くソフトは山ほどある。無料から数百万するのまで。
化学か生物か数学か物理か、自分の研究分野でよく使われているのを先輩などに聞いてみたら。

>>624
媒介変数が２つだと、一般には３次元上の面になると思うけど、
この式を良く見ると、実質的に媒介変数はt=b/aの一つだけなので、
それを消去すれば双曲線になるようだけど。

今、エクセルを使って新聞のスクラップブックを作ってるのですが、
ハイパーリンクをかける作業を簡単にするマクロを教えていただけないでしょうか？

今やってる作業を書くと
あるサイトからpdfファイルをローカルに保存
→エクセルのあるセルに新聞のタイトルを書き込む
→そのセルにハイパーリンク(Ctrl+K)
→「ハイパーリンクを挿入」のウィンドウの「ブラウズしたページ(Alt+B)」
→「ブラウズしたページ」一覧の一番上に保存したファイルが表示されているので「↓」キーでそれを選択
→「Enter」キー

という具合にやっています。

几帳面じゃないせいで、新聞をかなり溜め込んでやっているような状態なので
この作業も相当な回数こなさなければなりません。
この一連の作業を一発でできるようにすることはできないでしょうか？

>>631

このマクロを保存したファイルがあるフォルダ内と子フォルダ内のPDFファイルにリンクを貼る

Sub HogeHoge()
With Application.FileSearch
　.NewSearch
　.LookIn = ThisWorkbook.Path
　.FileName = "*.pdf"
　.SearchSubFolders = True
　If .Execute() > 0 Then
　　 For i = 1 To .FoundFiles.Count
　　　　　ActiveSheet.Range("A" & i) = Dir(.FoundFiles(i))
　　　　　ActiveSheet.Hyperlinks.Add Range("A" & i), .FoundFiles(i)
　　Next i
　End If
End With
End Sub

エクセルのグラフの軸の範囲を自動にしておいて、元データの部分だけを
書き換えると時々範囲が明らかに変なとき（たとえば４５から６５くらいの
データしかないのに、y軸が０からになっているとか）があります。
再現性がよくわからないのですが、どうしたらよいでしょうか。
グラフの軸の範囲をどこかのセルに書いておいて、そこを参照させに
いくとかできませんか。

マクロならできるけど。
With ActiveChart.Axes(xlValue)
.MinimumScale = 50
.MaximumScale = 100
End With
とか。

>>634
一度書いたグラフの軸範囲をマクロで変更できるということですか？
どうやったらいいか教えてもらえませんか。

テストのたとえば満点の８０％以上ならＡを，４０％以下ならＣをその中間ならＢをつけたいとき，どういう
関数のどんな式を入れればいいのですか。教えてください。あまりに無知でごめんなさい。

>>635
メニューからマクロの記録をしてみて、手動で軸の最小値最大値などを変えると、
634のようなマクロが自動作成される。
この例のマクロだと、現在表示されているグラフの軸が５０〜１００になる。

５０と１００のところを、手動なりセル参照なりにすればよい。
ヘルプやマクロについての解説書などを見るとくわしく書いてあると思う。

>>636
ヘルプで、IFの項目を見よ。

エクセルのVBAで質問です。
自身のウィンドウのタイトルバー（通常「Microsoft Excel - ファイル名」）の
内容を変えるにはどうしたらいいでしょう？
多分WorkbookオブジェクトかWindowに
該当するプロパティがありそうなんですが…。
（ユーザーフォームならCaptionプロパティで設定できますよねえ…）

>>639
自己レスｽﾏｿ。
ネット捜したらありますた。
Application.Captionでできますね。

Excel97使用時、
挿入→図→ファイルから、を選択したときに
右側に画像ファイルのプレビューが表示される筈なのですが
ファイルによって表示できる物と「プレビューが表示できません。」と
表示され出来ない物があります。
画像（JPG）なんですが、IE等で正常に表示されます。
なぜ表示されないのでしょうか？
OSはNT4です。

同一データを削除するのはどうしたらいいのでしょうか？

はじめまして。
列Aと列Bの各セルにある全てのデータの差を行毎に行って、
隣の列Cの同じ行のセルにその結果を一度に表示させるにはどうすればいいですか？
1行毎なら、結果を表示したいセルを選択して、SUM(A1-B2)でできますが、
列全体を一度にやる方法がわかりません。
OS/XP、エクセル2002/SP-1を使用しています。エクセル初心者です。
お願いいたします。

>>643
セル範囲で選択して、数式バーに式を入れ、[Ctrl]+[Enter]で確定。
選択していた全セルに、同様の式が入る。
Ｃ列全てに入れたいなら、先に列番号のＣのところをクリックしてから
式を入れて[Ctrl]付きで確定すれば良いが…　65536行目まで入るよ……ｿﾝﾅﾆｲﾙ?

あと、式のコピーやオートフィルはもう覚えた？
普通、A1値からB1値を引いた値を知りたい時は「=A1-B1」でよい。SUMは付けない。

>>644
すごい！できました。感動です。
ヘルプもサイトも探し回って見つからなかったのに、こんな簡単な仕事が
どうして出来ないんだ！とヤキモキしてたんですが、よかったです。
どうもありがとうございます。
エクセルは面白いですね。
[Ctrl]など、こういう面白い操作を知っているのと知らないのとでは
天地の差があるなと痛感しました。（もっとも応用の利く頭も持ち合わせて
ないと宝の持ち腐れですが・・（爆）
オートフィルは教えて頂いた今、初めて知りました。

>>642
VBAでいい？

例えば以下のようにデータがあるとして、
ColumnAColumnB
a1
b2
b1
c1
b1
e2
a2
a1
c1

Sub aaa()
　Dim x As Long
　Dim y As Long
　Dim i As Long
　With ActiveSheet
　　With .UsedRange
　　　x = .Columns.Count
　　　y = .Rows.Count
　　End With
　　Range(Cells(1, "A"), Cells(y, x)).AdvancedFilter _
　　　　xlFilterInPlace, unique:=True
　　Range(Cells(1, x + 1), Cells(y, x + 1)).SpecialCells(xlCellTypeVisible) = True
　　.ShowAllData
　End With
　For i = y To 1 Step -1
　　With Cells(i, x + 1)
　　　If Not .Value Then
　　　　.EntireRow.Delete
　　　End If
　　End With
　Next i
　Cells(1, x + 1).EntireColumn.Delete
End Sub

コピー失敗した。スマソ
ColumnA　ColumnB
　　a　　　　　　　1
　　b　　　　　　　2
　　b　　　　　　　1
　　c　　　　　　　1
　　b　　　　　　　1
　　e　　　　　　　2
　　a　　　　　　　2
　　a　　　　　　　1
　　c　　　　　　　1
こっちに訂正して

心理学の学生なのですが、エラーバーについて質問です。
エラーバーは「誤差範囲の書式設定」で設定するのはわかったのですが
同じ系列で、データが一方は正、一方は負という場合はどのようにすれば正しくつくのでしょうか？
「両方向」「正方向」「負方向」って選択肢がありますけど、みんな同じ方向についてしまうって感じに見えたので・・・。

成績表を作っています。
何度かやったテストの点数を合計して、得点率を％であらわすには、
どんな関数を使ったらよいのでしょうか？
いろいろ探したのですが、初心者には関数の説明そのものが難しくてよくわかりませんでした・・。

　　　　国語　　算数　　理科　　社会　　合計　　得点率
山田　８０　　　７８　　　５７　　　９２
佐藤　４０　　　８８　　　９０　　　６４

こんな感じです。合計の欄はＳＡＭですよね。
得点率を％であらわしたいです。
どなたかご教授お願いいたします。

平均点とは違うの？

>>650
はい。言われてみればAVERAGEでした。ありがとうございます。
でもそれを％であらわしたいです。
セルの書式設定で％表示にすると、７１６７％とかいうわけのわからない数字になってしまうのです・・。

>>651
=AVERAGE(開始セル:終了セル)/100

>>652
できました！　どうもありがとうございますm(_ _)m

在庫管理のフリーソフトって無いですか？

先輩がた、よろしくお願いします！
・Excelファイルを開いたとたんに作ったユーザフォームを自動的に開くことは出来ないっすか？
・配布した際、VBAで作ったコードを見られないように出来ませんか？

昨日の書き込みじゃちょっとわかりにくかったかもしれないので
図にしました（初めてAAエディタ使ったｗ）

│　　　　　　　　　　　　　　
─1.0　　　　　　　　　　　　　　　　　
│　　　　　　　　　　　　　　　　　
│　　　　　　　　　　　　　　　　　
│ 　　　　　　　　　　　　　　　　　
│
│
│　　　　　　　　　　　　　　　　　　━
─0.5　　　　　　　　　　　　　　 　　│
│　　　　　　　　　　　　　　　　　　│
│　　　　　　　　　　　　　　　　　　│
│　　　　　　　　　　　　　　　　　　│
│ 　　　　　　　　　　　　　 ──────
│　　　　　　　　　　　　　│ 　　　　　　　│
│0　　使用前　　　 　 　│　　　　　　　 │
　───────────────────
││ 　　　　　　　│　　　　　使用後
││　　　　　　　 │
││ 　　　　　　　│
││　　　　　　　 │
│　──────
│　　　　　│
─-0.5　　 │
│　　　　　│
│　　　　　│
│　　　　　━
│
│
─-1.0
│


ずれててスマソ
例えばこういうエラーバー（標準偏差付き）のグラフを書きたいのですが
グラフをどういじればいいのでしょうか？

あ、Excelは2002、OSはXPです

>>655
＞・Excelファイルを開いたとたんに作ったユーザフォームを自動的に開くことは出来ないっすか？
ThisWorkBookのOpenイベントにユーザーフォーム名.Showを記入する

Private Sub Workbook_Open()
　　UserForm1.Show
End Sub

＞・配布した際、VBAで作ったコードを見られないように出来ませんか？
パスワード解読ツールを使えば簡単に見られちゃうんだけど
VBエディタの　ツール＞VBAProjectのプロパティ＞保護タブでパスワードを設定してロックするとか

>>657ｻﾝ
ありがとうございます！
簡単に解読できるツールがあるのですか。
まぁ、使うのがオヤジばっかなので大丈夫な気がします。

ちなみに、メニューバーやツールバーをある程度制限することって出来ませんか？
上書き保存なんかは使わせたいですが、いろいろ弄って動かなくなったら
またホネなので…。
おながいします。

>>658
>>90のファイルにツールバーとメニューバーの表示非表示を切り替えるマクロがのってるよ。

教えてｸﾝですみません。
とても初歩的なのですが、ＶＢが入っていなくてもマクロは使えますか？
エクセルは2000で、
OSはWin98です。

テスト

>>660
Excelをインスコしてれば大丈夫。
ツール→マクロでマクロは使えるし、
Excel起動した状態でAlt+F11でVBEを起動。

>>662
親切にありがとうございます！
助かりました。

>>663
標準でインストールしてるなら、VBAのヘルプ入ってないから
別途セットアップ必要です。私も初心者ですが結構役にたつよ。

セルに「５−１」（５年１組）と入力すると、「５月１日」と勝手に表示されてしまいます。
セルの書式設定を標準にすると「３７３７７」になってしまいます。
どうなおせばよいのでしょうか？

自己レスです。
文字列を選択したらできました。
おさわがせしました。

ここで聞くのが正しいかもわかりませんが、聞いてください。
（エクセル２０００を使っています）

見積書を作って使っています、新しい見積書を作る作業を
ボタンにマクロを登録して「テンプレートとしているシートを
コピーして新しいシートを作っています」。

そのボタンを押した時に、「ウインドウが開いて新しいシートの
名前を聞いてきて、入力してＯＫすることで、新しいシートに
名前が付いている」
こんな事をやりたいのですが、どんなことをすれば可能か？
ヒントやＵＲＬだけでもけっこうですので教えて下さい。

>>667 InputBox

>667
Sub Macro1()
Dim 新規見積書 As String
新規見積書 = InputBox("新規見積書-タイトル")
Sheets.Add Type:="テンプレ.xlt"
Sheets("テンプレのシート名").Select
Sheets("テンプレのシート名").Name = 新規見積書
End Sub

これでいいの？
ほとんどマクロの記録で出来んだけど
何か望みと違うような気がしてきた。

こうかな？っと　　＞「テンプレートとしているシートをコピーして…」
669さん、一部借りました。
Sub ABC()
　　新規見積書 = InputBox("新規見積書-タイトル")
　　Sheets("テンプレのシート名").Copy Before:=Sheets(1)
　　Sheets("テンプレのシート名 (2)").Name = 新規見積書
End Sub

668-670さんベリーサンクスです

こんなに簡単な物とは・・・、ネットや本で何日も探していたのに〜
一度逝かないとダメですかねxxx

教えてください。環境はOS：Win2000　Excel：Ver2000です。
表１を表２のように上から順に任意の数だけ（この場合３セル）
左にシフトさせるにはどのようにすればよいでしょうか？

┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐
│１ │２ │３ │４ │５ │６ │７ │８ │９ │10│11│12│13│
├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤
│14│15│16│17│18│19│20│21│22│23│24│25│26│
├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤
│27│28│29│30│31│32│33│34│35│36│37│38│39│
├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤
│40│41│42│43│44│45│46│47│48│49│50│51│52│
├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤
│53│54│55│56│57│58│59│60│61│62│63│64│65│
└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘
表１
┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐
│１ │２ │３ │４ │５ │６ │７ │８ │９ │10│11│12│13│
├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤
│17│18│19│20│21│22│23│24│25│26│　 │ 　│ 　│
├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤
│33│34│35│36│37│38│39│ 　│ 　│　 │　 │　 │　 │
├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤
│49│50│51│52│　 │ 　│ 　│ 　│ 　│ 　│ 　│ 　│ 　│
├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤
│65│ 　│ 　│　 │　 │ 　│ 　│ 　│ 　│ 　│ 　│ 　│ 　│
└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘
表２
実際は、縦512行横256列の表です。
お願いします。

>672

例なら 1 のセルを選択して実行

Sub Test()
Dim delcnt As Integer, cnt As Long
　delcnt = Application.InputBox("ナンボ削るんや", "ｺﾞﾗｧ", 3)
　cnt = 1
　Do While ActiveCell.Value <> ""
　　　ActiveCell.Offset(1, 0).Select
　　　ActiveCell.Resize(1, delcnt * cnt).Delete xlShiftToLeft
　　　cnt = cnt + 1
　Loop
End Sub

>>666
選択するの面倒なら、「'」アポストロフィーでも良いよ。

673 ありがとうございます。
驚くほどのスピードで返していただき驚きました。
修行してきます。

675
日本語も勉強してきます。

>676

それがいい

こんにちわ。Excelで英語／日本語の表現をたくさんの項目で
細分化されたデータベースを作っているんですが、
アプリを終了して次に立ち上げると一部のデータが勝手に書き換えられて
います。１から１０の項目が合ったとして２から６までが全く違う
セルからコピペされたような状態でもとのデータが消失します。
iMac
MacOS9.2
Microsoft Office 2001（英語版）
です。
一度、マシンがExcelで作業中にクラッシュしてそれ以来の現象だと
思うんですが、その時にファイルが壊れたと言うことでしょうか？
やはり新しいファイルで１から作りなおすべきでしょうか？
データが書き換えられるのはだいたい同じ場所なのですが。
そんなはずはなにのにNot Enough Memoryというアラートが
出たこともあります（そのファイルは捨てました）。

自分の環境ではないのですが、相談を受けて困ってます。
Win98でExcel 2000を使っているのですが、
スタートメニューから起動すると普通に日本語なのに、
XLSファイルを開いて起動するとメニューバーなどがすべて英語表示になります。
エクスプローラの関連付けも特に変なことはなく
「"C:\Program Files\Microsoft Office\Office\EXCEL.EXE" /e」のままでした。
不思議なことにファイル名を指定して実行から
「"C:\Program Files\Microsoft Office\Office\EXCEL.EXE" /e」とすると英語モードで、
「"C:\Program Files\Microsoft Office\Office\EXCEL.EXE"」とすると日本語モードで起動します。
常に日本語表示の状態にするにはどうしたらいいんでしょうか？

入力規制のリストにセル範囲を指定すると
シートを保護しても値が選択できてしまう
Excel 97 と 2000 で発生し 2002 ではならん
どういうこと？

Excel:2000
OS:Win2K
┌─┬─┬─┬─┐　　　┌─┬─┬─┬─┐
│１ │２ │３ │４ │　　　│２ │２ │10│10│
├─┼─┼─┼─┤　　　├─┼─┼─┼─┤
│５ │６ │７ │８ │　　　│10│30│10│10│
├─┼─┼─┼─┤　　　├─┼─┼─┼─┤
│９ │10│11│12│　　　│10│10│15│10│
├─┼─┼─┼─┤　　　├─┼─┼─┼─┤
│13│14│15│16│　　　│10│30│20│10│
└─┴─┴─┴─┘　　　└─┴─┴─┴─┘
　　　　　表１　　　　　　　　　　　　　表２　　を
２個の表の各セルを足して下記のようにするにはVBAを使わずにできるのでしょうか？
┌─┬─┬─┬─┐
│３ │４ │13│14│
├─┼─┼─┼─┤
│15│36│17│18│
├─┼─┼─┼─┤
│19│20│16│22│
├─┼─┼─┼─┤
│23│44│35│26│
└─┴─┴─┴─┘
できそうな気がして調べていたのですができそうに無い・・・・
VBAだとどうなるのでしょうか？教えてください。

>681
状況が解らん
3個の表が元々あるのか?
足し算の式書きたくないのか?

>>682
あまりにも基本的なことなんでおれはあえて放置してたぞ（ｗ

>>681
こぴー、形式を洗濯してはりつけ、かさん

>>683
まぁまぁそう言わずに

開かれていないワークブックを開いて変数に格納したいのですが､
Set mybook = GetObject("C:\test.xls")
とすると､外部ファイルへのリンクがある為ダイアログが出てウザいので､前に
Application.ScreenUpdating = False
を入れても､このダイアログは止められないようです｡

GetObjectを使わず､
Workbooks.Open FileName:="C:\test.xls", UpdateLinks:=3
で開けば､このダイアログを防げるのですが､GetObjectを使わずに変数に格納する
方法が分からないので困ってます｡
何か良い方法はありませんか？

>>685
Open の後
Set mybook = Workbooks("test.xls")

ちなみに
ScreenUpdating はまったく関係ねーぞ
メッセージの非表示なら DisplayAlerts だ
まあどっちにしても質問の例では使えんようだが

>>686
できました！どうもありがとうです。
あと、Screen〜は天然で一行上の行をコピペしてました。
すみません…。

ど初心者です。助けて下さい。
言われるままに見積書を入力しています。
何故か価格や見積番号の数字を入力してEnterすると
値が勝手に100分の1に変換されてしまいます。
私は何をしてしまったのでしょう。

VBAでExcelを閉じる処理を作りたいんですが、
Book1.Application.Quitを先に書くと「保存しますか」と出るし、
Book1.Close SaveChanges:=Trueを先に書くとそこで処理が終わってしまって、
Excelの枠が残ってしまいます。
バタン！と終了させることはできないのでしょうか。

>>688
[ツール] - [オプション] - [編集] タブの
[小数点位置を固定する] のチェックをはずしぃ


>>689
Quit の前
Application.DisplayAlerts = False

他にずべてのブックの Saved プロパティを True にする方法もあるがな

遅くなりました。690さん、ありがとうございます。
直りました。
そう言えば別の作業でそこを変えました。
当然かも知れませんが、これってずっと有効なんですね。

ＶＢＡのフォームの事で誰かお答え願えませんか、、？
テキストボックスをスピンボタンと関連させて、
スピンボタンで数値を変える場合、
整数じゃなくて、時刻を扱いたいのですが、
どうしたら良さそうなのでしょう。
それから、ワークシートのあるセル範囲の数値で
違うセル範囲の条件付き書式を使うには、
どうしたら良いのでしょう、、。
例：作業簿を月・日・曜日・作業内容という項目で入力してます。
曜日を土曜と日曜だけ条件付き書式で「赤色」にしてます。
作業内容の欄に「週休」とか「祭日」と入った時に、
曜日が土日以外でも「赤色」になるようにしたいのです。

このサイトにはトヨゾウの被害はありませんか

以前、このスレでお世話になった者です。
㍿と言う字なんですが、私のパソコンだと、ちゃんと印刷できるのですが、
会社のパソコンだと、・になって印刷されてしまいます。
会社PCでも、印刷イメージでは、ちゃんと㍿と出るのですが、印刷すると
・になってしまうのです。
両方ともOFFICE2000を使っています。
(無関係だとは思いますが、OSは会社が98SEで私がXP　HOMEです。)
最初はプリンターの汚れのせいだと思い、プリンターをクリーニングしたの
ですが、それでも直りません。
ちなみに、ここで㍿の出し方を教わった次の日に、会社PCでやった時は
ちゃんと印刷されたのですが、2〜3日後に、再度印刷したら、・しか
印刷されなくなってしまいました。
自分でも無意識のうちに、何かしらの設定をいじってしまったのか否かは
記憶が定かではないんですが、何が原因と思われますか?

>>694
Excel云々の問題じゃなく、プリンタ側にそのフォントが無いから出ないの。
パソコンが送るデータがそのまま印刷される訳ではないってこと。
プリンタのプロパティで「フォントをイメージとして印刷」みたいな項目があったら
チェック入れて印刷しる。それで出なかったらプリンタが悪いってことで諦めれ。

>>694

プリンタのプロパティのどっかに、プリンタフォントに切替える設定がある。

>>692

月と日と曜日を別のセルに文字列として打ってるなら、

C2に文字列で土曜か日曜
D2に文字列で週休か祝日
条件付書式の「数式が」に　=OR(C2="土曜",C2="日曜",D2="週休",D2="祝日")

日付でいれて表示形式を aaa にしてるなら、条件付書式の「数式が」に

=AND(C2<>"",OR(WEEKDAY(C2)=1,WEEKDAY(C2)=7,D2="週休",D2="祝日"))

>>688
セルの書式の表示形式を確認。
なんか設定はいってたら、とりあえず「標準」を選択してみれ。

>>689
頭に入れてみれ。
Application.DisplayAlerts = False

データをエクセルじゃなくてＣＳＶでくれと云われて
るんですが、どうやって変換したら良いのでしょうか？
またＣＳＶからエクセルへの変換は？？

>>695-696
有難うございます。
週明けに試してみます。

>>700
名前を付けて保存−保存形式

>>702
それはやってみたんですが、
それだとエクセルのままじゃないんですか？
アイコン見るとエクセルのアイコンの様な気が
するのですが・・・

>>703

*.CSVは、Excelを入れると勝手にExcelに関連付けされる。
メモ帳などのテキストエディタで開いてみな。

>>704
ありがとうございます。
できました。

横レスなんですが、
Application.DisplayAlerts = Falseとやると、メッセージボックスが
VbOkCancelなどのときは、勝手に[規定値]が選択されると考えて良いのでしょうか。
[変更を保存しますか？]だとYesが規定値ですよね。

フォーミュラバーで、フォーミュラの小窓の左横の小窓は
なんというんでしょうか？
設定を変更したいのですが、なんと呼ばれているのか
分からないのでヘルプが使えないのです。

>>707
普段 A1 とか表示されてるところなら「名前ボックス」だとおもうけど？

>>708
どうもです。
調べてみます。

>>708
どうも。
その名前で調べてみます。

>>706
既定うんぬんじゃなくメッセージでの確認っつー処理をスキップしとるんだろ
つまり通常メッセージが出る直前の処理がそのまま実行されるだけ

エクセルでIDを記入してたら070と打っても最初の0が消えるんですけど
どうすればいいですか？

セルの書式設定＞表示形式
で「文字列」を選択。

若しくは
「'070」
と入力する。

>>713
神！
ありがとうございますた

>>713さん
すみません便乗です。
そう言う設定はファイルごと（BOOKごとって言うの？）に
設定できますでしょうか。

　お願いします、助けてくだすぁい。
フォトショップから取り込んで　挿入した写真が回転しないのです。
図形の調整から回転させようとしたんですが・・・。

たいていの写真ではできるのですが、時々このようなことがあります。
なぜでしょう・・・？

質問です
時間表示で
5:30:00
↓
0:05:30
にしたいのですが、今までは置き換えなどを使っていたのですが
もっと簡単な方法ってありませんか？

>>717
>0:05:30
最初の0の部分は「何日」つうこと？　ならば、表示形式で「d:h:mm」
もし、最初の0の部分が「秒」ならば「ss:h:mm｣だが。

いや、どっかのHTMLで書かれた時間（5:30）をコピペしたら
時間として5分30秒のつもりが5時30分0秒になってしまうんです
これを簡単な方法で5分30秒に戻したいのですが…

Ａ１がコピペしたセルだとして、別セルに「=A1/60」、表示形式は自由に。

>715
ごめん　そこまではわからん。

>>715
「書式｣−「スタイル｣を使えば？

>>720
ありがとう
その別のセルを数字化すれば良いんだな

>>722
なるほど、そう使うんですね。
ありがとうございました。

質問です。セルに7-15と入れると、7月15日に変換されるのですが、セルの書式設定を変えずに変換されないようにできないでしょうか？

>>725
「'7-15」っていれろ

>>726
ガイシュツ

みなさんすみません。
エクセルをつかっていろいろと計算をさせているものですが、最近は、エクセルのシートの右端まで式でうまってしまい、それとともに、計算がおそくていらいらすることが出始めました。

特に、たとえば、いったん縦2000行の計算をおこない、さらにそのうち、1000行のみを選択して、集計するために、該当行を削ります。そうすると、エクセルがしばらく考えこんで、約15分ほど待つこともあります。
そこで、相談です。
みなさま、エクセルを早く動かすPCってありますか。
エクセルが得意なＰCメーカーとかチップってあるんですか。
教えてください。

>>728
AMD

>>728
今使っているＰＣが非力なら、機種替えや機種選択は効果的。
しかし根本的には、そのシートの使用法に問題があるのでは？

あと計算はシート上の数式でさせるより、VBAでさせたほうが軽い。
自動計算でなくて良いならそれも一考の価値あり？

そうね。
2000行x数百列の全部のセルのデータを毎回再計算させる必要があるのかどうか
考えた方がいいね。

それから、計算内容に依るけど、2000行のうち1000行削るより、
はじめから残りの1000行の方だけ計算するようなシートにした方がたいてい速い。

このスレでアドバイスしてる人の社内評価を教えてください。
一般事務職員でこれだけの知識があると神扱いですか？

無職ですが何か？

>>633
データが変更されるとグラフの軸範囲が最適化されない現象の
原因ってなんでしょう。普段は適当な範囲に勝手に設定してくれるのに、
あきらかにグラフの下のほうにつぶれたグラフが書き出されたりします
（軸の範囲が余分な範囲まで含んでしまって）。

質問です。
WSHスクリプト(JScript)からExcel内のコントロール(MSBarcord)に
アクセスしたいのですが、
1. WorkSheet.OLEObjects を使うことができない
2. WorkSheet.コントロール名 でアクセスできない
他に方法を調べても見つかってないのですが、できないってことでしょうか?

非常にガイシュツかもしれませんが、
同じbookの各シートのフッターに順番にページ数をオートで記入することはできますか？
自分でマクロくまなきゃ無理でしょうか

>736

普通に全選択するなり、CtrlやShiftで必要なシートを
選択するなりすれば良いだけでは？

>>732
無料のパソコン教室の先生みたいな評価かもw

sheet1でマクロ処理したものを
sheet2でコマンドボタンに入れようとするとエラーになってしますのですが、
これって不可能って事なのでしょうか？
教えてください。
お願いします。

>>739

どっかにシート1じゃないとダメな記述があるんだろ。
先頭に　Sheet1.Activate　を入れるとかすれば良いんじゃないか？

それでもダメならソースコードをアップせい。

即レスありがとうございます。

ActiveWindow.ScrollRow = 1
Selection.AutoFilter Field:=8, Criteria1:="<=1,000", Operator:=xlAnd
End Sub

たったこれだけなのですが・・・。
それと、このマクロ処理したものは、別にファイルを作って
その中にコマンドボタンを作って入れることも可能ですか？

>741

Sub aaa()
　Sheet1.UsedRange.AutoFilter Field:=8, _
　　　　　Criteria1:="<=1,000", Operator:=xlAnd
End Sub

> それと、このマクロ処理したものは、別にファイルを作って
> その中にコマンドボタンを作って入れることも可能ですか？

もっと修行を積んでからならね。

>>742様

どうもありがとうございました！
修行に逝ってきます。

>>737
レスありがとうございました。

実は仕事でレポート書くときに、ExcelかWordで作らなきゃいけなくて、
表とか多く使うときはExcel使うんですけど、ページ数はいつも一つ一つ
シコシコ打ち込んでます。
フッターの表示はまとめてできるのですが、並んでいるシートの順に
連番を付けるのはどうやったらいいものかわからなくて…
自動だと、全部1ページになっちゃうんですよね。
あとから途中にページ挿入したときなんかはその後全部手入力で訂正…

なんかいい方法は無いものでしょうか？

>>744
だから、737のやり方でフッターに通し番号のページ数が入るじゃん。
一回試してみそ。

http://db.net4u.jp/cj/in.php?id=tsgt1111

どうもすみません。
何度かやってみたのですが、やっぱり全部1ページになってしまうだけです。

全sheetタブをctrl押しながらクリックして全て選択し、
ページ設定→ページ→先頭ページ番号「自動」or「1」or先頭ページのみ「1」で残りは「自動」
ページ設定→ヘッター/フッター→フッターの編集→中央部に&[ページ番号]

でやってみたんですけれども、全て1ページになってしまいました。
「自動」以外にコメントでの命令でもできるのでしょうか？
根本的にやり方が間違っているのでしょうか？

すみません、いつもこいつで手間ばかりかかってしまっているので
申し訳ありませんが、教えて頂けないでしょうか？

>>747（736さん）
シートを複数選択して、（設定するのではなく）印刷する。

>747

複数シートを選択して、印刷プレビューを見たことないのか？
次のページを押すとか、スクロールさせるとか、そんな発想は微塵もない？

>>748-749
すみません、やっとわかりました。
最終的にページ数を固定することはできないようですが、
ブック全体の同時プリントやページごとでのプリントもできるようなので、
特に問題なさそうです。

明日数ページのレポート作る予定ですので早速この方法で印刷してみます。

長々とつき合っていただき、ありがとうございました。

>>750

> 最終的にページ数を固定することはできないようですが、

表示−改ページプレビューとか、ページ設定の　縦○枚×横○枚とかで、
各シートの印刷枚数を設定すれば良いのでは？

>>751
どうもすみません。書き方が悪かったようです。
つまりsheet全選択してプレビューを見るとsheetの順番通りにページ数が
フッタに書き込めているけど、それを一端解除してsheet単位でプレビューを
見たら、また元に戻っちゃってたって事です。

でもそこまで不自由ではなさそうなので、まあいいかな？と思ってます。
どうもありがとうございました。

だって、フッターというもの自体が、その時まで確定しないものだろ？
総ページ数しかり、日時しかり。

A1〜A10の平均をとるときは、AVERAGE(A1:A10）としますよね。
で、A1〜A10の値にゼロがあれば（計算式の結果で）計算の対象外にしたいのですが、どうすれば良いのでしょうか。

ちなみにバージョンは2000です

>754
AVERAGE使わずに、SUMとCOUNTAとCOUNTIFで計算すればいいじゃん。

親切に書くとこう。
=SUM(セル範囲)/(COUNTA(セル範囲)-COUNTIF(セル範囲,0))

これじゃだめ？
=SUM(A1:A10)/COUNTIF(A1:A10,">0")

たとえば
http://www2.odn.ne.jp/excel/waza/function.html#SEC13
のような条件を２つ完全に満たすというのは関数でカウントできますか？
この例のB1:B5に"東京"とか"大阪"とか入っていて
東京が晴れとか大阪が曇りというような条件を満たす
件数を個別にカウントしたいんです。
ご教授お願いします。