Excel総合相談所 124 [無断転載禁止]©5ch.io
レス数が1000を超えています。これ以上書き込みはできません。
0001名無しさん＠そうだ選挙にいこう
2016/09/19(月) 13:46:06.65【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
▼━関連スレ━━━━━━━━━━━━
前スレ
Excel総合相談所
http://sirtuin.me/index.php?word=Excel%E7%B7%8F%E5%90%88%E7%9B%B8%E8%AB%87%E6%89%80
Excel VBA 質問スレ
http://sirtuin.me/index.php?word=Excel%20VBA%20%E8%B3%AA%E5%95%8F%E3%82%B9%E3%83%AC%20
【質問不可】Excel総合相談所スレの雑談・議論スレ
http://sirtuin.me/index.php?word=Excel%20%E9%9B%91%E8%AB%87
0002名無しさん＠そうだ選挙にいこう
2016/09/19(月) 13:46:56.63･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意。
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
･7 VBAはプログラム言語のVisualBasic(6以前)に近い処理が可能で Excelに関係ないことも出来ます。
Excelの操作に関係ない部分は、スレ違いなのでこのスレでは回答が得られにくいです。
ここで聞くよりもVBスレやAPIスレなどの該当スレで質問しましょう。
但し向こうはプログラマのスレなので､構文規則などの最低限の事は覚えてから質問しましょう。
ここみたいに丸投げはダメですよ。
･8 うまくいかなかったにしても自分でやってみたこと(組んだ数式やコード)は書きましょう。
例えエラーになる式やコードでも、何をやりたいのかを的確に把握する手がかりになります。
その上で、どううまくいかないのかを具体的に書きましょう。
エラーが出るなら、何処でどういうエラーが出るのか、
想定外の結果が出るなら、条件と想定上の結果、実際の結果などを詳しく書いてください。
･9 マルチは嫌う人が多いのでなるべく避けましょう。マルチをすると､逆に回答は得られにくくなると思ってください。
･A テキストボックス(エディトボックス)、コンボボックス(ドロップダウンリスト)、リストボックス、コマンドボタン、
チェックボックス、オプションボタン(ラジオボタン)、スピンボタン、スクロールバー、等の質問をするときは、
ユーザーフォーム、コントロールオブジェクト、フォームオブジェクトのどれなのかを必ず書くこと。
0003名無しさん＠そうだ選挙にいこう
2016/09/20(火) 15:38:41.750004名無しさん＠そうだ選挙にいこう
2016/09/21(水) 01:17:43.400005名無しさん＠そうだ選挙にいこう
2016/09/23(金) 12:24:39.72【2 Excelのバージョン 】 Excel２０１０
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
今開いているBOOK名を取得して、頭にセルA1の番号をつけて保存したいのですが、今開いているBOOK名とセルA1と結合させる方法が解りません。よろしくお願いします。
0006名無しさん＠そうだ選挙にいこう
2016/09/23(金) 12:32:57.49これじゃダメなん??
Range("A1").Value & ThisWorkbook.Name
00075
2016/09/23(金) 12:58:46.54命名ルールで(”A1”)&”_”&ThisWorkbookNameと記述したのですが、保存ダイアログのファイル名に何も出てきませんでした。ローカルではちゃんとでているのですが。
0008名無しさん＠そうだ選挙にいこう
2016/09/23(金) 19:38:31.99なにを 言ってるのか 皆目 見当つかんのだけど
>>2 の・8 読んでみれ
0009名無しさん＠そうだ選挙にいこう
2016/09/23(金) 19:39:28.02コード書くかファイルあげたほうが良いと思う。
俺も何言ってるかわからんかった。
0010名無しさん＠そうだ選挙にいこう
2016/09/23(金) 21:35:40.5400115
2016/09/23(金) 22:04:02.84Sub test()
Dim save_file, Save_Filename As String
Dim 保存先 As String
MsgBox ActiveWorkbook.Name
'保存先を会社のサーバにあるフォルダにすると保存ダイアログで名前が表示されない
保存先 = "E:\data\"
Save_Filename = Range("A5") & "_" & ThisWorkbook.Name
save_file = Application.GetSaveAsFilename(保存先 & Save_Filename, _
FileFilter:="Excelファイル,*.xlsm")
ActiveWorkbook.SaveAs Filename:= _
save_file, FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
0012名無しさん＠そうだ選挙にいこう
2016/09/23(金) 23:13:22.30よーわからんけどこれじゃあかんの
Sub test()
'Dにしてうｒ
saveFileName = "D:\data\" & Range("A5").Value & "_" & ThisWorkbook.Name
ActiveWorkbook.SaveAs Filename:=saveFileName
Debug.Print saveFileName
End Sub
0013名無しさん＠そうだ選挙にいこう
2016/09/24(土) 00:13:51.39うｒ とは？
0014名無しさん＠そうだ選挙にいこう
2016/09/24(土) 00:29:21.14のタイポ
0015名無しさん＠そうだ選挙にいこう
2016/09/24(土) 11:54:52.67あとプレーンテキストで貼り付けをかんたんにやる方法教えてください。
0016名無しさん＠そうだ選挙にいこう
2016/09/24(土) 13:37:58.29シート全体を選択してメモ帳にコピペすればプレーンテキストになる
もう一度メモ帳から別の新規シートにコピペで戻せば全体の書式が初期状態になる
0017名無しさん＠そうだ選挙にいこう
2016/09/24(土) 14:26:33.47【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
罫線の色を拾う方法を教えてください
罫線の色を拾い、これから描く罫線の色としたいのだ
0018名無しさん＠そうだ選挙にいこう
2016/09/24(土) 14:32:39.120019名無しさん＠そうだ選挙にいこう
2016/09/24(土) 14:37:35.37罫線の引かれたセルを選択して書式の罫線タブでその他の色を選ぶとRGBが表示される
それを覚えておけばいつでも同じ色が再現できる
そこでOKを押すと最近使った色に登録されるから、ブックを閉じるまでは履歴から選ぶこともできる
0020名無しさん＠そうだ選挙にいこう
2016/09/24(土) 14:48:51.88目からウロコです。ありがとうございます。
0022名無しさん＠そうだ選挙にいこう
2016/09/24(土) 21:11:55.722 wsx
3 edc
4
5 tgb
6 yhn
データが書かれた列の一番下の行（yhn）から空白1行を挟んだ次のデータ（edc）の
行番号を得るにはどうすればいいでしょうか？
yhnはRange("A1048576").End(xlUp).Row
edcは？ という質問です。
0023名無しさん＠そうだ選挙にいこう
2016/09/24(土) 21:30:00.920024名無しさん＠そうだ選挙にいこう
2016/09/24(土) 22:22:46.77Range("A" & rows.count).End(xlUp).End(xlUp).End(xlUp).Row
0025名無しさん＠そうだ選挙にいこう
2016/09/24(土) 22:48:02.60Range("A" & rows.count).End(xlUp).End(xlUp).End(xlUp).Row+1
0026名無しさん＠そうだ選挙にいこう
2016/09/24(土) 23:23:42.89違うぞ
実際にキーボード操作してどこに飛ぶか確認してみ
あと、データの並びが>>22の通りなら>>24でOKだけど、こういうパターンだと破綻する
1 qaz
2 wsx
3 edc
4
5 tgb
0027名無しさん＠そうだ選挙にいこう
2016/09/24(土) 23:51:51.750028名無しさん＠そうだ選挙にいこう
2016/09/24(土) 23:56:42.16あぁ空白行かと思った、見間違えてたわｽﾏﾇ
0029名無しさん＠そうだ選挙にいこう
2016/09/25(日) 03:00:24.39Ctrlキーの挙動の違いってマクロでの対応が何気にめんどくさいよね。
0030名無しさん＠そうだ選挙にいこう
2016/09/25(日) 15:20:00.500031名無しさん＠そうだ選挙にいこう
2016/09/25(日) 16:35:35.10あなたがやれることは変わらないでしょうね
0032名無しさん＠そうだ選挙にいこう
2016/09/25(日) 16:56:45.92昔はそうだったけど、最近はスパークラインやFORMULATEXT（）みたいなものも出来て大分差ができたと思う
他にも図形等はExcelの方が圧倒的に楽
0034名無しさん＠そうだ選挙にいこう
2016/09/25(日) 21:53:32.84【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい(他人の書いた簡単なソースならちょっと解読できるレベル（要インターネット等の資料、空では無理です)
【4 VBAでの回答の可否】 可
お願いします。
A列
100
125
453
451
986
こんな感じでランダムな数字が縦に並んでいます。
ここからある一定条件で(X以上がY回連続する場所)というのを簡単に見つけ出す方法ってありませんでしょうか。
0035名無しさん＠そうだ選挙にいこう
2016/09/25(日) 22:09:16.19B列を作業列として
B1=IF(A1>=X,1,0)
B2=IF(A1>=X,B1+1,0)
B3以降=B2のコピペ
で、B列をYでフィルタ
0037名無しさん＠そうだ選挙にいこう
2016/09/26(月) 17:32:16.19ダイアログ出したかったら、application.getsavefilename
使ったらでますね。
0038名無しさん＠そうだ選挙にいこう
2016/09/26(月) 17:35:36.56原因がわかりましたら教えてください。
0039名無しさん＠そうだ選挙にいこう
2016/09/26(月) 17:40:28.67キーボードに異物が挟まってシフト押しっぱなしになってるか
numlockやfnキーかキーボードマクロ辺りか
何にしろシフトが押されてる気がする
0040名無しさん＠そうだ選挙にいこう
2016/09/26(月) 17:43:34.83すみません。解決しました。
ナンバーロックでした。お恥ずかしい。
ありがとうございます。
0041名無しさん＠そうだ選挙にいこう
2016/09/26(月) 17:48:39.60それでもだめだったら、ゴミ混入でシフトキーが押しっぱなしになってる
0042名無しさん＠そうだ選挙にいこう
2016/09/26(月) 20:01:30.53【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 はい
VBAでグラフを描こうとしています
X軸の目盛について質問です
以下のコードですが
Sub test()
Dim test As ChartObject
Set test = ActiveSheet.ChartObjects.Add(150, 10, 200, 100)
With test.Chart
.SetSourceData ActiveSheet.Range(Cells(1, 1), Cells(3, 2))
.ChartType = xlLine
End With
End Sub
1列目を「A,B,C」とした場合が1、「7,3,2」とした場合が2です
http://up.mugitya.com/img/Lv.1_up97282.png
自動判別してるみたいですが
はっきり「1列目 = X軸の目盛」と指定するにはどう書けばいいんでしょうか
0043名無しさん＠そうだ選挙にいこう
2016/09/26(月) 20:39:25.26004437
2016/09/26(月) 21:36:36.38Sub Save_num_file()
'数字+ファイルネームで保存するマクロ
Dim myNumber As String
myNumber = Cells(1, 1).Value 'ファイルネーム先頭の数字＝ここではセルA1
Dim myFolder As String
myFolder =
0045名無しさん＠そうだ選挙にいこう
2016/09/26(月) 21:39:01.81エスケープ仕方がわからないので「」で代用して続き
Dim myFolder As String
myFolder = 「C:\data\」 '保存場所
Dim mySaveName As String '保存するときのファイル名
mySaveName = myFolder & myNumber & ThisWorkbook.Name
Dim myIniName As String '保存ダイアログに表示されるファイル名
myIniName = Application.GetSaveAsFilename(InitialFileName:=mySaveName, _
FileFilter:=「Excel ファイル (*.xlsm),*.xlsm」)
'ダイアログで「いいえ」を選択した場合のエラー回避
If myIniName <> 「False」 Then
ActiveWorkbook.SaveAs myIniName
End If
0046名無しさん＠そうだ選挙にいこう
2016/09/26(月) 22:28:30.33ドヤ顔したいのは分るけど
それって 質問者さんの >>11 と変わらんと思うが
(キャンセルした時の処理が追加されてるだけwww)
0047名無しさん＠そうだ選挙にいこう
2016/09/26(月) 22:36:08.04サーバーなのでうまくいかないんですかね。
0048名無しさん＠そうだ選挙にいこう
2016/09/27(火) 01:16:59.600049名無しさん＠そうだ選挙にいこう
2016/09/27(火) 01:50:53.97えﾞ !? そーなの？
うちの社内は統一されてるけど
0050名無しさん＠そうだ選挙にいこう
2016/09/27(火) 01:52:44.49Sub test()
Dim test As ChartObject
Set test = ActiveSheet.ChartObjects.Add(150, 10, 200, 100)
With test.Chart
'系列名を除くデータ部の範囲のみ指定する
.SetSourceData ActiveSheet.Range(Cells(1, 2), Cells(3, 2))
'各系列ごとにX軸の範囲設定
Dim oSeries As Series
For Each oSeries In .SeriesCollection
oSeries.XValues = Range(Cells(1, 1), Cells(3, 1))
Next
.ChartType = xlLine
End With
End Sub
0051名無しさん＠そうだ選挙にいこう
2016/09/27(火) 03:03:24.850053名無しさん＠そうだ選挙にいこう
2016/09/27(火) 09:12:46.45自分の勉強にもなるが、質問者の考えてることが分かるようになる
オフィス田中のExcelが苦手な人のための、汎用例マスター講義
http://schoo.jp/class/210/
0054名無しさん＠そうだ選挙にいこう
2016/09/27(火) 10:15:38.71【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 不可
VLOOKUP関数で複数の列番号を合計するようなやり方ありますでしょうか。
例えば２つ（列番号2と3の合計）なら、=VLOOKUP(A1,Sheet1!A1:E3,2,0)+VLOOKUP(A1,Sheet1!A1:E3,3,0) と単に足しても良いのですが、これがいっぱいあると面倒なので。
VLOOKUP関数ではなく、他の関数でも結構です。
※「sheet1で予めsum関数で足しておけば」と言われそうですが、このsheet1は他部署から頻繁に更新されて提供されるデータで、そのまま全貼り付けして使うのでsheet1にsum関数をその都度入れるのはひと手間かかってしまいます。
0055名無しさん＠そうだ選挙にいこう
2016/09/27(火) 11:24:28.81=SUMPRODUCT(OFFSET(集計範囲上端, MATCH(検索値, 検索範囲,0) -1,0),{0,1,1,0,0})
0056名無しさん＠そうだ選挙にいこう
2016/09/27(火) 11:36:20.08=SUM( OFFSET(Sheet1!B1:C1, MATCH(A1,Sheet1!A1:A10,0)-1 ,0) )
とか
0057名無しさん＠そうだ選挙にいこう
2016/09/27(火) 11:56:33.30【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 不可
マクロありのxlsファイルをxlsmで保存したら
別の同環境の端末の人にマクロが動かないと言われました
見てみると確かに動いてません
自分のところだと動きます
んで元のxlsファイルのマクロはどこでも動きます
サイズが減るのでxlsmで保存してみたんですが、一体何が悪いんでしょうか？
0058名無しさん＠そうだ選挙にいこう
2016/09/27(火) 12:10:43.28どう動かないかわからないので何とも言えない
そのファイルだけなのか、エラーが出るのか、バージョンはなんなのか、どういうマクロが動かないのか
あと「サイズが減る」というしょーもない理由で形式を買えない方がいい。セキュリティの観点から形式を変えるなら分かるけど
0059名無しさん＠そうだ選挙にいこう
2016/09/27(火) 12:30:30.08強制したいけど、うちの部署に力ねーw
0060名無しさん＠そうだ選挙にいこう
2016/09/27(火) 12:32:51.11こう言う計算式を構築するって人間のメモリ部分の性能だよな。もう弱ってきてるから多数の要素を考えられないw
0061名無しさん＠そうだ選挙にいこう
2016/09/27(火) 12:35:12.3000625
2016/09/27(火) 16:03:49.16断片をだされても、マクロのどのあたりに挿入すればいいか、解りませんでした。
>>44 45これならなんとか。キャンセルされたことを考えると、３７さんが正しいと思います。
>>48
自分のところはサーバのフォルダ命名は一度決めると、変更不可のようです。おっさんはショートカットで仕事するので。
006357
2016/09/27(火) 16:43:08.16コマンドボタン１コントロールは作成されていないため、デザインモードを終了できません。
というポップアップが出ていました
そのままググってセキュリティセンターを確認したりしたんですが
特に高めに設定している訳でもなくお手上げです
マクロの内容は別のシートから日付と文字列持ってくるだけです
同じ環境だと思っていたのですが当たってるパッチでも違うんでしょうかね
0064名無しさん＠そうだ選挙にいこう
2016/09/27(火) 17:11:56.630065名無しさん＠そうだ選挙にいこう
2016/09/27(火) 17:15:02.04ActiveXコントロールは全てフォームコントロールに置き換えて、マクロも書き換えれば解決
0066名無しさん＠そうだ選挙にいこう
2016/09/27(火) 21:53:03.11次のようなFor文を書いてみましたがエラーになってしまいます。
どこがマズいですか？
Sub test()
p1 = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
For x = 1 To 5
p(x) = 0
Next
MsgBox "p1=" & p1 & ", p2=" & p2 & ", p3=" & p3 & ", p4=" & p4 & ", p5=" & p5
End Sub
0067名無しさん＠そうだ選挙にいこう
2016/09/27(火) 22:08:48.47全体的にマズイ
配列じゃない
添字は0から始まる
msgboxはめんどいのでdebug.printでコンソールに出力させたほうが良い
Sub a()
p(0) = 1
p(1) = 2
p(2) = 3
p(3) = 4
p(4) = 5
For x = 0 To 4
Debug.Print x & "番目 処理前 " & (p(x))
p(x) = 0
Debug.Print x & "番目 処理後 " & (p(x))
Next
End Sub
あと
p(0) = 1
p(1) = 2
p(2) = 3
p(3) = 4
p(4) = 5
は
p = Array(1, 2, 3, 4, 5)
でも可
0068名無しさん＠そうだ選挙にいこう
2016/09/27(火) 22:14:23.04p(x) = 0
こういうことは出来ない
0069名無しさん＠そうだ選挙にいこう
2016/09/27(火) 22:15:29.39どゆこと？
0070名無しさん＠そうだ選挙にいこう
2016/09/27(火) 22:24:54.45それだとエラーになるねｗ
Nextが抜けてるｗ
0072名無しさん＠そうだ選挙にいこう
2016/09/27(火) 22:38:48.88ReDim p(4)
p(0) = 1
p(1) = 2
p(2) = 3
p(3) = 4
p(4) = 5
0073名無しさん＠そうだ選挙にいこう
2016/09/27(火) 22:46:05.58これで
配列は静的配列と動的配列があるからぐぐって勉強しとくといいわ
Sub a()
Dim p(5) As Long
p(0) = 1
p(1) = 2
p(2) = 3
p(3) = 4
p(4) = 5
For x = 0 To 4
Debug.Print x & "番目 処理前 " & (p(x))
p(x) = 0
Debug.Print x & "番目 処理後 " & (p(x))
Next
End Sub
0074名無しさん＠そうだ選挙にいこう
2016/09/27(火) 22:46:58.38配列かfunctionかわからないから？
0076名無しさん＠そうだ選挙にいこう
2016/09/27(火) 23:36:47.13動かないのですが。
'数字+ファイルネームで保存するマクロ
Sub Save_num_file()
'数字+ファイルネームで保存するマクロ
Dim myNumber As String
myNumber = Cells(1, 1).Value 'ファイルネーム先頭の数字＝ここではセルA1
Dim myFolder As String
myFolder = "E:\data" '保存場所
Dim mySaveName As String '保存するときのファイル名
mySaveName = myFolder & myNumber & ThisWorkbook.Name
Dim myIniName As String '保存ダイアログに表示されるファイル名
myIniName = Application.getsavefilename(InitialFileName:=mySaveName _
, FileFilter:="Excelファイル.*.xlsm")
'ダイアログで「いいえ」を選択した場合のエラー回避
'この下で「コンパイルエラー 構文エラー」になります。
If myIniName <> 「False」 Then
ActiveWorkbook.SaveAs myIniName
End If
0077名無しさん＠そうだ選挙にいこう
2016/09/27(火) 23:38:35.71「False」
"False"
さすがにこれぐらいは気づかないとダルイぞ
0078名無しさん＠そうだ選挙にいこう
2016/09/28(水) 02:40:14.850079名無しさん＠そうだ選挙にいこう
2016/09/28(水) 05:01:08.35SUMPRODUCT(E2:E10000-G2:G10000)みたいな式で
E10000の部分を最終行にする事ってできませんかね？
0080名無しさん＠そうだ選挙にいこう
2016/09/28(水) 05:30:21.14=SUMPRODUCT(E2:INDEX(E:E,COUNTA(E:E))-G2:INDEX(G:G,COUNTA(E:E)))
みたいなこと？
ある程度要素が多いなら、COUNTA(E:E)の部分は独立させて作業列にした方が
計算式が見やすくなるけど
008180
2016/09/28(水) 06:14:52.10普段、仕事で２００７使っているから、空白あったらエラーになるという頭でいたわ
=SUMPRODUCT(E2:INDEX(E:E,COUNTA(E:E)+COUNTBLANK(E:E))
-G2:INDEX(G:G,COUNTA(E:E)+COUNTBLANK(E:E)))
自宅２０１６で確認したところこれなら空白もカウントされて計算される
0082名無しさん＠そうだ選挙にいこう
2016/09/28(水) 23:25:28.16すみません。追い詰められてて、見落としてました。End Subも無い。
0083名無しさん＠そうだ選挙にいこう
2016/09/28(水) 23:44:17.50乙
まぁパニクったときは一度画面から目を離して散歩でも行くと良いぞ
一番いいのは昼寝
0084名無しさん＠そうだ選挙にいこう
2016/09/29(木) 01:18:38.26【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ（簡単な記述のみ出来ます。）
【4 VBAでの回答の可否】 可
業務で手に負えずcsvデータの取り込みを行って各シートに展開したいのですが、
CSVの取り込みをsheet1に必須項目のみ取り込みしました。
A列 納期
B列 商品名
C列 お客様名
D列 送付住所
となってます。
商品が20個ほどあるのでB列の購入した商品に応じてAC.D列の納期とお客様、住所は重複しております
これをvbaを用いてお客様ごとにシートを展開して振り分けしたいのですがご教授いただければ助かります。
（納品書を作りたく・・・）
シート振り分け後の整形処理はコピペ的な感じなのでマクロでなんとかできるのですが
お客様ごとのシート展開が調べてはいるのですがありませんでした。
なにとぞ。。。お願いいたします。
0085名無しさん＠そうだ選挙にいこう
2016/09/29(木) 01:47:13.48最初にB列で並び替えて寝
http://www.dotup.org/uploda/www.dotup.org1017974.zip
0087名無しさん＠そうだ選挙にいこう
2016/09/29(木) 21:25:14.69If Range("B2").Value > 0 Then Range("B2").Interior.Color = 65535
しかし、'100と強制文字列にしても色がついてしまいます。
数字のときだけ色をつけるにはどうすればいいですか？
0088名無しさん＠そうだ選挙にいこう
2016/09/29(木) 21:55:04.53VBA 数字 判定で調べるべし。
0089名無しさん＠そうだ選挙にいこう
2016/09/29(木) 22:02:43.880090名無しさん＠そうだ選挙にいこう
2016/09/29(木) 22:30:17.480091名無しさん＠そうだ選挙にいこう
2016/09/29(木) 22:39:26.50文字列が入力されていると0以上に扱われる
A1に '-1 と入力して
B1=A1>0
とやるとTRUEになる始末
0092名無しさん＠そうだ選挙にいこう
2016/09/29(木) 22:40:46.11笑った
009387
2016/09/29(木) 22:53:39.42If IsNumeric(Range("B2").Value) = True Then Range("B2").Interior.Color = 65535
ダメでした。
>>90
で？
>>91
で？
>>92
糞つまらん
0094名無しさん＠そうだ選挙にいこう
2016/09/29(木) 22:57:02.69とりあえずこの書き方はかっこ悪い
If IsNumeric(Range("B2").Value) = True Then Range("B2").Interior.Color = 65535
こう
If IsNumeric(Range("B2").Value) Then Range("B2").Interior.Color = 65535
0095名無しさん＠そうだ選挙にいこう
2016/09/29(木) 23:02:52.18で行けるな
もしくはTypeName()
0096名無しさん＠そうだ選挙にいこう
2016/09/29(木) 23:03:30.76Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency, vbDecimal
～
End Select
0097名無しさん＠そうだ選挙にいこう
2016/09/29(木) 23:05:03.20VarType関数 数値でデータ型を返す
一般的にはどっち使うんだろ
俺が使うのは検索して最初にヒットした方
009887
2016/09/29(木) 23:15:17.26>>94
何がかっこ悪いのかｻﾊﾟｰﾘﾜｶﾗｿ
>>95
なにが言いたいんだ？
どこに行くんだ？
イライラしてきた！
今日は寝る
0099名無しさん＠そうだ選挙にいこう
2016/09/29(木) 23:22:51.21if vartype(cells(2,2).value) = vbString then
if vartype(cells(2,2).value) = 10 then
if typename(cells(2,2).value) = "String" then
typenameかねぇ
0100名無しさん＠そうだ選挙にいこう
2016/09/29(木) 23:24:03.420101名無しさん＠そうだ選挙にいこう
2016/09/30(金) 00:19:45.94個人的意見だけど
If TypeName(Cells(2, 2).Value) = "string" Then
と書けてしまうんで
判定には使いずらいと思うんだけど
0102名無しさん＠そうだ選挙にいこう
2016/09/30(金) 00:23:50.89それもそうか。
vartypeの方が良さそうだね、ありがとう
0103名無しさん＠そうだ選挙にいこう
2016/09/30(金) 01:51:15.12そうかINDEXを使えばいいんですね！
思い通りの事ができましたありがとうございます！
0104名無しさん＠そうだ選挙にいこう
2016/09/30(金) 06:30:13.94だとしたら失礼すぎやしないか？
0105名無しさん＠そうだ選挙にいこう
2016/09/30(金) 10:12:19.74質問者の参加資格はキーボードを叩けることだからな
一般人、障碍者、幼児、猿、昆虫、風雨、落石等自然災害も含まれる
下手すりゃ放射能ですら文字列の送信が可能かもしれん
そんなものにわざわざめくじら立てても仕方ない
0106名無しさん＠そうだ選挙にいこう
2016/09/30(金) 17:24:07.93なるほどなw
010779
2016/10/01(土) 10:50:13.59これ閉じている別ブックの最終行知りたい場合はどうすればいいのでしょうか
INDEXとINDIRECT使ってがんばってみましたが駄目でした(´・ω・｀)
0108名無しさん＠そうだ選挙にいこう
2016/10/01(土) 14:09:22.40VBAで ブックオープン→最終行取得→ブッククローズ
すればいいんじゃね?
あと >>1 の質問テンプレ 書いて欲しいと思うのだが・・・どうよ?
0109名無しさん＠そうだ選挙にいこう
2016/10/01(土) 14:14:02.76あとsum()など少しの関数が使えるのは知らなかった
sum()とif()が良くてsumif()がダメらしい
http://excel-ubara.com/excel3/EXCEL026.html
011079
2016/10/01(土) 14:28:09.26【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 初歩なら
【4 VBAでの回答の可否】 否
自分もためしたんですが>>108さんのやり方だとなぜか駄目なんですよね
INDEX関数はブックを開いてる時はいけるんですけど閉じちゃうとエラー吐きます
INDIRECT関数はそもそも対応してないそうです(´・ω・`)
0111名無しさん＠そうだ選挙にいこう
2016/10/01(土) 15:05:12.54refエラーなら仕様っぽいね
>>81の真似したけどエラー0になったわ
=SUMPRODUCT('C:\Users\a\Desktop\[Book2.xlsm]Sheet6'!E2:INDEX('C:\Users\a\Desktop\[Book2.xlsm]Sheet6'!E:E,COUNTA('C:\Users\a\Desktop\[Book2.xlsm]Sheet6'!E:E))-'C:\Users\a\Desktop\[Book2.xlsm]Sheet6'!G2:INDEX('C:\Users\a\Desktop\[Book2.xlsm]Sheet6'!G:G,COUNTA('C:\Users\a\Desktop\[Book2.xlsm]Sheet6'!G:G)))
vbaで開いてsumproduct部分を計算し、数値で保存、その後閉じた方がいいと思う
じゃなきゃ開きっぱなしにするしかない
0112名無しさん＠そうだ選挙にいこう
2016/10/01(土) 15:26:21.21もうちょっと調べてみて他に方法がなければその方法で行きたいと思います！
0113108
2016/10/01(土) 16:39:43.80>>108だけど
最終行取得はENDプロパティ使う事を想定したのよ
>>【4 VBAでの回答の可否】 否
ならこれ以上 VBA云々言っても なので やめとくよ
0114名無しさん＠そうだ選挙にいこう
2016/10/01(土) 22:18:55.12後、初歩的な事しかわからないので、ちょっと大変そうで避けてる感じです(´・ω・`)
0115名無しさん＠そうだ選挙にいこう
2016/10/01(土) 22:55:31.59誰でも最初は初心者だよ
覚えようと努力した奴だけが上に行ける
いつまでも手動作業で苦労したいならそのままでいいんじゃないか？俺には関係ないぜ
0116名無しさん＠そうだ選挙にいこう
2016/10/01(土) 23:35:56.08【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否（この機会に覚える覚悟）
A10、B10、C10と打ってきてC列まで来たらショートカットかなにかで
Q列のデータがある真下のセルにジャンプする方法ないでしょうか？
A10、B10、C10の次は改行してA11、B11、C11、と下へ下がっていきます。
C列の入力が終わったらQ列にデータ入力したいわけです。
といっても毎回ではなくジャンプは任意で行いたい(Q列に入力しない場合もあるので)
やはりマクロじゃないとだめですか？
0117名無しさん＠そうだ選挙にいこう
2016/10/01(土) 23:57:12.28どれでも好きなものを
・C～Qの間を非表示にする
・ウィンドウの分割やウィンドウ枠の固定
・「表示」→「新しいウィンドウを開く」でウィンドウを並べる
・上に近いけどグループ化という物がある。アコーディオンみたいなやつ。
http://kokoro.kir.jp/excel/group.html
・hyperlink()を使う
=HYPERLINK("#Q"& COUNTA(Q:Q)+1,"クリックでQ列の最下段に移動（途中に空欄があるとダメー）")
・マクロで作ったわ。ctrl+QでQ列最下段にカーソルが移動する
http://www.dotup.org/uploda/www.dotup.org1021053.zip
0118名無しさん＠そうだ選挙にいこう
2016/10/02(日) 00:29:26.56㌧。
実はA～Cは例えでちゃんとしたやつ見てきます
0119名無しさん＠そうだ選挙にいこう
2016/10/02(日) 11:04:29.40http://www.excel.studio-kazu.jp/kw/20030430220750.html
012087
2016/10/03(月) 22:00:00.2996は答えなのでしょうか？
Sub test()
Select Case VarType(Range("b2").Value)
Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency, vbDecimal
～
End Select
End Sub
┌─────────┐
│コンパイルエラー： ｜
│構文エラー │ となりました。
└─────────┘
答えでしたら、そのまま使えるのを書いてくださらないと
答えとは言えないのではないでしょうか？
そもそも、絶対教えたくないなら、横レスしないで静観していてください。
012187
2016/10/03(月) 22:08:06.48どこが失礼でしょうか？
94の「かっこ悪い」の意味が分かりません。
シンプルに・・・だったら分からなくもないです。
【ここ重要】
最悪なのは、かっこ悪いといって書き直した↓が正常に動作しないこと。
If IsNumeric(Range("B2").Value) Then Range("B2").Interior.Color = 65535
97は質問に対し「で行けるな」と書いたわけですが、これで分かるのは
書いた本人だけではないでしょうか？
また、105と106は貴方の自演ですね？
こんな自演をしていて恥ずかしくないですか？
0122名無しさん＠そうだ選挙にいこう
2016/10/03(月) 22:19:57.22どうぞー
できたら >>1 の質問テンプレ書いてね～ お願いですよ
0123名無しさん＠そうだ選挙にいこう
2016/10/04(火) 12:10:31.42【2 Excelのバージョン】Excel2003
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】否
ワケあって2003を使い続けなければならない環境です。
シートAをひな形として、毎日Aをコピーしてシート名をその日の日付に変更して日報（シートB）を作成しています。
時々誤ってAを消したり、Aに書き込んでしまったりするユーザーがいるので、A自体はロックしてあるけどコピーはできて、コピーしてできたシートBには書き込みができる、という運用をしたいです。
どのようなやり方がありますでしょうか。
0124123
2016/10/04(火) 12:12:42.18ツール＞保護＞シートの保護
で保護すると、保護された状態でコピーされてしまい、書き込みができません。
0125名無しさん＠そうだ選挙にいこう
2016/10/04(火) 12:27:59.09拡張子を xls → xlt に
0126名無しさん＠そうだ選挙にいこう
2016/10/04(火) 12:28:13.69入力すべき場所をドラッグしてセルの書式設定から保護を外してからシートの保護をするのはどうだろう？
普段使っている2007でできるから、恐らく2003でもできると思うんだが
0127名無しさん＠そうだ選挙にいこう
2016/10/04(火) 12:32:10.83vbaが一番手っ取り早いが、無理か
あとシート数の上限って256だけどそのやり方で大丈夫？大丈夫なら良いけど
やり方としては色々ある
・vbaでシートの自動生成
・書き込み禁止の別ブックにしておいて、そこからシートをコピー。
・書き込み禁止の別フォルダにしておいて、そこからシートをコピー。
・最初に大量にシートを作っておく。元をAとしてコピーBを作成、更にコピーC、BCをコピーしてDE、Bcdeを・・・とすれば一気に大量のコピーができる。後はリネームするだけ。最後に念のためAを非表示にしておく。
ただこのやり方だとめちゃくちゃ重くなる可能性がある
・表形式にする。シートXを作成。A列に日付、B列に名前、C列に作業とし、日付シートはシートXの内容を引っ張ってくる
0128名無しさん＠そうだ選挙にいこう
2016/10/04(火) 12:33:00.72可能ならこれがいいよな
vbaが使えないならvbsで代用もできるし
0129123
2016/10/04(火) 12:45:19.95ここのスレはじめてきたけど、親切さんがたくさんいてありがたい。
同じファイルをみんなで参照してるから、毎日参照先が変わると運用がちょっと面倒になるんです。
ユーザーがおばちゃん達なんでできるだけシンプルにしたいんです。
シート全体を保護して、入力するセルだけ保護を解除する>>126さんに提案してもらったやり方がうちにはあいそうです。
vba便利そうだから、勉強してみようかな・・・。
0130123
2016/10/04(火) 12:46:12.882003でもできました。
0131名無しさん＠そうだ選挙にいこう
2016/10/04(火) 15:55:04.920132104
2016/10/04(火) 20:32:42.67>>106は自分だけど>>105は違う人だよ
自分に都合が悪い流れだからといって自作自演と決めつけてけなすのは失礼だよ
以下、>>87 =>>93 =>>98 =>>121前提でのレスです
やり方・考え方・答え方とかは人によって違うから、ドンピシャで返してくれる人もいれば、今後自分で考えられるようにとヒントだけくれる人もいる
もらった答えでわからなければ、お願いして聞けばきっと何かしら返してもらえるだろうに、どうにかしようとしてる気配も感じられない返答
答えてくれてるのは貴方の友達でも、家庭教師とか有料サービスのサポートさんでも、自動返答ロボットでもないのにさ
それなのに、質問に対してどうやったら解決するかを答えてくれてる相手に対して、その言い方はどうなのかな？と個人的に思っただけ
少なからず、貴方の反応の仕方によって回答者さんの中で教える気を無くした人もいると思うよ
自己意見、長々と失礼しましたm(_ _)m
0133名無しさん＠そうだ選挙にいこう
2016/10/04(火) 22:10:27.740134名無しさん＠そうだ選挙にいこう
2016/10/04(火) 22:27:57.52それもう相手せんでいいよ。我慢出来ないならNGへ。
0135名無しさん＠そうだ選挙にいこう
2016/10/04(火) 22:30:51.10If IsNumeric(Range("B2").Value) = True Then Range("B2").Interior.Color = 65535
かっこいい
If IsNumeric(Range("B2").Value) Then Range("B2").Interior.Color = 65535
= Trueと書くと、かっこ悪いんですか？
0136名無しさん＠そうだ選挙にいこう
2016/10/04(火) 22:38:06.08>>125 12:27:59.09
>>126 12:28:13.69
>>127 12:32:10.83
>>128 12:33:00.72
>>129 12:45:19.95
短時間で解決できて良かったね
0137名無しさん＠そうだ選挙にいこう
2016/10/04(火) 22:49:51.30isnumber()
の戻り値はtrueかfalseしかないから
=true
と書く理由がない
自分がわかりにくいという理由で付けているなら、今度から外して理解できるようになれ
かっこ悪いかどうかに関しては、安全のためにヘルメットをかぶり、その上にヘルメットをかぶってるイメージ
こいつ頭おかしいんじゃねーの？と感じる
それをカッコイイと思うなら続ければ良いんじゃない？俺には関係ないからどうでもいい
0138名無しさん＠そうだ選挙にいこう
2016/10/04(火) 23:31:12.21マクロでIsNumber()が使えるんだけ？と思って調べたら、WorksheetFunction.IsNumber()なのかな？
IsNumeric()との使い分けがワカランｗ
0139名無しさん＠そうだ選挙にいこう
2016/10/04(火) 23:47:14.06ワークシート関数から持ってくる必要はないよ。
rand()とかも名前同じにしてほしいわ
0140名無しさん＠そうだ選挙にいこう
2016/10/05(水) 00:00:56.67なるほど。
ただ、ググると = True で載せてるサイトもありますねｗ
0141名無しさん＠そうだ選挙にいこう
2016/10/05(水) 00:04:51.98さっきも言ったけど俺には関係ないのでどうでもいいし、君も好きにすればいいと思う
0142名無しさん＠そうだ選挙にいこう
2016/10/05(水) 00:23:52.62B2に100と書いても'100と書いても黄色くなるのが気になる
0143名無しさん＠そうだ選挙にいこう
2016/10/05(水) 00:39:47.32それは上で答え出たよ
0144名無しさん＠そうだ選挙にいこう
2016/10/05(水) 01:58:06.42俺125だけど自演じゃないから
0145名無しさん＠そうだ選挙にいこう
2016/10/05(水) 02:03:51.50俺は126だけど自演じゃないよ
0146名無しさん＠そうだ選挙にいこう
2016/10/05(水) 06:00:47.00いや、俺が>>126だ
0147名無しさん＠そうだ選挙にいこう
2016/10/05(水) 06:01:30.80いや、俺が>>126だ
0148名無しさん＠そうだ選挙にいこう
2016/10/05(水) 07:56:39.200149名無しさん＠そうだ選挙にいこう
2016/10/05(水) 20:45:39.64>ワケあって2003を使い続けなければならない環境です。
これって滅茶苦茶失礼だろ
オレみたいに好んで2003一筋の人だっているんだぜ
0150名無しさん＠そうだ選挙にいこう
2016/10/05(水) 21:32:23.45公式サポート終わったバージョンに対する質問なんだから多少遠慮するのは無理ないかと
ま、俺も普段仕事は2007だから今さら2010使えと言われても戸惑いそうだが
自宅ＰＣで、2013→2016と使ってるからそっちに慣れはあるが
0151名無しさん＠そうだ選挙にいこう
2016/10/05(水) 21:38:31.00テメエのドM性癖なんざどうでもいい
0152名無しさん＠そうだ選挙にいこう
2016/10/05(水) 21:40:52.53WINDOWS10で OFFICE2003
なら
動く動かないにかかわらず
OFFICE2003自身のサポートも切れてる
＆
WINDOWS10での動作はMS公式にサポートされてない
なら
"使い続けなければならない"って感覚 同感できるぞ
0153名無しさん＠そうだ選挙にいこう
2016/10/06(木) 01:08:44.50失礼じゃないよ。
>>151の言い方は失礼だけど、全面的に同意ではある。完全にスタンドアロンならともかく、互換性などの面でいい加減厳しい
会社でも2003大好きな人が悲鳴上げながら2010に変えさせられてた
0154名無しさん＠そうだ選挙にいこう
2016/10/06(木) 01:11:17.98【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
英字キーボード使ってる人に質問です。
Excelで不便な点などありますか？もしあれば教えて頂きたいです。
0155名無しさん＠そうだ選挙にいこう
2016/10/06(木) 03:37:02.80「100」は数値、「'100」は文字列なのに、結果が同じになる理由が分かりません
IsNumeric関数
構文
IsNumeric(expression)
引数expresionには、数式または文字列式を含むバリアント型の式を指定します。
解説
引数expresionが、数値として認識できる場合はTrueを返します。それ以外はFalseを返します。
0156名無しさん＠そうだ選挙にいこう
2016/10/06(木) 05:04:52.41これ、典型的なExcelのバージョンの問題だよな
2007以前は文字列数字は文字列と認識されたが2010以降は数字と認識されるようになった
結果、判定結果がバージョンによって異なることになった
0157名無しさん＠そうだ選挙にいこう
2016/10/06(木) 06:00:33.55ずっとこの仕様だったと思うけど…
“数値型”かどうかをチェックするんじゃなく、
“数値” として評価（変換）できるかをチェックするものだし
ワークシート関数の
WorksheetFunction.IsNumber() とごっちゃになっていない？
0158名無しさん＠そうだ選挙にいこう
2016/10/06(木) 07:27:44.04直接入力の切り替えぐらい
0159名無しさん＠そうだ選挙にいこう
2016/10/06(木) 09:20:39.970160名無しさん＠そうだ選挙にいこう
2016/10/06(木) 10:22:38.500161名無しさん＠そうだ選挙にいこう
2016/10/06(木) 10:41:54.00valueプロパティ見れば分かるけど、valueプロパティはアポストロフィがそもそもついてない状態で取得されるのが原因なのよ
アポストロフィのある無しで変わるのは
vartype()で取得できる型
cells(y,x).PrefixCharacter
lengthも同じになる
この変ややこしいな
0162名無しさん＠そうだ選挙にいこう
2016/10/06(木) 17:14:14.110163名無しさん＠そうだ選挙にいこう
2016/10/06(木) 18:25:28.06A2セルに 20
A3セルに =A1+A2 と入力したら、30になった！
なんでエラーにならないの？
エクセルってバカなの？
0164名無しさん＠そうだ選挙にいこう
2016/10/06(木) 18:30:04.60弱い動的型付けという仕様
バカで無能なのは君なので、今後も安心してExcelを使ってくれ
ちなみに悪く言ってるわけでも煽ってるわけでもなくただの真実だ
0165名無しさん＠そうだ選挙にいこう
2016/10/06(木) 18:41:14.79`10で何を表現したいの？
その`10と20を足す方が馬鹿なんじゃないの？何で足してんの？馬鹿なの？
0166名無しさん＠そうだ選挙にいこう
2016/10/06(木) 18:46:37.990167名無しさん＠そうだ選挙にいこう
2016/10/06(木) 18:50:16.240168名無しさん＠そうだ選挙にいこう
2016/10/06(木) 19:56:21.160169名無しさん＠そうだ選挙にいこう
2016/10/06(木) 20:33:02.96今試しに打ってみたけど使ったの人生初かもしれん
0170名無しさん＠そうだ選挙にいこう
2016/10/06(木) 21:02:03.270171名無しさん＠そうだ選挙にいこう
2016/10/06(木) 21:22:22.220172名無しさん＠そうだ選挙にいこう
2016/10/06(木) 21:33:33.74バッククォート ┐(´ｰ｀)┌ﾔﾚﾔﾚ
0173名無しさん＠そうだ選挙にいこう
2016/10/07(金) 17:05:35.38【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
配列数式が長すぎて短縮したいんですが
INDIRECT関数なしで短縮する方法ってありますか？
COUNT(B2:B5-C3:C6) みたいな式をもっと短くしたいです
わかる方いらしたらよろしくお願いします
0174名無しさん＠そうだ選挙にいこう
2016/10/07(金) 17:12:37.63作業列使えば？
0175名無しさん＠そうだ選挙にいこう
2016/10/07(金) 17:14:25.960176名無しさん＠そうだ選挙にいこう
2016/10/07(金) 17:17:19.27実際のブックを見てみないとわからんな
0177名無しさん＠そうだ選挙にいこう
2016/10/07(金) 17:41:21.64いろいろためしてみて駄目だったので、式書いてくれるとほんと助かります
0178名無しさん＠そうだ選挙にいこう
2016/10/07(金) 17:43:52.36別にいいけどな
0179名無しさん＠そうだ選挙にいこう
2016/10/07(金) 17:55:36.70(A1:A3-B1:B3)*(C1:C3-D1:D3)>0
)*1)
(A1:A3-B1:B3)の部分を短縮したいです
0180名無しさん＠そうだ選挙にいこう
2016/10/07(金) 18:16:16.94【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
A1セルに「(1)りんご (2)バナナ (3)みかん (4)キウイ…(10)オレンジ」と1行で入っているデータを、B1に「(1)りんご」、B2に「(2)バナナ」…といった感じで全部分離させる方法はないでしょうか？
VBAは使えません
(上に書いた果物はあくまで例で()内の数字は10個とは限りません)
0181名無しさん＠そうだ選挙にいこう
2016/10/07(金) 18:22:04.64メニューのデータ 区切り位置
0182名無しさん＠そうだ選挙にいこう
2016/10/07(金) 18:25:11.66それだけ書かれてもまったく意味がわかりません
0183名無しさん＠そうだ選挙にいこう
2016/10/07(金) 18:26:12.22そう？俺は分かるけどなー
http://www.becoolusers.com/excel/text-to-columns.html
0184名無しさん＠そうだ選挙にいこう
2016/10/07(金) 18:28:00.27>>175に書いてあるけど 作業列使っていい のよね?
E1 =(A1-B1)*(C1-D1)
下にオートフィル
=SUMPRODUCT((E1:E3>0)*1)
でどや
0185名無しさん＠そうだ選挙にいこう
2016/10/07(金) 18:38:57.10他にも何か方法があればどなたかよろしくお願いしますm(_ _)m
0186名無しさん＠そうだ選挙にいこう
2016/10/07(金) 18:52:29.350187名無しさん＠そうだ選挙にいこう
2016/10/07(金) 19:28:08.980188名無しさん＠そうだ選挙にいこう
2016/10/07(金) 20:19:10.89=(A1:A3-B1:B3)*(C1:C3-D1:D3)>0の式をG8（作業セル）とかに文字列として貼って
この式をE11のセルで呼び出すとき、セル番号（G8）と何かの関数を使って呼び出す
0189名無しさん＠そうだ選挙にいこう
2016/10/07(金) 20:28:05.170190名無しさん＠そうだ選挙にいこう
2016/10/07(金) 20:36:52.41マクロ4.0で可能
http://officetanaka.net/excel/function/tips/tips57.htm
0191名無しさん＠そうだ選挙にいこう
2016/10/07(金) 21:23:53.65上からの話の流れだよ
バカには分からんか、バカには
しかも「`10」ってｗｗｗ
ホント、バカって生きるのが辛そうだね
0192名無しさん＠そうだ選挙にいこう
2016/10/07(金) 23:00:08.36パッと思いつくのは、原始的だけど、テキストエディタに文字列をコピペして、（をカンマに置換。
csvで保存
0193名無しさん＠そうだ選挙にいこう
2016/10/08(土) 04:09:31.65http://kokoro.kir.jp/office/img/toolbar7.gif
↑このようにメニューが自由自在に移動できるようになっているのを、完全固定にして一切移動できなくする方法は無いのでしょうか？
0194名無しさん＠そうだ選挙にいこう
2016/10/08(土) 08:06:27.47ない
0195名無しさん＠そうだ選挙にいこう
2016/10/08(土) 09:46:16.08マクロとVBAなしでは無理ですかね
0196名無しさん＠そうだ選挙にいこう
2016/10/08(土) 13:53:13.32【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 初歩的な事は理解
【4 VBAでの回答の可否】 可
例えばA列はA1、A4、A10、B列はB1からB20までデータが入ってるとします。
空白であるA2～A3にはA1のデータ、A5～A9にはA4のデータ、A11～A20にはA10のデータを入力というように空白のセルにその上のデータを自動で入力する方法はどうすれば良いでしょうか？
A列の最後のセルはB列の最後の行まで入力出来るようにしたいです。
ちなみにデータは1日毎に増えていく感じです。
0197名無しさん＠そうだ選挙にいこう
2016/10/08(土) 14:11:53.92Sub Macro()
For Each c In Intersect(ActiveSheet.UsedRange, Range("b:b"))
If c.Offset(0, -1) <> "" Then
v = c.Offset(0, -1)
Else
c.Offset(0, -1) = v
End If
Next
End Sub
0198名無しさん＠そうだ選挙にいこう
2016/10/08(土) 16:15:15.54そこまでやりたいことがちゃんと整理できているのに、
なんで自分でコード化できないんだ？
不思議でしょうがない。
0199名無しさん＠そうだ選挙にいこう
2016/10/08(土) 16:32:51.36UsedRangeよりCurrentRegionの方がいいな
0200名無しさん＠そうだ選挙にいこう
2016/10/08(土) 17:27:08.97ありがとうございます。イメージ通りに出来ました
感謝します。
>>198
お恥ずかしい限りです。VBAを最近、独学し始めたもので…。今後、しっかり勉強していきます。
0201名無しさん＠そうだ選挙にいこう
2016/10/08(土) 19:04:30.33無理
0202名無しさん＠そうだ選挙にいこう
2016/10/08(土) 20:16:17.28あ、俺の質問に答えてくれてた人ですかね？
おかげで望み通りの事ができるようになりました
長々と付き合ってくださり本当にありがとうございました
0203名無しさん＠そうだ選挙にいこう
2016/10/09(日) 22:03:08.70【2 Excelのバージョン 】 Excel2010 （できれば2003）
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
A列に名前、B列に○or?or△というsheet1があります
sheet2の名簿（A列に名前のリスト）に、sheet1A列に名前があり、かつ、その行のB列が○である人
をチェックしたいのですがどのようにすればよいでしょうか
=countif(sheet1!A:A,A1)
の列を作って名前の照合だけをしていたのですが、そこに↑のような条件を加える必要がでてきたという状況です
Excel2003で動くと嬉しいですが、「できれば」程度です
0204名無しさん＠そうだ選挙にいこう
2016/10/09(日) 22:14:56.54コピーしてオートフィルタ、もしくは並び替えでいいんじゃないか？
=IF(Sheet1!B1="○",Sheet1!A1,"")
こういうのをsheet2!A1に入力してもいいけど、使い勝手はイマイチ
俺ならコピーして並び替えるかな。そしてそのマクロを作る。
0205名無しさん＠そうだ選挙にいこう
2016/10/09(日) 22:15:33.03まぁなんでもいいわ、そんなに複雑に考えないほうがいいと思う
0206名無しさん＠そうだ選挙にいこう
2016/10/10(月) 08:01:44.99【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 否
【4 VBAでの回答の可否】 否
ピボットテーブルについての質問です。
1年分のデータがあり日付の形式はyyyy/mm/dd hh:mmです。
月ごとや時間ごとの集計はできたのですが日毎の集計がうまく行きません。
1月の1日、2月の1日、3月の1日、4月の… というのをまとめて
1日 (毎月1日の合計値)
2日 (毎月2日の合計値)
3日 (毎月3日の合計値)
4日 (毎月4日の合計値)
：
：
としたいのですがピボットでのグループ化設定はどうすればできますか？
0207名無しさん＠そうだ選挙にいこう
2016/10/10(月) 09:53:28.752003ならデータ量によるけど、sumproductか配列数式でいいんじゃない？
データ多いならピボットかフィルター
0208名無しさん＠そうだ選挙にいこう
2016/10/10(月) 10:19:31.68http://up.mugitya.com/img/Lv.1_up97846.png
0209203
2016/10/10(月) 19:19:49.06今回は照合が一度だけ必要だったのでこういう時は並び替えなどでいけるんだなーと…
>>208で分かりやすく図解して下さってとても助かりました！
かえって難しく考え過ぎだったのですね
sumproductも覚えたので次以降も必要になった時にもいけそうです
皆様ありがとうございました
0210名無しさん＠そうだ選挙にいこう
2016/10/11(火) 21:10:59.47【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 少々
【4 VBAでの回答の可否】 おｋ
A B
1 ぱぱいや鈴木
2 鈴木尚広
3 きゃりーぱむぱむ
4 鈴江奈々
A列に連番、B列に名前（データ）があるとき、
B2セルに「鈴」と入れてボタンをクリックしたら
オートフィルタの「指定の値を含む」のように
ぱぱいや鈴木
鈴木尚広
鈴江奈々
を引っ張ってくるようなことはできますか？
0211名無しさん＠そうだ選挙にいこう
2016/10/11(火) 21:31:02.87できるけど、B2に鈴木尚広が入ってるのにB2に入力するのか？
もう少し何がやりたいのかを書かないと「できる」としか答えようがないぞ
0212sage
2016/10/11(火) 21:39:33.67【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
データを期間抽出する際
A1セルに >=2016/10/01 A2セルに <=2016/10/01 としたのですが
毎回比較演算子を入れないようユーザー書式で設定するのはどのように
書いたらいいでしょうか
0213名無しさん＠そうだ選挙にいこう
2016/10/11(火) 21:53:48.76似たようなことは普段から使ってるな
VBAも特に必要ない
恐らくは、連番はA３から始まるのかな？
0214名無しさん＠そうだ選挙にいこう
2016/10/11(火) 21:59:28.45これは気づかなかったぜぇ・・・
0215名無しさん＠そうだ選挙にいこう
2016/10/12(水) 02:34:53.57入力セルと処理セルを分ければ簡単
入力セルを基準に大きいか小さいかを比較すればいい
0216名無しさん＠そうだ選挙にいこう
2016/10/12(水) 11:51:11.45【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
A B C
1 ○ 3
2 × 5
3 × 1
4 ○ 2
5 ○ 8
6 ○
7 ×
8 ×
9 ○
上のような表で、A列がC1:C5のいずれかに一致して、かつB列が○である個数(この場合3→×、5→○、1→○、2→×、8→×なので、2)を求めるにはどうしたらよいでしょう。
COUNTIFSの条件に範囲指定ができればいいんですが……。
よろしくお願いします。
0217名無しさん＠そうだ選挙にいこう
2016/10/12(水) 13:19:46.75難しく考えなくても 良いんじゃね?
D1 =COUNTIFS(A:A,C1,B:B,"○")
D5まで下にオートフィル
=SUM(D1:D5)
で答えの 2 が出る
0218名無しさん＠そうだ選挙にいこう
2016/10/12(水) 20:30:19.76【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
マクロで検索と置換画面を出すようにしたんだけど
前回検索した語句だけクリアできないでしょうか
今はこんな感じです
Sub kensaku()
Const find_replace = 1849
Application.FindFormat.Clear
Application.CommandBars.FindControl(ID:=find_replace).Execute
End Sub
0219名無しさん＠そうだ選挙にいこう
2016/10/13(木) 00:00:38.62Sub kensaku()
'Range.Find()をCallして初期値を設定(<-引数の設定が保存されるのを利用)
Call Cells.Find(What:="", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False)
'ダイアログ表示
Const find_replace = 1849
Application.FindFormat.Clear
Application.CommandBars.FindControl(ID:=find_replace).Execute
End Sub
0220名無しさん＠そうだ選挙にいこう
2016/10/13(木) 01:59:03.73ありがとうございます。
その方法ならできることは理解してるんですが、作業列なしで1セルでできる方法はないかなと思って。
実際はビンゴのチェックを作ってて、C1:G5の5×5=25セルにランダム数値が入っていて、それが20セットくらいあるので作業列にしたくないなあと。
VLOOKUPとIFで、○なら1にして5列分足すことで、いちおう1セルでもできてはいるんですが、数式コピーすると範囲がずれてしまうんですよね……数式も長いし。
0221名無しさん＠そうだ選挙にいこう
2016/10/13(木) 02:26:22.92【2 Excelのバージョン 】 Excel 2013
【3 VBAが使えるか .】 多少...
【4 VBAでの回答の可否】 可
Excelで秒数である「65.764」を「01:05.764」に変換したいのですが、ホーム→数値→ユーザー定義→「mm:ss.0」にしても正しく変換されません...。
正しいやり方を教えてください。
0222名無しさん＠そうだ選挙にいこう
2016/10/13(木) 02:27:30.56絶対参照使えば数式コピーしてもずれないようにできると思うけど、
そもそも最初からVBAでやった方が早いんじゃ？
0223名無しさん＠そうだ選挙にいこう
2016/10/13(木) 02:31:01.23Excelの1は1日のことだから、1時間は1/24、1分は1/24/60
秒に変換するには秒数/24/60/60で割らないといけない
0224名無しさん＠そうだ選挙にいこう
2016/10/13(木) 02:56:06.61だとすると、簡単にワンクリックでって訳にはいかなそうですねぇ...。
0225名無しさん＠そうだ選挙にいこう
2016/10/13(木) 06:41:41.34【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
A B
10月06日 （空欄）
10月07日 5
10月08日 4
10月09日 （空欄）
10月10日 3
10月11日 （空欄）
10月12日 2
10月13日 （空欄）
10月14日 （後日1を入力）
このような縦列の場合で質問です。
いまは別セルに10月12日の「2」と表示させ、13日の空欄の場合は「2」のまま、
14日にB列の該当セルに「1」を入力したと同時にその別セルが自動的に「1」と表示されるようにしたいです。
（B列一番下に入力されてる数字を別セルに表示させたい）
OFFSET関数を使ってみたのですが、空欄の部分はないと判定されて、一番下の数字から空欄の数だけ上に戻ってしまいました…
0226名無しさん＠そうだ選挙にいこう
2016/10/13(木) 07:08:43.43空白なら一つ前の値を埋め込んで
そっちの値を見るようにすればいいのでは
0228名無しさん＠そうだ選挙にいこう
2016/10/13(木) 09:50:18.86vbaならノークリックでも可能
>>225
二行目から始まってるとして
c2=IF(B2<>"",B2,C3)
下にオートフィル
0229名無しさん＠そうだ選挙にいこう
2016/10/13(木) 12:25:45.01試してみましたけどどうもうまく作動しないようです？
説明が下手で誤解されている可能性があります…
（A列日付、B列個数で、2行目から記述を開始しています）
個数の現在値を別セル（C2あたり）に表示させたいのです。
11日の場合ですとC2に"3"、12日ならC2に"2"、13日ならC2に"2"といった感じです。
C2に「=OFFSET(B3,COUNT(B3:B10)-1,0)」と入力してみたのですが、
空欄の数だけ巻き戻る？上になってしまって？、"2"と表示してもらいたいのに"3"になります。
空欄の場所を文字で埋めることはできないので、なんとか方法を探しています。
0230名無しさん＠そうだ選挙にいこう
2016/10/13(木) 12:32:48.97C2=IF(B2<>"",B2,C1)
下にオートフィル
0231名無しさん＠そうだ選挙にいこう
2016/10/14(金) 01:02:52.22【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 否
【4 VBAでの回答の可否】 否
ピボットテーブルについての質問です。
1年分のデータがあり日付の形式はyyyy/mm/dd hh:mmです。
月ごとや時間ごとの集計はできたのですが日毎の集計がうまく行きません。
1月の1日、2月の1日、3月の1日、4月の… というのをまとめて
1日 (毎月1日の合計値)
2日 (毎月2日の合計値)
3日 (毎月3日の合計値)
4日 (毎月4日の合計値)
：
：
としたいのですがピボットでのグループ化設定はどうすればできますか？
0232名無しさん＠そうだ選挙にいこう
2016/10/14(金) 01:19:35.42=DAY(A1)
それでピボット集計する
0233名無しさん＠そうだ選挙にいこう
2016/10/14(金) 04:38:19.49ありがとうございます
別の問題も一気に解決しました！
0234名無しさん＠そうだ選挙にいこう
2016/10/17(月) 15:54:55.652010
0235名無しさん＠そうだ選挙にいこう
2016/10/17(月) 16:00:49.760236名無しさん＠そうだ選挙にいこう
2016/10/17(月) 18:31:58.412010
0237名無しさん＠そうだ選挙にいこう
2016/10/17(月) 18:36:25.040238名無しさん＠そうだ選挙にいこう
2016/10/18(火) 04:14:51.12とセルに入力してみたら？
0239名無しさん＠そうだ選挙にいこう
2016/10/18(火) 07:02:57.37今会社で変えて色々評価中
0240名無しさん＠そうだ選挙にいこう
2016/10/18(火) 14:38:58.20【2 Excelのバージョン 】 Excel2011
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
社外用のとある申込書を作る事になっております。
集まる人数は合計で約100社近くにはなるのですが、
最終的に会社別にまとめなくてはなりません。
(合計数等ではなく、完全に会社別で。
A1:受領日、B1:社名、C1:部署名みたいな感じので、それが100列出来るイメージです。)
この場合、どんな風な申込書を作れば後で楽でしょうか？
0241名無しさん＠そうだ選挙にいこう
2016/10/18(火) 14:54:04.18gooogleformを使うほうが楽じゃない？
https://www.google.com/intl/ja_jp/forms/about/
＞集まる”人数”は合計で約100”社”近
＞100列
これは100行？
0242名無しさん＠そうだ選挙にいこう
2016/10/19(水) 23:13:19.20【2 Excelのバージョン 】 Excel 2010
【3 VBAが使えるか .】 勉強中
【4 VBAでの回答の可否】 かんたんなものなら
フィルタオプションでテレビを抽出する際、B列の空白部分も抽出したいのですが
A列 B列
1 テレビ
2 テレビ 岡田
3 DVD 田中
4 DVD
5 テレビ 阿部
6 テレビ
7 ラジオ 田中
8 テレビ 田中
フィルタオプションA列 テレビ B列 田中で抽出後
A列 B列
1 テレビ
6 テレビ
8 テレビ 田中
B列を指定しないでテレビだけ抽出した場合
1 テレビ
2 テレビ 岡田
5 テレビ 阿部
6 テレビ
8 テレビ 田中
B列の抽出入力セルC2 計算セルD2としています。
D2を=C2&""としたのですが空白が抽出できません宜しくお願い致します。
0243名無しさん＠そうだ選挙にいこう
2016/10/19(水) 23:28:30.34C2=IF(OR(A2="テレビ",B2=""),TRUE,FALSE)
C列をTRUEでフィルタ
0244名無しさん＠そうだ選挙にいこう
2016/10/21(金) 13:01:27.01excelのバージョン：2013
vba:分かるが無関係な質問です
いくつかのセルに数式、例えば =
0245名無しさん＠そうだ選挙にいこう
2016/10/21(金) 13:03:45.03os:windows7
excelのバージョン：2013
vba:分かるが無関係な質問です
いくつかのセルに数式、例えば =(ダブルコーテーション2つ) を書き込んで、
そのセルをコピー -> 同じセル領域に値の張り付けで上書きしても、
セルの中になにかが入っているようで未使用のセルにはなりません
(ｃｔｒｌ+矢印キーで移動すると端まで一気に移動する)
一体空白セルとなにが違うのでしょうか?
0246名無しさん＠そうだ選挙にいこう
2016/10/21(金) 13:09:07.79文字列0の使用しているセルとみなされているっぽい
解除方法はそのセルでdeleteキーで消して保存、再度開くと
(ｃｔｒｌ+矢印キーで移動すると端まで一気に移動する)
がなくなる
まぁ、こういう仕様。
なんでこういう仕様なのかと考えるのはやめた方が良いぞ。時間の無駄だ
0247名無しさん＠そうだ選挙にいこう
2016/10/21(金) 13:20:42.22【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 一応
マクロの記述について教えてください。
従業員全員（数百人）に、個別の内容でメール配信をします。
重要な内容なので、開封通知を受け取りたいのですが、開封通知を求める記述（objMail.MDNRequested = true）をすると、１件目の送信時点でエクセル自体が強制終了されてしまい、後の命令が実行されません。
その１件には、きちんと開封通知がついています。
↑の記述をコメント化すると、正しく動きます。
メール送信の記述は以下のとおりなのですが、解決できるものでしょうか？
sub test()
Dim objMail As Object
Dim strConfigurationField As String
Set objMail = CreateObject("CDO.Message")
strConfigurationField = "http://schemas.microsoft.com/cdo/configuration/";
With objMail.Configuration.Fields
.Item(strConfigurationField & "sendusing") = ｘ'送信先（外部SMTPサーバ）
.Item(strConfigurationField & "smtpserver") = "ｘ.ｘ.ｘ.ｘ" 'SMTPサーバIPアドレス
.Item(strConfigurationField & "smtpserverport") = ｘ'SMTPサーバポート
.Item(strConfigurationField & "smtpauthenticate") = ｘ '認証方式（匿名認証）
.Item(strConfigurationField & "smtpconnectiontimeout") = 60 'サーバ接続タイムアウト
.Update
End With
0248名無しさん＠そうだ選挙にいこう
2016/10/21(金) 13:21:53.46'objMail.MDNRequested = true
objMail.From = “a@a”’差出人メールアドレス
objMail.CC = “a@b”’CCアドレス
objMail.Subject = “タイトル”
objMail.TextBody = “本文”
objMail.Send
end sub
0249名無しさん＠そうだ選挙にいこう
2016/10/21(金) 13:54:55.02【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 否
【4 VBAでの回答の可否】 否
テキストファイルの資料をエクセルで加工したいのですが
エクセルにコピーしたとき所々改行されてます
テキスト上は普通の一行です
この改行なくすにはどうしたらいいでしょうか？
0250名無しさん＠そうだ選挙にいこう
2016/10/21(金) 13:59:42.72よく分からんね
ぐぐってみたけど、もしかしたら認証系で不具合が起こっているのかも。別の場所が悪いかもしれない
https://social.msdn.microsoft.com/Forums/vstudio/ja-JP/83450873-5680-4775-8555-1e214884cea4/cdomessage?forum=vbgeneralja
もしかしたらExcelファイルが破損していてエラーになるかもしれない
再インストールしたら治る可能性がないでもないが、可能性は低そうだ
重要なメールなら、別の方法を考えたほうがいいかもしれない
・vbaにしても別のメール送信方法
・vba意外を使う
>>249
どんな改行かわからないのでテキストファイルをあげてほしい。改行はもちろん、その前後3文字ぐらい
多分crかlfの改行があるので、それを除去する必要があると思う
0251名無しさん＠そうだ選挙にいこう
2016/10/21(金) 15:03:13.39【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい･
【4 VBAでの回答の可否】 可
VBAでブックを違うフォルダにリネーム後に、リネーム前のブックを削除する方法はありませんか?
0252名無しさん＠そうだ選挙にいこう
2016/10/21(金) 16:12:17.09単なるリネームとフォルダの移動のみなら
name ステートメントを使えば良い
Name 元のフルパスファイル名 As 新しいフルパスファイル名
で移動とリネームが一度で済ませられる
0253251
2016/10/21(金) 22:47:02.42nameの使い方が間違っているのか、ファイルが見つかりません。となります。
元のフルパスファイル名と新しいフルパスファイル名を変数にすると、動かない模様。
都合上、データを削ったファイルをアップロードします。
http://fast-uploader.com/file/7032612562153/
マクロボタンでmodule1を実行すると、yyyymmdd-hhmm”E2”.xlsmにリネームして、
マクロの登録をmodule1から3に変更後、E:\確認に保存。できなくなりましたが。
module3でセルB2の数値を追加してE:\受理に保存。となるはずでした。
いろんな本のコピペだから見ずらいですが、助けてください。
0254名無しさん＠そうだ選挙にいこう
2016/10/21(金) 23:35:26.51myFolder = "\E:受理\"
mySaveName = myFolder & myNumber & ThisWorkbook.Name
Name "xOldPath & xOldName" As "myFolder & mySaveName"
↓
myFolder = "E:\受理\"
mySaveName = myFolder & myNumber & ThisWorkbook.Name
Name xOldPath & xOldName As mySaveName
0255名無しさん＠そうだ選挙にいこう
2016/10/22(土) 06:03:54.09横レスで申し訳ありません。
どうやったら2chの書き込みにダブルクォーテーションが使えるんですか？
私がダブルクォーテーション使うと、そこで文章が途切れてしまいます。
0256名無しさん＠そうだ選挙にいこう
2016/10/22(土) 13:43:20.67普通に専ブラのJaneStyleを使って書き込んでるだけ
自分が知っているのだと普通のブラウザ（IE、Firefoxなど）で書き込み時に
「書きこみ＆クッキー確認」の画面が出た後だとダブルコート以降が途切れる現象は確認している。
※ 普通のブラウザだと途中の画面で「"」 がエスケープされていないっぽい
0257253
2016/10/22(土) 23:05:21.56http://fast-uploader.com/file/7032655347973/
xlsmファイルをあっぷろーだーにうｐしたら、ダウンロードすると訳のわからない
ファイルに化けたので、ZIPにしました。
myFolder = "E:\受理\"
mySaveName = myFolder & myNumber & ThisWorkbook.Name
Name xOldPath & xOldName As mySaveName
これだと「実行時エラー 75 パスが無効です」とエラーが返ってきました。
しかもマクロボタンを書き換えしたままだ。どうしてくれよう。
0258名無しさん＠そうだ選挙にいこう
2016/10/22(土) 23:37:21.33は文字通りpath（ディレクトリ）が無効。
どうおかしいかわからんが、エラーの箇所をmsgboxやコンソールで見ればわかると思う
0259名無しさん＠そうだ選挙にいこう
2016/10/22(土) 23:39:17.150260名無しさん＠そうだ選挙にいこう
2016/10/22(土) 23:46:18.48そのファイル自身が開いているからエラーが出てる。
0261251
2016/10/23(日) 21:53:12.95ブックのリネームと旧ブックの削除は、nameステートメントでできないのでしょうか？
>>258
ローカルウィンドウではmyIniNameの値が""となっているので、ここが取得できないのでしょうが、
なぜ取得できないのかわかりません。
Name xOldPath & xOldName As mySaveName までは機能しているような気がしますが。
0262名無しさん＠そうだ選挙にいこう
2016/10/23(日) 22:20:06.63よくわからんけどこれだけの話？
手直しするより最初から書いたほうが早いわ
Sub a()
'このブックの名前を保存しておく
old_file = ThisWorkbook.Path & "\" & ThisWorkbook.Name
'このブックを別の場所に 保存
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "newname.xlsm"
'fso作成、削除
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.deletefile old_file
End Sub
0263名無しさん＠そうだ選挙にいこう
2016/10/23(日) 22:48:22.80ようは、マクロ関係なしで、aaa.xlsm、bbb.xlsmという2枚のファイルを開いてる状態で、aaaを名前をつけて保存で、bbbに変更（上書き）しようとしてもできないでしょう？
どちらにしてもプログラム切り貼りの限界。
基本から勉強した方が近道かと。
0264名無しさん＠そうだ選挙にいこう
2016/10/24(月) 00:00:52.65【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
A B C ・・・・・
日付 りんご 500
日付 みかん 400
日付 ばなな 300
日付 りんご 700
現在、A列からH列までフィルタをつけており、頻繁にフィルタ検索などを使用してデータを抽出したりしております。
データ抽出の為にわざわざA1-F1までセルを移動したり、フィルタ解除したりと面倒なのでVBAの使用を検討しましたが全くうまくいきません。
InputBoxで日付入力⇒MsgBoxで抽出データ（日付、価格）を表示したいです。
ご教授いただきたくお願いします。
0265251
2016/10/24(月) 00:12:23.11http://fast-uploader.com/file/7032655347973/
ここまでにサンプルです。
１、仮帳票_コピーのマクロ（module2）を実行すると、マクロボタンの割り当てをmodule４に変更。
ブック名を現在時刻の”_YYYYMMDD-HHMM【セルE2】”にリネームして、E:\確認\に保存。
２、マクロボタン「受理」をおす（module4）と、”_YYYYMMDD-HHMM【セルE2】”のセルB2に数値
を入れて、マクロボタンんの割り当てが上書き保存（module２）に変更。”セルB2_”_YYYYMMDD-
HHMM【セルE2】”にリネームして、"E:\受理\"に保存（module４）
※セルB2が空白でmodule４が起動したときは、エラーで返したいのですが、今は無視。
”セルB2_”_YYYYMMDD-HHMM【セルE2】”にリネームまではできるのですが、"E:\受理\"
に保存ができないのと、１、で作成した”_YYYYMMDD-HHMM【セルE2】”を削除したいのです。
0266名無しさん＠そうだ選挙にいこう
2016/10/24(月) 00:57:04.93＞A列からH列までフィルタ
＞A1-F1まで
どっちかわからんからとりあえずH列にしておいたぞ
あと、この部分は環境によって変わるから適宜直してくれ。
2016/1/2→1/2/2016となるように並び替えている。そのままだと動かないかもしれない。
Criteria2:=Array(2, mydate_sp(1) & "/" & mydate_sp(2) & "/" & mydate_sp(0))
分からなければまた聞いてくれ
Sub Macro1()
'日付入力
Do
mydate = InputBox("日付を入力してください。yyyy/m/d")
Loop Until IsDate(mydate)
'設定されていれば解除
Set myRange = ActiveSheet.AutoFilter
If TypeName(myRange) = "AutoFilter" Then
Cells(1, 1).AutoFilter
End If
'オートフィルタ設定
mydate_sp = Split(mydate, "/")
Columns("A:H").AutoFilter
ActiveSheet.Range("$A:$H").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(2, mydate_sp(1) & "/" & mydate_sp(2) & "/" & mydate_sp(0))
End Sub
>>265
一気に作ろうとせずに一個一個分けて作っていったほうがいいんじゃないか
かなりこんがらがってる気がするぞ
あと見てもらうならインデントぐらいはちゃんとした方がいいと思う
0267名無しさん＠そうだ選挙にいこう
2016/10/24(月) 09:02:05.47264です。有難うございます。内容の解読は全くわからずですが動きました。
今、A列で日付フイルタ検索をする設定になってますがF列で日付フィルタ検索をする設定にするにはどの部分を変更すればよいでしょうか。
又、日付フィルタを入力するにあたり、2016/10/20/-2016/10/24や2016/10/20/OR2016/10/24などはできますでしょうか。
0268名無しさん＠そうだ選挙にいこう
2016/10/24(月) 12:55:34.84以下でわかるかな
Field:=6,
がF列を表し、
1/3~1/5を抽出している
あまり複雑な条件になるようなら、作業列等を作ってそこで判定した方がいい気がする
（作業列もvbaで作成）
Sub Macro2()
Range("a1").Select
ActiveSheet.Range("$A$1:$f$7").AutoFilter Field:=6, _
Operator:=xlFilterValues, _
Criteria1:=">=" & CLng(CDate("2016/1/3")), _
Operator:=xlAnd, _
Criteria2:="<=" & CLng(CDate("2016/1/5"))
End Sub
0269名無しさん＠そうだ選挙にいこう
2016/10/24(月) 14:51:23.87264 267です。
有難うございます。
Sub Macro1()のField:=6への置き換えでF欄へのフィルタ抽出ができました。
Sub Macro2()はSub Macro1()の抽出の幅を広げたくて相談させていただいたのですが、そううまくはいきまんせんね。（失礼しました。）
もう一つ教えて頂きたいのですが、Sub Macro1()の日付入力の際、キャンセルをするにはどうしたらよいのでしょうか。
一度マクロを起動するとなんらかの日付を入力するしかないようなので・・。
0270名無しさん＠そうだ選挙にいこう
2016/10/24(月) 15:36:40.79バックスラッシュは¥なのでしょうｙか？あと、これ構文エラーになってしまいます。
0271名無しさん＠そうだ選挙にいこう
2016/10/24(月) 16:50:34.49InputBox()でキャンセルすると空欄のまま決定したのと同じになるので、
空欄の場合にプログラム終了という分岐をかます
Do
mydate = InputBox("日付を入力してください。yyyy/m/d")
If mydate = "" Then
Exit Sub
End If
Loop Until IsDate(mydate)
ついでに空欄の入力とキャンセルを分けたければ、
Application.InputBox()
を使う。こっちはキャンセルでfalseが返る
0272名無しさん＠そうだ選挙にいこう
2016/10/24(月) 18:41:32.00Do
mydate = InputBox("日付を入力してください。yyyy/m/d")
If mydate = "" Then
Exit Sub
End If
Loop Until IsDate(mydate)
うまくできました。業務が少し短縮されそうです。
昨日、本やネットで検索しながらトライしたのですが全くダメでした。（情けない）
Application.InputBox()はうまく使えなかったので自宅に帰って見直します。
次はMessageボックスでの回答表示にトライします。
ありがとうございました。
0273265
2016/10/24(月) 21:54:09.51これもよくわからないけど、古いブックは削除できた。どんなマクロを作りたいのかは
頭の中でできていても、関数が出てこない。
0274名無しさん＠そうだ選挙にいこう
2016/10/24(月) 22:11:54.94できていない
× 関数が出てこない。
調べる能力がない、聞き方が下手
0275名無しさん＠そうだ選挙にいこう
2016/10/25(火) 08:36:33.70これをやって、これをやって、これをやれば出来るって所まで詰める
0276名無しさん＠そうだ選挙にいこう
2016/10/25(火) 14:20:39.99【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
＝y4 VBAでの回答の可否】 否
セル内で『Ctrl＋A』で全選択をしたいのですができますか？
0277名無しさん＠そうだ選挙にいこう
2016/10/25(火) 14:33:03.96いつもhome→ctrl+shift+endでやってる
0278名無しさん＠そうだ選挙にいこう
2016/10/25(火) 15:39:52.71【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
エクセル終了時に
プロジェクトがロックされています。というウィンドウタイトルで、
プロジェクトを表示できません。というメッセージが表示されてしまうようになってしまいました。
検索してもVBA関係の事しか出てこないです。
普通に新規でhogehogeって書いただけでも右上の×ボタンで終了する時にエラーメッセージが出てしまいます。
そのエラーメッセージが出ると20回以上右上の×ボタンを押すかOKボタンを押さないと消えないようになってます。
解決方法を教えてください。お願いいたします。
0279名無しさん＠そうだ選挙にいこう
2016/10/25(火) 15:43:29.27なんとなくだけどデバッグ用にVSが働いてる気がする
再インストールしかなさそう
0280名無しさん＠そうだ選挙にいこう
2016/10/25(火) 16:07:51.93早いレスありがとうございます
もうちょっと粘ってみて無理そうなら再インストールしてみます
0281名無しさん＠そうだ選挙にいこう
2016/10/25(火) 18:26:55.12アドインを全て削除してみて、ダメならexcelのレジストリ削除、それでもダメなら再インストールかな？
0282名無しさん＠そうだ選挙にいこう
2016/10/25(火) 20:05:20.39質問書く暇あるなら試せよ
0283名無しさん＠そうだ選挙にいこう
2016/10/25(火) 23:56:59.89会社で指摘するのオレだけだから、単なる愚痴ラー扱いされて辛い。
0284名無しさん＠そうだ選挙にいこう
2016/10/26(水) 00:10:26.07なんにしろ2013は微妙
0285名無しさん＠そうだ選挙にいこう
2016/10/26(水) 03:13:58.000286名無しさん＠そうだ選挙にいこう
2016/10/26(水) 05:51:45.840287名無しさん＠そうだ選挙にいこう
2016/10/26(水) 06:43:20.930288名無しさん＠そうだ選挙にいこう
2016/10/26(水) 08:46:05.480289名無しさん＠そうだ選挙にいこう
2016/10/26(水) 11:40:47.01【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
勤怠表を作成してるのですが、休日一覧タブを作って祝日やら指定休にしてます。
土曜日を休日に指定しているのですが、年に数日だけ営業日扱いにしたいのですが、その場合どうやって判定の指定したらいいか教えて下さい。
よろしくお願いします。
0290名無しさん＠そうだ選挙にいこう
2016/10/26(水) 11:55:03.220291名無しさん＠そうだ選挙にいこう
2016/10/26(水) 11:56:37.37× タブ
○ シート
多分構成的には
A1に日付
祝日シートA列に祝日一覧
ってなってると思うけど、それに営業日扱いシートを追加して、そこのA列にあれば営業日とすれば良い
大体こんな感じの式になると思う
b1=if(a1が土日,"休日",if(countif(祝日シートA列,a1)>0,if(countif(営業日シートA列,a1)>0,"通常","祝日"),"通常"))
0292名無しさん＠そうだ選挙にいこう
2016/10/26(水) 14:12:34.69ありがとうございます！
用語の訂正もありがとう！！
無事解決しました。感謝です。
0293名無しさん＠そうだ選挙にいこう
2016/10/27(木) 12:18:43.07A1+SUM(B2:B5)>C1
A2+SUM(B3:B6)>C2
A3+SUM(B4:B7)>C3
・・・・・・
このような計算のTRUEをカウントしたいんですが1行じゃ無理ですかね？？
0294名無しさん＠そうだ選挙にいこう
2016/10/27(木) 12:20:38.52一つ目はこういうこと？
=+SUM(A1,B2:B5)>C1
0295名無しさん＠そうだ選挙にいこう
2016/10/27(木) 12:24:38.76【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ（ハローワールドから勉強中）
【4 VBAでの回答の可否】 可
エクセルvbaでログデータ（メモ帳形式）の複数ファイルから一定のデータ（売上金額）を抽出できるようにしたい
たとえて言うなら各店舗のレジ別のログデータが日毎にある中でレジ別日ごとに売上金額を取り込むようにはしたいんですが
難易度としてはどれくらいですか？
0296名無しさん＠そうだ選挙にいこう
2016/10/27(木) 12:32:55.56× メモ帳形式
○ テキスト形式、もしくはcsv
難易度としては0からだと高めだけど、基礎さえ覚えれば非常に楽な部類
流れとしては
メインのブックからマクロ起動
以下はfor each辺りでループ
ログデータ1を開く
売上をメインブックにコピー
ログデータ1を閉じる
ログデータ2移行でも同様
終了
これだけなので、迷うところがない
動かすだけ、処理をするだけなら簡単
難しいのはこういう概念的な事
http://officetanaka.net/excel/vba/beginner/10.htm
詰まったらまた聞きに来たら良いんじゃない
0297名無しさん＠そうだ選挙にいこう
2016/10/27(木) 12:36:03.94すいませんそういう事でしたｗ
0298295
2016/10/27(木) 12:53:33.86ありがとうございます。
少しずつ覚えてできるようになりたいと思います。
参考書のサンプルコード打ち込むだけでもコンパイルエラー出しまくりでイライラしますけどw
0299名無しさん＠そうだ選挙にいこう
2016/10/27(木) 15:47:30.05【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
ttp://www.dotup.org/uploda/www.dotup.org1046518.png_a98yHdCSj9zzK6POacRI/www.dotup.org1046518.png
別のシートにドロップダウンリストでA、B、Cを選択できるようにし
それぞれを選択した場合A-1、B-2、C-1を表示させるようにしたいのですが可能でしょうか？
0300名無しさん＠そうだ選挙にいこう
2016/10/27(木) 15:53:54.84出来る
別シートA1にドロップダウンリストを作って、
別シートB1=if(a1="a",元シート!A1,"")
みたいにすれば可能
セルサイズの変更は無理
サイズも合わせたいなら、最初からそのサイズに合わせておく必要がある。もしくはvba
0301名無しさん＠そうだ選挙にいこう
2016/10/27(木) 16:33:40.31ありがとうございます
画像はまとめてセルを結合させてありますがいくつかに分割してあり書式もいじっています
出来ればそういったものもまるごと置けないかなと考えています
VBAの場合はどうなるのでしょうか？
調べて出て来る程度は作れますがその程度でも大丈夫でしょうか
0302名無しさん＠そうだ選挙にいこう
2016/10/27(木) 17:04:37.44説明文書いてるうちにわけがわからなくなったので作ったわ。まぁ参考にしてくれ
http://www.dotup.org/uploda/www.dotup.org1046586.zip.html
worksheet2のWorksheet_Changeを使い、対応したセルを持ってきてるだけ
以下は適宜変えてくれ。
a_range = "a2:a3"
b_range = "a7:c8"
c_range = "a12:b12"
If Cells(1.1) = "a" Then copy_range = a_range
If Cells(1.1) = "b" Then copy_range = b_range
If Cells(1.1) = "c" Then copy_range = c_range
0303名無しさん＠そうだ選挙にいこう
2016/10/27(木) 17:06:01.42わざわざありがとうございます
参考にしながら少し頑張ってみますね
0304名無しさん＠そうだ選挙にいこう
2016/10/28(金) 08:54:04.622016/10/26・15:00・90・
2016/10/26・14:30・105・1
2016/10/26・14:20・100・1
2016/10/26・11:05・104・1
2016/10/26・10:30・98
2016/10/26・10:00・50
2016/10/26・9:35・100・1
2016/10/25・16:20・105
2016/10/25・13:45・100
2016/10/25・12:00・106
2行目のABC列からデータが入ってます。
A列に日付、B列に時間、Ｃ列にその時の取得した数値があります。
セルD１とE1に2016/10/26・100の条件を入力したら
入力した日付が一致して数値が大きい場合に
D列に１と数値が出るようにしたいです。
Ｅｘｃｅｌ2013を使用しています。
よろしくお願いします。
0305名無しさん＠そうだ選挙にいこう
2016/10/28(金) 09:24:12.47D2に =IF(AND(A2=D$1,C2>E$1),1,"") を入れてオートフィル
0306名無しさん＠そうだ選挙にいこう
2016/10/28(金) 16:16:00.13【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
以下のbookのA1セルに何かのデータが入ってるのですが、わかる方いますか？
http://www.dotup.org/uploda/www.dotup.org1047527.zip.html
・去年作成されたファイルのある列にとびとびでこのセルがあった
・参照すると空白文字列になる
・deleteキーで消したあとに参照すると0になる
・書式が文字列なわけではない。文字列でも空白文字列を参照すると0が返る
・文字列長0
・文字コードの取得はcode()でvalueエラー、vbaだとエラー（多分文字列長0のため）
・コンソールの結果
?asc(cells(1,1))
'エラーです
?len(cells(1,1))
'0が返ります
参照すると空白文字列になるというのが厄介で、indexmatchで引っ張ってくると0以外になる→意図しない挙動になります。
ずっと考えているのですが、解決しません
このセルに何が入ってるか、また発生する原因がわかる方いましたら、お願いします。
0307名無しさん＠そうだ選挙にいこう
2016/10/28(金) 16:38:29.77そのファイルをExcelで開かずにzipを解凍して直接見るとA1の値は0になってる
しかしCalls(1,1).ValueのTypenameはString
ファイルが壊れてるか、何か特別なアプリでzipを直接生成したとかそんなんじゃないのかな
0308名無しさん＠そうだ選挙にいこう
2016/10/28(金) 16:43:22.66誰かおなしゃす！
0309名無しさん＠そうだ選挙にいこう
2016/10/28(金) 16:46:04.23なるほど、確かに古いファイルからコピーしてきたかもしれない部分です。
今後気をつけようと思います。ありがとうございました。
0310名無しさん＠そうだ選挙にいこう
2016/10/28(金) 16:53:08.37俺は配列が苦手でなあ
配列を使わなくていいんならできるんだけどなあ
残念だなあ
0311名無しさん＠そうだ選挙にいこう
2016/10/28(金) 16:55:10.90俺も全く同じこと考えてた
神経使うしめんどい。業務なら頑張るけどなぁ
0312名無しさん＠そうだ選挙にいこう
2016/10/28(金) 17:12:11.65配列を使わなくていいならって作業列とかVBAですか？
0313名無しさん＠そうだ選挙にいこう
2016/10/28(金) 17:15:46.94作業列ならこんな感じ
D1=1*(SUM(A1,B2:B5)>C1)
下にオートフィル
E1=SUM(D:D)
vbaでもできるけどめんどくさいぞ
0314名無しさん＠そうだ選挙にいこう
2016/10/28(金) 17:19:12.53ありがとうございます！
配列は無理そうなのでこれを使わせていただきます！
0315名無しさん＠そうだ選挙にいこう
2016/10/28(金) 20:18:15.990316名無しさん＠そうだ選挙にいこう
2016/10/28(金) 20:39:38.51うん、みんあ知ってる
0317名無しさん＠そうだ選挙にいこう
2016/10/28(金) 20:55:14.140318名無しさん＠そうだ選挙にいこう
2016/10/28(金) 22:27:07.02SUMPRODCUT((A1:A4+B2:B5+B3:B6+B4:B7>C1:C4)*1)
しか思い浮かばなかった
もし他のやり方あるなら教えて頂けると幸いです
0319名無しさん＠そうだ選挙にいこう
2016/10/29(土) 01:04:06.40今回の質問では数式の入ったセルは1つだけ
0321名無しさん＠そうだ選挙にいこう
2016/10/29(土) 06:53:25.76その下にもまだまだ続くようだから
その方法だときびしいんじゃないかな
0322名無しさん＠そうだ選挙にいこう
2016/10/29(土) 13:42:30.440323名無しさん＠そうだ選挙にいこう
2016/10/29(土) 20:22:58.86http://agora-web.jp/archives/2022334.html
★タレント蓮舫の詐欺的行為の数々は許されるのか
http://agora-web.jp/archives/2022120.html
★｢橋下ＶＳ蓮舫」テレビ対決の茶番と舞台裏 「蓮舫が追い込まれたように見えないように、うまく編集」
http://agora-web.jp/archives/2022279.html
国籍偽装＆経歴詐称して日本国民を騙して議員になった詐欺師レンホウを総理にしようと、反日メディアと野党が必死に何事も無かったかのように振舞って風化作戦しています、
日本国民がこれを見過ごしたら経歴詐称を合法化して外国人工作員に国を乗っ取らせるようなもの、「蓮舫を議員辞職させろ、公民権剥奪しろ」と抗議しましょう。
0324名無しさん＠そうだ選挙にいこう
2016/10/29(土) 23:15:36.73【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
二つの表を一つの表にまとめたい
氏名 注文内容 住所 電話番号 注文個数
田中 鉛筆 東京都 0123456 1
という表と
金額 氏名 依頼内容 性別 電話番号 住所
100 佐藤 猫探し 男 9887654 埼玉県
という表があって
この二つの表から新しく
氏名 住所 電話番号
田中 東京都 0123456
佐藤 埼玉県 9887654
の３つの項目を抽出してあわせた新しい表を作成したい
元の表の長さは固定じゃない
初歩的な質問で申し訳ないけれどどうすれば実装できるのか思いつかない
表の内容がほぼ全て文字列だし、内容を計算したいわけではないので統合も使えない気がする
お力を貸してください
0325名無しさん＠そうだ選挙にいこう
2016/10/29(土) 23:31:20.01それは一回限り？
それともその2つの表はずっと更新されて、統合したものをずっと作らなきゃいけないの？
一回限りなら、
新しいシート、（統合シートと呼ぶ）に
氏名 住所 電話番号
とタイトルを作る
田中の表は、どこかにコピーして
田中 東京都 123456
だけ残し、統合シートにコピー
砂糖の票も同じくどこかにコピーして
佐藤 埼玉県 9887654
だけ残し、統合シートにコピー
これで終わりなんだけど
0326名無しさん＠そうだ選挙にいこう
2016/10/29(土) 23:56:41.74２つの表は更新されつづけるんだ。
自動的でなくても、マクロを押した時だけ更新とかでもいいので、３つ目の表を手動でまとめる手間を省きたい。
0327名無しさん＠そうだ選挙にいこう
2016/10/30(日) 00:54:31.58拙いコードでもうわけないが、こんな感じのマクロではどう？
http://or2.mobi/index.php?mode=image&;file=136884.png
0328名無しさん＠そうだ選挙にいこう
2016/10/30(日) 00:54:38.49関数だとしんどかったのでやめ。indirect(),counta()などを使えば行けると思う。
シート名は適宜書き換えてくれ
Sub a()
Set mainsheet = Worksheets("sheet1")
Set table1 = Worksheets("sheet2")
Set table2 = Worksheets("sheet3")
maingyo = 2
'表1からもってくる
last = table1.Cells(table1.Rows.Count, 1).End(xlUp).Row
For i = 2 To last
mainsheet.Cells(maingyo, 1) = table1.Cells(i, 1)
mainsheet.Cells(maingyo, 2) = table1.Cells(i, 3)
mainsheet.Cells(maingyo, 3) = table1.Cells(i, 4)
maingyo = maingyo + 1
Next
'表2からもってくる
last = table2.Cells(table2.Rows.Count, 1).End(xlUp).Row
For i = 2 To last
mainsheet.Cells(maingyo, 1) = table2.Cells(i, 2)
mainsheet.Cells(maingyo, 2) = table2.Cells(i, 6)
mainsheet.Cells(maingyo, 3) = table2.Cells(i, 5)
maingyo = maingyo + 1
Next
End Sub
0329名無しさん＠そうだ選挙にいこう
2016/10/30(日) 10:48:39.14思ったとおりの挙動ができた。本当にありがとう！
0330名無しさん＠そうだ選挙にいこう
2016/10/31(月) 18:39:44.22【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】いいえ
【4 VBAでの回答の可否】 否
物凄く初歩的な質問で申し訳ありません。
氏名と名前の間にスペースをいれるのに、REPLACE関数を使おうとしたのですが、意味がよく分からないので解説して頂きたいです。
REPLACE(文字列，開始位置，文字数，置換文字列)ですが、文字数をなぜ0にするのでしょうか？
「木村太郎」→「木村 太郎」にするのに
(文字列(対象セル)，開始位置(三文字目なので3)，文字数(空白スペースをひとついれるので1ではないのか？)，置換文字列(” ”))と考えてしまって混乱しています。
文字数とはどういう事でしょうか？削除する文字数という意味なのでしょうか？
0331名無しさん＠そうだ選挙にいこう
2016/10/31(月) 18:51:13.810332名無しさん＠そうだ選挙にいこう
2016/10/31(月) 18:53:13.43文字数(空白スペースをひとついれるので1ではないのか？
違う
文字数を1つ消すから1だ
まぁそういう時はテキトーに大きい数値や小さい数値に変えればいいよ
=REPLACE("123456789",3,4,"ab")
は
12ab789
になる。ここから数字を変えていけばなんとなくわかるだろう
0333名無しさん＠そうだ選挙にいこう
2016/10/31(月) 18:53:48.04は3文字目から4つの文字列を消してabに置き換え、となる
0334名無しさん＠そうだ選挙にいこう
2016/10/31(月) 18:57:31.59要するに「文字数＝置き換える文字の数」、ということで
「木村太郎」の太を空白に置き換えたい場合は太の1文字を置き換えるから1を、空白は追加するだけで文字を消し置き換える必要はないから0を入力という解釈で合ってますか？
0335名無しさん＠そうだ選挙にいこう
2016/10/31(月) 18:59:52.840336名無しさん＠そうだ選挙にいこう
2016/10/31(月) 19:06:28.06合ってる
0337名無しさん＠そうだ選挙にいこう
2016/11/01(火) 20:28:30.05セルに数字が
1 3 2 10 8 6
などいくつか入っている内、最大値と最小値を除外した値の平均値を求めたいのですが、
average関数に何を組み合わせたらうまくいくでしょうか？
上記の例ですと、最大値が10 最小値が1なので、
残りの 3 2 8 6 の平均4.75 というのを数式でしたいのです。
0338名無しさん＠そうだ選挙にいこう
2016/11/01(火) 20:40:30.51AVERAGEは使わない
全体のSUMからMAXとMINを引いてCOUNTから2を引いた物で割る
0339名無しさん＠そうだ選挙にいこう
2016/11/01(火) 21:58:18.47TRIMMEAN
0340名無しさん＠そうだ選挙にいこう
2016/11/01(火) 22:24:35.41できました、すみませんでした。
0341名無しさん＠そうだ選挙にいこう
2016/11/01(火) 22:28:12.51毎回別ファイルを開くとそれぞれ違うウィンドウで開いてしまいディスプレイが小さいので両方見ながら使用する際に凄く使い難いです
XPの時のように親ウインドウの中に子ウインドウで開きタスクは1個にしたいのですができますでしょうか？
検索してもそれぞれ違うウィンドウで開きたいというのしか見つからず逆は見つからないのです…
0342名無しさん＠そうだ選挙にいこう
2016/11/01(火) 22:42:06.44SDIと言いますが、そういう仕様になりました
諦めましょう。
特殊な方法としては、仮想PCを使ってその中でEXCELを使えばそれっぽくなりますが…
多分不便だと思います。リボンの時みたいに使っていればなれると思います。
0343名無しさん＠そうだ選挙にいこう
2016/11/02(水) 07:29:50.92タスクを１個にしたいと言うのはよくわからんけど
0344名無しさん＠そうだ選挙にいこう
2016/11/02(水) 12:30:14.14リボンが採用された時からわかってた事
0345名無しさん＠そうだ選挙にいこう
2016/11/02(水) 14:09:14.22http://www.724685.com/weekly/qa160525.htm
0346341
2016/11/02(水) 21:15:25.18仕様なのですね…スッキリしましたどうもありがとうございます
Win10をメインで使っているので余計Win7の使い難さが際立ってしまいます
>>343-344
基本上下に整列するのですが下側に来るウィンドウのリボン部分で圧迫されちゃうんですよね…
タスクを1個に纏めるは私の勘違いでした
>>345
ちょっと見てみますありがとうございます
0347名無しさん＠そうだ選挙にいこう
2016/11/02(水) 21:25:16.32> 基本上下に整列するのですが下側に来るウィンドウのリボン部分で圧迫されちゃうんですよね…
ああそうか、すっかり忘れてた
ちょっと面倒だけどリボンを畳んどくのじゃダメかな？
0348名無しさん＠そうだ選挙にいこう
2016/11/02(水) 21:46:00.57【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ウィンドウの分割で、シート見出しを右側に表示させることってできますか？
0349名無しさん＠そうだ選挙にいこう
2016/11/03(木) 11:59:16.49多分 無理だと思う
0350名無しさん＠そうだ選挙にいこう
2016/11/03(木) 13:33:45.27例題を見ながらやっても覚えられる関数は少なくて、かといって関数の解説だけ見ても数式がよく理解出来ない上に頭に入りません。
実務以外で覚えた方教えてください
0351名無しさん＠そうだ選挙にいこう
2016/11/03(木) 13:38:45.10学校のテストじゃないないんだから
0352名無しさん＠そうだ選挙にいこう
2016/11/03(木) 13:43:50.27「あーそういやこういう関数あったな（前使ったな）」の数を増やしていった人が9割9分9厘じゃないかな
そうじゃない奴は相当特殊だろうけどまあ世界中探せばまあいそうではある
ここにいるといいね
0353名無しさん＠そうだ選挙にいこう
2016/11/03(木) 13:44:02.49実務だと偏るからね うちの現場ではVBAは詳しくても関数は知らない人が多い
0354名無しさん＠そうだ選挙にいこう
2016/11/03(木) 13:46:19.16Excelの関数は多すぎて全部覚えるのは無理だし現実的じゃない
Excelで何をやりたいのか、目的に応じて必要な物を覚えていくしかない
とくに目的がなかったら適当に参考書を買って練習問題を解くぐらいしか
0355名無しさん＠そうだ選挙にいこう
2016/11/03(木) 14:03:54.51ありがとうございます
0356名無しさん＠そうだ選挙にいこう
2016/11/03(木) 14:06:14.28【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
離れた場所にあるセルを同時に見たい時、「ウィンドウの分割」「ウィンドウ枠の固定」「新しくウィンドウを開く」どれを使いますか？
太い線が分かりやすいというしょーもない理由で分割使ってきたんですが、みなさんはどんな理由でどれを使っているのでしょうか
0357名無しさん＠そうだ選挙にいこう
2016/11/03(木) 14:12:56.72とりあえず一通り読む
細かい仕様などは全部飛ばして良い
例えばpmt()なら、
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/zaimu.htm
目的の投資に必要な定期支払額を返す
=PMT(利率,期間,現在価値,将来価値,支払期日)
ふーん、でいい。10秒あれば読める。5分あれば30個読める計算になり、数日で全部目を通せる。これぐらい苦労にすら入らないだろう。
で、あとはシートを作りながら>>352みたいに思い出せば良い。見ていれば思い出せるが、見てなかったら思い出せない
使えば覚える。
あとはたまに、年一、数年に一度ぐらいでいいので
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/itiran.html
一覧を見直せば良い
ptm()ってなんだっけなー、なんか一生使わない金利関係の関数だったなーぐらい覚えていれば十分
まぁ、慣れよ、慣れ
0358名無しさん＠そうだ選挙にいこう
2016/11/03(木) 14:15:40.00色々なExcelで作成された表だったりを画像検索してそれを見ながら同じように作って練習したりはしているのですが、「ここは関数を使えるな！」というのが分からずで…
例えば消費税の計算をするのにはINT関数が使えるみたいですが、ただセルに＝〇×0.08といった風に入力してしまったりというのをかなりしてると思うんです
それがモヤモヤしてしまうんですが実務なしで詳しい関数を覚える・知るのはやはり難しいですか？
0359名無しさん＠そうだ選挙にいこう
2016/11/03(木) 14:39:22.10１．別のＰＣでも開く。
２．印刷する。
0360名無しさん＠そうだ選挙にいこう
2016/11/03(木) 14:47:07.64実務なしでは正直、難しいと思う。
一般的に正しいと思われてる処理でも、ある会社では上司の知識不足などで間違った処理を推奨される場合もある。
あとint()云々はint()かrounddown（)使わないと普通に間違う可能性がある
70円の買い物を2回したとする
=70*1.08*2
だと151円だが、
=int(70*1.08)*2
だと150円
0361名無しさん＠そうだ選挙にいこう
2016/11/03(木) 14:48:18.25フリーソフトでキャプチャーして前面に配置
0362名無しさん＠そうだ選挙にいこう
2016/11/03(木) 15:51:54.65消費税入力にINTは常に使った方がいいという事ですか？
確かに分けて買った場合は150円ですし同時に買った場合は151円になりますよね…
Excelの前にバカで申し訳ないです…教えてください。
0363名無しさん＠そうだ選挙にいこう
2016/11/03(木) 16:34:22.38資格試験が目的じゃなければ暗記する必要はない
端数処理なら、INTよりROUND、ROUNDUP、ROUNDDOWNを確実に覚えた方が良い
0364名無しさん＠そうだ選挙にいこう
2016/11/03(木) 16:39:40.74消費税が関わるなら常にint()、なんて覚え方してたら間違うよ。
あとちょっと間違えてたわ
分けて買った場合は151円
=int(70*1.08)*2
同時に買った場合は150円
=int(70*1.08*2)
こうか。後者はint()でくくらないとな
結果は一つだけど、そこに至る道はいくつもある。結果が同じならどれも正しい。
まずは正しい結果をもとめることだけ考えてればいいんじゃないかな
その内、問題を見た瞬間にいくつもやり方を思いついて一番ラクな方法を選べるようになる
>>363
あ～そうだね。int()は慣れてからのほうがいいかも。
0365名無しさん＠そうだ選挙にいこう
2016/11/03(木) 17:06:50.85目的はMOS取得もありますが、 多分MOSは使う関数は問題で指定されると思うので、試験では必要ないと思うんですけど覚えられれば覚えたいなっていう感じです
RAUNDは理解出来たんですけどINTがどうにも分かりません…
分けて買うと151円で同時に買うと150円がそもそも分かりませんでした
どちらも計算すると151.2ですよね
INTはより小さくまとめる関数なので(70*1.08)←0.6が消されるので75になりますよね
一度75になってるのでそれを×2したら150円
INT(70*1.08*2)だとまとめて計算されるので151.2になり151円になりますよね…？
0366名無しさん＠そうだ選挙にいこう
2016/11/03(木) 17:57:23.64INTって返品があった場合の負数だとマズいから使わない方が良い
0367名無しさん＠そうだ選挙にいこう
2016/11/03(木) 17:58:41.92JRで切符を買って電車に乗る時に、乗る駅と降りる駅次第で
十円以下の端数が切り上げになる駅と四捨五入になる駅があるみたいに
同じ会社内でも計算方法が違うこともあるし
0368名無しさん＠そうだ選挙にいこう
2016/11/03(木) 19:18:12.59すぐ隣に防衛省の背広組の官舎があるのですが、
自分の家の窓にUSB接続のwebカメラを貼り付けて、そこの動画を撮影し続け、
学会本部に送っていました。
別に大したものは写っていません。ごみ出しとか奥さんが子供を遊ばせている所とか。
官舎が老朽化して使われなくなってから、
今まで法人税(うちは自営業です)をほぼ払わなくても済んでいたのが、
もう守ってやれないのでこれからは満額申告するように言われました。
納得がいかないと言うと、君は自業自得で餓鬼地獄へ落ちる、
朝夕南無妙法蓮華経と三千回ずつ唱えて心をきれいにしなさいと言われ
馬鹿らしくなって退会しました。
それ以来、どこへ行くにもぞろ目ナンバーの車につけまわされたり大変な日々です。
全部自分の出来心から起きたことで、どこに訴えるわけにもいかないのですが、
なんとかあの人たちと縁を切って新しい始まりを迎える方法はないんだろうか。
0369名無しさん＠そうだ選挙にいこう
2016/11/03(木) 19:22:36.59忘れてたわ
会社によって四捨五入にするとこあるよね。昔勤めてた会社がそうだった
0370名無しさん＠そうだ選挙にいこう
2016/11/03(木) 20:03:43.330371名無しさん＠そうだ選挙にいこう
2016/11/03(木) 20:09:12.26>一度75になってるのでそれを×2したら150円
>INT(70*1.08*2)だとまとめて計算されるので151.2になり151円になりますよね…？
これも会社によって色々だよ
請求書なんかひと月の総合計で1.08掛けるところも多いんじゃ？
0372名無しさん＠そうだ選挙にいこう
2016/11/03(木) 20:23:54.62【2 Excelのバージョン】 Excel2013
別名で保存しようとすると緑色配色の強いゴチャゴチャした画面で階層が分かり難いです
一番上のファイルをクリックすればエクスプローラ表示になりますが
最初から保存先がエクスプローラ表示になる切り替え設定はないでしょうか
0373名無しさん＠そうだ選挙にいこう
2016/11/03(木) 21:09:22.32皆様ありがとうございます…
INT使うのはまだ辞めておく事にします…
消費税計算はROUNDDOWN()と＝〇*1.08のどちらを使うべきなんでしょうか
重ねて何度も申し訳ないです○|￣|＿
0374名無しさん＠そうだ選挙にいこう
2016/11/03(木) 21:21:31.45>消費税計算はROUNDDOWN()と＝〇*1.08のどちらを使うべきなんでしょうか
両方使う
あと消費税が改定される場合があるので、
税率設定用のセルを設けとくと後々数式直す苦労しないで済む
0375名無しさん＠そうだ選挙にいこう
2016/11/03(木) 21:29:38.70なんかExcelの基礎というより、実務が分かってない気がする。
買い物の領収書とか見てそれをExcelで作ってみては？
それだけでも大分ものの見方が変わると思う
2通り作ってみたけど実際はこんな感じ。
税額は会社によって出し方が少し違ったりするので、どちらが正解ってわけではない
http://www.dotup.org/uploda/www.dotup.org1054157.xlsx.html
あと
ROUNDDOWN()と＝〇*1.08
は組み合わせて使う
＝〇*1.08
で出た数字に端数が生じるからそれを消すためにROUNDDOWN()を使い
＝ROUNDDOWN(〇*1.08,0)
のようにする
0376名無しさん＠そうだ選挙にいこう
2016/11/03(木) 21:37:49.79ありがとうございます！
今まで関数使わずに＝〇*0.08で出してからリボン内の数値の所で切り捨ててました…
作って頂いたもの参考にレシート等でとにかく作って慣れる事にします
凄くスッキリしました。ありがとうございました┏○┓
0377名無しさん＠そうだ選挙にいこう
2016/11/03(木) 21:41:45.17計算方法は切り捨て、切り上げ、四捨五入
みんな金額が違ってくる
0378名無しさん＠そうだ選挙にいこう
2016/11/03(木) 21:48:56.27なんかめんどくせーなーどうにかなんねーかなーって思ったらここで聞くといいよ
0379名無しさん＠そうだ選挙にいこう
2016/11/03(木) 21:50:56.46【2 Excelのバージョン 】 ExcelもしくはGoogleスプレッドシート
【3 VBAが使えるか .】 不明
【4 VBAでの回答の可否】 可
品目 数量
A 1500
B 500
A 100
このようなデータがあった場合に
Aのみ、Bのみの数量を把握したい場合どのようにするのが捗りますか?
0380名無しさん＠そうだ選挙にいこう
2016/11/03(木) 21:54:47.66何でもいいから入門書を一冊読んだ方が良いと思う
ブックオフで108円で売ってるエクセル2007とかでも構わないからさ
0381名無しさん＠そうだ選挙にいこう
2016/11/03(木) 22:01:48.49作業列使えば簡単だよ =IF（A1=A,B1,0) のように数式を設定しSUMで合計するとか
0382名無しさん＠そうだ選挙にいこう
2016/11/03(木) 22:03:10.71SUMIF関数
0383名無しさん＠そうだ選挙にいこう
2016/11/03(木) 22:14:04.94おお、そんな関数あるのですね
キレイに A 1600 になりました
ありがとう
>>381
作業列というのがもっと基本となる概念なのですね
ありがとう
勉強してみます
0384名無しさん＠そうだ選挙にいこう
2016/11/03(木) 22:40:26.35TAC出版のMOSテキスト1通り終わったんですがやっぱり一周目だと理解出来てない事だらけなのでもう1回読み直します
もっとどうにかなんねーかなこれってなったらここでまた質問させていただきます！
本当にありがとうございました。
0385379
2016/11/03(木) 23:02:55.02この書式だと
シート1のD列にB1 が含まれていたらその行のE列をSUMしていく
ということになって成功したのですが
コピーしてC1、D1というふうにズラしていったところ
=SUMIF('シート1'!E:E,C1,'シート1'!F:F)
とずれていってしまいました
これを
=SUMIF('シート1'!D:D,C1,'シート1'!E:E)
や
=SUMIF('シート1'!D:D,D1,'シート1'!E:E)
というような結果を吐き出させるにはどう表記したらよいでしょうか?
$をどこかにはさめば良いのでしょうか?
0386379
2016/11/03(木) 23:09:47.57=SUMIF('変動帳簿'!$D:$D,D1,'変動帳簿'!$E:$E)
としたら出来ました
=SUMIF( '変動帳簿' ! $D : $D ,D1,'変動帳簿'!$E:$E)
今調べて「！」がシート名とセル名を分離するためのものだと理解したのですが
「：」の前後の表記についてどう解釈したらよいのでしょうか?
D列すべてを対象としているとおもうのですか
「：」の前後はそれぞれ何を指しているのでしょうか?
0387名無しさん＠そうだ選挙にいこう
2016/11/03(木) 23:16:32.17どれがわからんの
=SUMIF( '変動帳簿' ! シート名。
$D:$D D列全体を表す。$は絶対参照。範囲の場合は$D:$Dのように開始と終了が必要で、$Dだけという書き方はできない
0388名無しさん＠そうだ選挙にいこう
2016/11/03(木) 23:17:49.62=SUMIF('変動帳簿'!$D:$F,D1,'変動帳簿'!$G:$H)
みたいな表記が出来て
D～F列に D1 があったら G～H列の数値 を足していく
という理解でよいのでしょうか?
0389名無しさん＠そうだ選挙にいこう
2016/11/03(木) 23:23:59.71そう
ただ、条件範囲と合計範囲は1列にしておかないとややこしくなるからやめたほうがいい。
俺ならその場合は3つsumifを作ってから合計するわ。
0390名無しさん＠そうだ選挙にいこう
2016/11/03(木) 23:30:59.99アドバイスありがとうございます
気を付けます
0391名無しさん＠そうだ選挙にいこう
2016/11/03(木) 23:41:08.75>>390
0392名無しさん＠そうだ選挙にいこう
2016/11/04(金) 01:29:31.86見たいセル周辺をコピーし、入力セル近くに、リンクされた図として貼り付ける。
0393名無しさん＠そうだ選挙にいこう
2016/11/04(金) 01:31:27.63品目の種類が増える可能性があるならピボットテーブル
0394名無しさん＠そうだ選挙にいこう
2016/11/04(金) 01:53:19.1810月施行とか、途中で切り替わらんことをせつにねがいたい
せめても4月からにして欲しいぞ
0395名無しさん＠そうだ選挙にいこう
2016/11/04(金) 07:18:59.78http://togetter.com/li/1044210
0396名無しさん＠そうだ選挙にいこう
2016/11/04(金) 07:20:32.95いつかは変更するんだから、空き時間に一セルに税率入力すればすべて制御される表に切り替えてしまえばいい
計算式に保護かけられている場合は難しいかもだが
0397名無しさん＠そうだ選挙にいこう
2016/11/04(金) 07:52:52.390398名無しさん＠そうだ選挙にいこう
2016/11/04(金) 12:33:52.200399名無しさん＠そうだ選挙にいこう
2016/11/04(金) 12:38:54.150400名無しさん＠そうだ選挙にいこう
2016/11/04(金) 12:44:03.580401名無しさん＠そうだ選挙にいこう
2016/11/04(金) 13:18:47.07今日は42678
0402名無しさん＠そうだ選挙にいこう
2016/11/04(金) 13:33:42.67【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
残業時間 残業累積
a1 2:00 a2 2:00
b1 b2
c 1 3:00 c2 5:00
のように空白を挟んでも足せる関数ってありますか？
IF(b1＝””,””,a2+b2)だとc2はIF(c1＝””,””,b2+c2)になるんですけど当然b2は空白なのでエラーになってしまいます
0403名無しさん＠そうだ選挙にいこう
2016/11/04(金) 13:38:26.540404名無しさん＠そうだ選挙にいこう
2016/11/04(金) 13:48:02.61【2 Excelのバージョン 】 Excel１０
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】可
開いたＣＳＶファイル名を他のシートの指定したセルに自動入力
できる方法はありませんか？教えてください。
0405名無しさん＠そうだ選挙にいこう
2016/11/04(金) 16:03:16.99【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
シートの保護をするとオートフィルターが使えません。
保護設定時にオートフィルターの使用と並べ替えにはチェックを入れてあります。
どなたかお分かりの方がいましたら教えてください。
0406名無しさん＠そうだ選挙にいこう
2016/11/04(金) 16:33:58.53シートの保護（オートフィルターの使用にチェックあり）すると、
リボン＞データ＞フィルターはグレーアウトしてますね。
フィルターのそばの「詳細設定」だけは選択できるのでここからやってみてもダメ。
ところが、シートの保護をかけてない状態でオートフィルターを設定してから
シートの保護をかけると▼が表示されたままだし、実際に絞り込みができます。
これじゃだめですか？
0407406
2016/11/04(金) 17:01:00.84シート保護時のフィルタについて（Excel2013） Microfoftコミュニティ
http://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_winother/%E3%82%B7%E3%83%BC%E3%83%88%E4%BF%9D%E8%AD%B7/b437a345-f542-4397-868b-0f0caf09b10c
オートフィルタなしでシート保護した状態から、絞り込みの条件となるセルを右クリックして
フィルター＞選択したセルの値でフィルター を選ぶと、オートフィルターがかかった状態になります。
※1行目が項目タイトル、2行目以降がデータとなってるようなシートなら、これでいいかと。
0408名無しさん＠そうだ選挙にいこう
2016/11/04(金) 17:27:25.16こうゆう事 かな?
[Thisworkbookモジュールに記述]
Option Explicit
Private WithEvents App As Application
Private Sub Workbook_Open()
Set App = Application
End Sub
'開いたcsvのファイル名をA1セルに表示
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If UCase(Wb.Name) Like "*.CSV" Then
ThisWorkbook.Worksheets("Sheet1").Range("A1") = Wb.Name
End If
End Sub
※マクロを記述したブックを 一旦閉じて 再度開いて下さい
"Workbook_Open()プロシージャを 手動で実行する" でも良い
0409405
2016/11/04(金) 18:02:09.35いろいろと試しましたがうまくいきませんでした。サイト内にも書いてあるように今の時点では難しいようですね。
0410名無しさん＠そうだ選挙にいこう
2016/11/04(金) 20:52:42.33choose、mid、textなど色々。書式設定のaaaとかでもいける
どれにしてもチョーわかりにくいと思うけど
>>402
sum()
その場合だと
sum(a2,b2)
等
>>403
配列定数使えば行けるけどめんどくさい
sumは文字列を無視する
0411名無しさん＠そうだ選挙にいこう
2016/11/05(土) 11:14:48.54「動作を停止しました」が表示され異常終了します。Win7です。
問題イベント名: APPCRASH
アプリケーション名: EXCEL.EXE
アプリケーションのバージョン: 15.0.4867.1000
アプリケーションのタイムスタンプ: 57d78f3d
障害モジュールの名前: mso.dll
障害モジュールのバージョン: 15.0.4875.1000
障害モジュールのタイムスタンプ: 57fc9a87
例外コード: c0000602
例外オフセット: 011f9b58
１つのファイルだけなのですが、新しいファイルに引っ越ししても
同じです。
原因として何が考えられますか？
0412名無しさん＠そうだ選挙にいこう
2016/11/05(土) 11:18:14.02ドライブが満タンなのかもしれない
新規ファイルを作って半分ずつそちらに保存して行けば原因がわかるかもしれない
0413名無しさん＠そうだ選挙にいこう
2016/11/05(土) 11:57:13.96ありがとうございます。
原因はアドインだったようです。
お騒がせしました。
0414名無しさん＠そうだ選挙にいこう
2016/11/06(日) 17:43:24.58５分足のデータの日付と時間と、１５分足のデータの
日付と時間が一致したデータを並べたいです。
15min
AA列、ＢA列、ＣA列、ＤA列、EA列
2016/11/6、11;00、17000、23.3
2016/11/6、10;45、17090、31.4
2016/11/6、10;30、17150、37.6
・
・
5min
A列、Ｂ列、Ｃ列、Ｄ列、E列、Ｆ列
2016/11/6、11;00、17000、26.3、23.3
2016/11/6、10;55、17030、31.7、31.4
2016/11/6、10;50、17090、35.6、31.4
2016/11/6、10;45、17080、29.8、31.4
2016/11/6、10;40、17150、31.6、37,6
2016/11/6、10;35、17150、22.8、37,6
・
・
違う列に５分足と１５分足が上から下にデータが更新されてゆきます。
日付が一致して１５分
５分足のＦ列に１５分足のEA列のデータを抽出したいです。
５分足の10:45から10:59までのデータは１５分足の10:45のデータを、
５分足の11:00から11:14までのデータは１５分足の11:00のデータをと言った感じです。
当方はＥｘｃｅｌ２０１３を使用しています。
よろしくお願いいたします。
0415名無しさん＠そうだ選挙にいこう
2016/11/06(日) 17:53:05.78上から下にデータが更新されるのに時間は逆順なのか？よくわからん
index matchの組み合わせで可能
詳しくは
index match 組み合わせ
で検索してくれ
0416名無しさん＠そうだ選挙にいこう
2016/11/06(日) 18:00:18.48本当にAA、BA、CA？
AA、AB、ACじゃなくて？
0417名無しさん＠そうだ選挙にいこう
2016/11/07(月) 20:20:11.31ファイルBの数値データからもリンクを引っ張り
ファイルCで計算処理ということはできますか?
どのようにしたらよいのか教えてください。
もしくは、もっと捗る方法があればそれもお願いします。
0418名無しさん＠そうだ選挙にいこう
2016/11/07(月) 20:34:09.43捗る：1シートにまとめる
別ブックのデータ取得方法：
http://www.excel.studio-kazu.jp/lib/e2j/e2j.html
大体こんな感じ
=sum('パス名[ファイルA]シート名'!セル名,'パス名[ファイルB]シート名'!セル名)
0419名無しさん＠そうだ選挙にいこう
2016/11/07(月) 21:01:49.46んなわけねーだろｗ
こんなもん大学教育以前に義務教育の「理科」の範疇だ
お前は99%の日本人が義務教育以下のレベルだって言うのかよｗ
0420名無しさん＠そうだ選挙にいこう
2016/11/08(火) 00:41:17.06その複数列を選択したいのですがマクロを使わないでやる方法ってありますでしょうか
Shift+SPACEは離れたセルの場合動かないようなので
0421名無しさん＠そうだ選挙にいこう
2016/11/08(火) 02:42:27.36どっちみちマクロでないと無理だと思う。
0422名無しさん＠そうだ選挙にいこう
2016/11/08(火) 19:46:27.69わかりやすいサイトの紹介ありがとう
0423名無しさん＠そうだ選挙にいこう
2016/11/08(火) 20:45:27.96【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
テキストフィルタについて質問です。
Ａ
1 ABB
2 AA
3 ABCC
4 ACC
5 CA
6 CBA
7 B
という風にセルがありA列から、「Aだけ」「Bだけ」「AとBの組み合わせだけ」でフィルタをかけたいのですが、
どのようにすればいいですか？
つまり、上の例であれば、1,2,7だけが引っかかるようにしたいのです。
0424名無しさん＠そうだ選挙にいこう
2016/11/08(火) 21:00:04.28countif関数と、正規表現（*と<>）の組み合わせでできそう。
0425名無しさん＠そうだ選挙にいこう
2016/11/08(火) 21:24:26.73「Cを含まない」
0426名無しさん＠そうだ選挙にいこう
2016/11/08(火) 21:36:03.05countif関数と、substitute関数でできると思う。
他にもやり方あると思うけど。
0427名無しさん＠そうだ選挙にいこう
2016/11/08(火) 21:39:07.55【2 Excelのバージョン 】 Excel2013
既存のリボンショートカットにあるセルを結合を使用すると毎回注意事項が出てしまいます
かなりの頻度で結合を使用するのでこの注意事項を表示させない方法はありませんか？
オプションを見てみたのですが発見できませんした
よろしくおねがいします
0428名無しさん＠そうだ選挙にいこう
2016/11/08(火) 21:41:59.95B1=OR(SUBSTITUTE(A1,"A","")="",SUBSTITUTE(A1,"B","")="",SUBSTITUTE(SUBSTITUTE(A1,"A",""),"B","")="")
下にオートフィルしてTRUEでフィルタ
一行目はタイトル扱いになるので底はなんとかしてくれ
0429名無しさん＠そうだ選挙にいこう
2016/11/08(火) 21:42:19.53vba
0430名無しさん＠そうだ選挙にいこう
2016/11/09(水) 19:23:35.00条件の最初ふたつは要らなくね？
0431名無しさん＠そうだ選挙にいこう
2016/11/09(水) 19:33:58.06ほんまやね
B1=SUBSTITUTE(SUBSTITUTE(A1,"A",""),"B","")
で空白でフィルタすれば良いのか
場合によっては最初から空白の場合は外すとかも必要になるか
0432名無しさん＠そうだ選挙にいこう
2016/11/09(水) 23:14:02.65【2 Excelのバージョン 】 Excel10
【3 VBAが使えるか .】 いいえ
Excel初心者です。ご回答よろしくお願いします。
VLOOKUP関数に関してです。下の画像のように、検索範囲に上下方向の幅がある場合、どのような処理が考えられますでしょうか？
“911”と入力したときに画像の911の項目にあるC4の値を参照したいのです。
よろしくお願いします。
私の知識ではC1の値を引っ張ってくることしかできません。
画像が見れない方は申し訳ありません。
0433名無しさん＠そうだ選挙にいこう
2016/11/09(水) 23:16:35.000434名無しさん＠そうだ選挙にいこう
2016/11/09(水) 23:23:12.80結合したセルの必ず一番下に来るなら、こんな感じでD列に作業列を作り
http://stamp-uploda.com/src/file2925.jpg
あとはvlookup()を使う。
E1=VLOOKUP(A1,A:D,4)
あとvlookup()よりもindex()match()の組み合わせのほうが軽くて柔軟なのでこっち使ったほうが良い
E1=INDEX(D:D,MATCH(A1,A:A,0))
0435名無しさん＠そうだ選挙にいこう
2016/11/09(水) 23:56:38.87【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
関数について質問です
=if(A1=B1,1,0) と =(A1=B1)*1 では結果が同じになりますが、
同様の数式が数万セルあった場合に、再計算はどちらのほうが早くなりますか？
すぐに試せる環境がないので教えてください。
0436名無しさん＠そうだ選挙にいこう
2016/11/10(木) 00:16:19.96そこまで多いならvbaで処理するかdbにでも入れて処理した方がいいかもしれない
0437名無しさん＠そうだ選挙にいこう
2016/11/10(木) 02:20:59.96【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
http://imgur.com/a/WTk8F
重複の検索の仕方なのですが画像上で
選択されているセルを重複しているか知りたいです
この選択されているセルの下は一緒ですがそれがわかるようにしたいのです
説明が下手ですいません
0438名無しさん＠そうだ選挙にいこう
2016/11/10(木) 03:04:41.92自己解決しました
0439名無しさん＠そうだ選挙にいこう
2016/11/10(木) 07:50:03.65ありがとうございます。
ただ、引っ張ってくる値を含むデータベースとなる表には手を加えずに（定型で配信され都度修正するのが難しいため）、値だけを引用したいのです。
もう少し勉強してみます。
ご親切にありがとうございました。
0440名無しさん＠そうだ選挙にいこう
2016/11/10(木) 10:38:12.59Excelの内部的にはA2:A4はブランク扱いになるから
そのままの表でVLOOKUP使うのはどう足掻いても無理
表を弄らずとなると、マクロで下の行から探して行くのが愚直だけど手っ取り早そう
結合されたセルはRange#MergeAreaで取得できる
0441名無しさん＠そうだ選挙にいこう
2016/11/10(木) 12:31:34.88【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
VLOOKUPであるセルの値を参照しているんですが、特定の列になると確かにそのセル内には
数値があるんですが0が返ってきます
その0が返ってくるセルの書式は標準のため書式が原因とは考えられないんですが
他の原因はなにが考えられるでしょうか
ABC 1 ←1が返ってくる
DEF 2 ←0が返ってくる
GHI 3 ←0が返ってくる
JKL 4 ←0が返ってくる
MNO 5 ←0が返ってくる
PQR 6 ←6が返ってくる
STU 7 ←7が返ってくる
VWX 8 ←8が返ってくる
0442名無しさん＠そうだ選挙にいこう
2016/11/10(木) 12:40:00.12実際のファイルを見ないとわからない
0443名無しさん＠そうだ選挙にいこう
2016/11/10(木) 13:03:57.53文字列でしょ
0444名無しさん＠そうだ選挙にいこう
2016/11/10(木) 13:05:21.640445441
2016/11/10(木) 13:16:56.02お手数ですがこちらからお願いします
http://fast-uploader.com/file/7034306868457/
0446名無しさん＠そうだ選挙にいこう
2016/11/10(木) 13:28:02.52・・・A1のセル結合を解除して下さい。
中に
1610002
1610003
1610004
1610005
が残っています
0448名無しさん＠そうだ選挙にいこう
2016/11/11(金) 12:19:56.64円周率πなら=PI()で、ネイピア数eなら=EXP(1)で使えるんですが、
オイラー定数$\gamma := \lim_{n \to \infty} \left( \sum_{k = 1}^n \frac{1}{k} - \log n \right)$は使えないのでしょうか？
そんなもんはビジネスで使わないから知らねえ、とかいう方は無視してください。ご存知の方がいらしたら教えて下さいませ。
0449名無しさん＠そうだ選挙にいこう
2016/11/11(金) 12:25:50.99知らん。
どうせ小数誤差が起こるから定数でいい。小数点以下20桁ぐらいで十分
0450名無しさん＠そうだ選挙にいこう
2016/11/12(土) 01:39:47.610451名無しさん＠そうだ選挙にいこう
2016/11/12(土) 01:41:02.090452名無しさん＠そうだ選挙にいこう
2016/11/12(土) 15:00:00.59ので新しく別の買おうかと思うんですがおすすめのバージョンありませんか？
i7 4770HQ メモリ16GB SSDの機種と他のしょぼい2機種でExcel2013使いましたがなんだか動きも悪い気がするので・・・
色々ウェブで対策見て設定変えたりしたのですが最新版が安定しているならいっそ変えようと思っています。
0453名無しさん＠そうだ選挙にいこう
2016/11/12(土) 15:05:00.812016は知らんけど、2010はかなり完成度高いと思う。
2003もよかったけどさすがに機能が古い。一人で使うなら2003で十分なんだけどね
0454名無しさん＠そうだ選挙にいこう
2016/11/12(土) 15:25:21.332010から2013飛ばして2016にしたけど、
今のところ問題なし。
5分値×24h×365日データなんかを扱っている。
Accessはガラッと変わったみたいだが。
0455名無しさん＠そうだ選挙にいこう
2016/11/12(土) 16:21:12.952007は良くなかった。
2013が出た頃に、2010を田中亨さんがオススメしてた。
0456名無しさん＠そうだ選挙にいこう
2016/11/12(土) 21:31:41.99たくさんカッコをつけたり外したり、あるいは長くなってきたりするとやりづらいといったときはどうするのでしょうか？
0457名無しさん＠そうだ選挙にいこう
2016/11/12(土) 21:52:24.39alt+enterでセル内改行とか
=if(
sum(a1+b1)=1,1,0
)
作業列を適度に使えば見づらくなることがそもそもないけどね
0458名無しさん＠そうだ選挙にいこう
2016/11/12(土) 22:11:26.44> alt+enterでセル内改行とか
数式でもできるのか...
知らんかった
0459名無しさん＠そうだ選挙にいこう
2016/11/13(日) 00:52:42.060460名無しさん＠そうだ選挙にいこう
2016/11/13(日) 00:53:04.520461名無しさん＠そうだ選挙にいこう
2016/11/13(日) 08:27:51.580462名無しさん＠そうだ選挙にいこう
2016/11/13(日) 08:41:42.58【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 マクロの記録程度
【4 VBAでの回答の可否】 はい
入力している関数を理解せずに消す癖を持っている他人にファイルを使ってもらう際に
基準列の下の範囲に入力がされることのないエクセル方眼紙の表があります
そのフィルタをする際にシートの保護をいじらせないためには
マクロを使うしかないという結論になったのですが
G列、F列に、本体の表から三行間が空いている三行の表があります
（具体例を挙げるとA1:H54の表の下にG57:H59の表がある状態）
その際に、G57:H59の表がページをまたぐならば、次のページに移動するが
ページをまたがないならそのままにするみたいな処理ってできないものでしょうか
前段階までのマクロの記録で作った内容は、次レスに記載します
0463名無しさん＠そうだ選挙にいこう
2016/11/13(日) 08:42:13.09Sub フィルタ()
'
' フィルタ Macro
'
'
Sheets("Sheet1").Select
ActiveSheet.Unprotect
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFilter
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.LargeScroll Down:=-2
ActiveSheet.Range("$A$1:$H$74").AutoFilter Field:=1, Criteria1:="<>"
Sheets("Sheet1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
0464名無しさん＠そうだ選挙にいこう
2016/11/13(日) 09:08:03.21ありがとうございます。
2010人気ですね。他のPCが2013のままにせざるを得ないのが気がかりではあるのですがエラー終了はもう勘弁なので・・・
365を一か月登録してみてダメっぽいのであれば2010にするしかないですね。しばらくでないだろうし
MacのNumber?でしたっけ？あれ系は安定してるんでしょうか？今の環境では使えないですが・・・
0465名無しさん＠そうだ選挙にいこう
2016/11/13(日) 09:45:57.20Excelにしておいたほうがいい。使い方わからんソフトは作業効率激減だぞ
せめて無料のgoogleスプレッドシートの方が良い
0466名無しさん＠そうだ選挙にいこう
2016/11/13(日) 09:49:47.43マクロの記録で改ページプレビューをいじれば記録されると思う
ただ改ページプレビューも実際の印刷とずれるので・・・
俺なら
・別シートにG57:H59の表を作成。非表示
・印刷時にそれも一緒に印刷
にするかな。表は必ず別ページになってしまうけど、気にしないでいくわ
0467名無しさん＠そうだ選挙にいこう
2016/11/13(日) 10:16:48.93そのぐらいしか手段がないですかね
印刷時に下の空白部分がセンスないので基本同じページで印刷して
どうしてもって時だけ別のページにするという形を言われて困ってましたが
無理だというしかなさそうです
0468名無しさん＠そうだ選挙にいこう
2016/11/13(日) 20:15:44.50マクロの記録じゃ、これはむりだけど。
0469名無しさん＠そうだ選挙にいこう
2016/11/13(日) 20:37:51.16そもそもその入力作業はエクセルではなくWebでの入力フォームをCGIで作った方が
良いんじゃない？
あとは入力終わった結果をエクセルに取り込むVBAを書けばいいと思うよ。
0470名無しさん＠そうだ選挙にいこう
2016/11/13(日) 20:42:28.38ここの質問ってExcelというよりも事務作業の質問みたいなもんだし
場合によってはgoogleフォームのほうが遥かに簡単で便利だし、Excelに拘る必要はないと思う
0471名無しさん＠そうだ選挙にいこう
2016/11/13(日) 20:48:18.58どちらにしてもサンプルファイルアップしたら、誰かがマクロ書いてくれるかも。
0472名無しさん＠そうだ選挙にいこう
2016/11/13(日) 21:13:19.860473名無しさん＠そうだ選挙にいこう
2016/11/13(日) 21:37:53.66> VBAで印刷時のページ数
取得できるんだっけ？
0474名無しさん＠そうだ選挙にいこう
2016/11/13(日) 21:56:21.22出来ることは出来る
アクティブセルのページ数直接取得する方法はしらんが・・・
http://www.moug.net/tech/exvba/0070018.html
＞水平方向の改ページを表すHPageBreakオブジェクトと、垂直方向の改ページを表すVPageBreakオブジェクトがあります
シートをコピー、内容削除（印刷設定だけ知りたい為）
A1=""
A2=なんでも
1行目のセルの高さをwhile増やして、HPageBreakが増えたらそれが印刷時の高さ
それを元に、元シートの高さを計算して・・・とやれば出来ると思う
人のためには絶対作りたくないけど、自分の業務だったらやるかなーって感じ
0475名無しさん＠そうだ選挙にいこう
2016/11/14(月) 01:21:26.020476462
2016/11/14(月) 12:40:10.93SUBTOTALでデータ数数えて、MODで数を確認する方法を用いてIF関数で切り抜けられました
色々なやり方を教えていただきありがとうございます
0477名無しさん＠そうだ選挙にいこう
2016/11/14(月) 18:01:27.47都合によりあまりお金が掛けられないです。ネットでは公式と酷似した練習用のフリーソフトがあると聞いたのですが
おすすめなどありますか？
正規品のことでもないこの質問が不適当ならすみません、指摘があれば退散させていただきます。
0478名無しさん＠そうだ選挙にいこう
2016/11/14(月) 18:27:08.46練習用ってか体験版なら一ヶ月無料で使える。
OSごと再インストールすれば多分何度でも使えると思う。規約的にはアウトだけど、俺は気にせんかな
https://products.office.com/ja-jp/try
類似ソフト。googleスプレッドシートは無料。excelと大体似てる。大体。まぁこれを使えれば十分Excelでも通じると思う
https://www.google.com/intl/ja_jp/sheets/about/
openofficeorgも無料だけど使い勝手が結構変わる。最近はあまりオススメできない。
http://www.openoffice.org/ja/
個人的には2010の中古を電気街で買うのが一番いいと思う。ネットで探すよりはるかに安く売ってる。
まぁ頑張って～
0479名無しさん＠そうだ選挙にいこう
2016/11/14(月) 19:35:37.46MOSのExcelスペシャリストの本を買って勉強するのが効率良いのか、それ以外の本が良いのかどっちなの
0480名無しさん＠そうだ選挙にいこう
2016/11/14(月) 19:47:02.17excelは入り口が広すぎる。それだけなんでも出来るってことでもあるんだけど
実務を通して覚えるのが一番だけど、どうしても本で覚えたいなら自分が読みやすい本でいいと思う。
筆者の名前でぐぐって気に入ったら買うとか。
MOSは理想的なExcelの使い方も書いてあるけど、実務からはかけ離れているのでオススメしない。
暗記項目もあって意味が分からん。暗記てアンタ。
まぁ履歴書埋めたいなら止はせんけどね
Excelの試験は、検索アリでいかに早く問題解決するかって方がよほど良い指標になると思うんだけどなー
0481名無しさん＠そうだ選挙にいこう
2016/11/14(月) 20:27:19.07アプローチの仕方が変だよ。
エクセルだけ知っていてもなんの意味が無い。
ハローワーク行けよ。
ttp://www.mhlw.go.jp/stf/seisakunitsuite/bunya/koyou_roudou/shokugyounouryoku/training_worke/
0482名無しさん＠そうだ選挙にいこう
2016/11/14(月) 22:01:18.05今話題のExcel方眼紙から始めるとよいぞ
初めての人にも直観的でわかりやすく文科省でも推奨されてた
0483名無しさん＠そうだ選挙にいこう
2016/11/14(月) 22:47:49.88www
0484名無しさん＠そうだ選挙にいこう
2016/11/15(火) 01:31:39.560485名無しさん＠そうだ選挙にいこう
2016/11/15(火) 02:46:44.64大変参考になりました、早い返信ありがとうございます！
一ヶ月無料というのを使って勉強してみようと思います
0486名無しさん＠そうだ選挙にいこう
2016/11/15(火) 13:37:23.99Excelやってたらこんな風になっちゃうんですけどなんでですか？
0487名無しさん＠そうだ選挙にいこう
2016/11/15(火) 13:40:35.26小数誤差という仕様
説明すると長くなるから小数誤差でぐぐってくれ。解決方も見つかると思う
しかしオートフィルだと影響大きいな
0488名無しさん＠そうだ選挙にいこう
2016/11/15(火) 13:49:49.13ありがとうございます、ググってみます
0489名無しさん＠そうだ選挙にいこう
2016/11/15(火) 14:23:09.49【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 できれば不可
初心者の為できるかどうかもわかりませんが、
①sheet1のセルA1に会社名入力
②A1に入力された社名から販売されている商品をセルB1にプルダウン表示
ここまではできたのですが、商品の値段を複数のシートから検索して、セルC1にプルダウン表示させることはできるのでしょうか？
よろしくお願いします。
0490名無しさん＠そうだ選挙にいこう
2016/11/15(火) 15:09:13.76indirect使えば出来る
0491489
2016/11/15(火) 17:41:04.54ありがとうございます！
名前の定義とindirectでいけたのですが、
商品名にスラッシュなどの特殊記号が入ってるものがありまして、名前の定義ではスラッシュが_になってしまい値段の検索ができないのですが、ご教授頂けませんか。
0492名無しさん＠そうだ選挙にいこう
2016/11/15(火) 17:55:33.30俺なら全角／に変換するようにワンクッション置くかな。それかvba
0494名無しさん＠そうだ選挙にいこう
2016/11/15(火) 20:32:24.58どういたしまして
0495名無しさん＠そうだ選挙にいこう
2016/11/15(火) 22:01:01.05ググろうにも 「excel 大括弧 アットマーク」 とかではなかなか見つかりません。
検索の手がかりをいただければ幸いです。
0496名無しさん＠そうだ選挙にいこう
2016/11/15(火) 22:26:19.940497名無しさん＠そうだ選挙にいこう
2016/11/15(火) 22:30:29.77どんな数式？
@は=の変わりだけど、入力すると消えるはず
[]は分からん。マクロ4.0っぽいけど
というかもしかして
="[@数量] "&sum(a1)&"円"
みたいに文字列で入ってるってこと？
>>496
すまん、俺もわからん
0498名無しさん＠そうだ選挙にいこう
2016/11/15(火) 23:39:07.70テーブルとかの構造化参照してるだけじゃないの？
『数値』項目とかがあるテーブルがエクセルブック内に無い？
0499名無しさん＠そうだ選挙にいこう
2016/11/15(火) 23:41:41.37ごめん、『数量』項目だったね
0500名無しさん＠そうだ選挙にいこう
2016/11/15(火) 23:53:40.91>>497は無かったことにしてください
0501名無しさん＠そうだ選挙にいこう
2016/11/16(水) 06:53:59.230502名無しさん＠そうだ選挙にいこう
2016/11/16(水) 11:56:27.830503名無しさん＠そうだ選挙にいこう
2016/11/16(水) 12:29:39.120504名無しさん＠そうだ選挙にいこう
2016/11/16(水) 12:39:05.000505名無しさん＠そうだ選挙にいこう
2016/11/16(水) 16:11:46.79http://gigazine.net/news/20161116-android-send-message-china/
0506名無しさん＠そうだ選挙にいこう
2016/11/16(水) 17:37:01.75テーブルのメリットって何かある？
0507名無しさん＠そうだ選挙にいこう
2016/11/16(水) 17:48:34.94正規化された表じゃないと意味がないからお前には無縁
0508名無しさん＠そうだ選挙にいこう
2016/11/16(水) 17:49:17.60他にもいろいろあるけど、
0509名無しさん＠そうだ選挙にいこう
2016/11/16(水) 18:09:00.580510名無しさん＠そうだ選挙にいこう
2016/11/16(水) 19:52:16.16すぐ隣に防衛省の背広組の官舎があるのですが、
自分の家の窓にUSB接続のwebカムを貼り付けて、そこの動画を撮影し続け、
学会本部に送っていました。
別に大したものは写っていません。ゴミだしとか奥さんが子供を遊ばせている所とか。
官舎が老朽化して使われなくなってから、
今まで法人税(うちは自営業です)をほぼ払わなくても済んでいたのが、
もう守ってやれないのでこれからは満額申告するように言われました。
納得がいかないと言うと、君は自業自得で餓鬼地獄に落ちる、
朝夕南無妙法蓮華経と三千回ずつ唱えあげ、心をきれいにしなさいと言われ
馬鹿らしくなって脱会しました。
それ以来、どこへ行くにもぞろ目ナンバーの車につけまわされたり大変な日々です。
全ては自分の出来心から起きた事で、どこに訴えて出ると言う訳にもいかないのですが、
なんとかあの人たちと縁を切った上で新しい始まりを迎える方法はないんだろうか。
0511名無しさん＠そうだ選挙にいこう
2016/11/16(水) 23:30:02.93【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 少しだけ
【4 VBAでの回答の可否】 否
joinという関数を追加するアドインを探しています。
CONCATENATEと同じ意味ですが、セル一つずつの指定ではなく、
=join(A1:D1)
と入力するとA1からD1までのセルを結合した文字列を返してくれる関数です。
ググってもvbaの内容しか引っかからず。お力を貸してください。
0512名無しさん＠そうだ選挙にいこう
2016/11/17(木) 00:36:31.81dim ee as range
for each ee in myrange
result=result&ee.text
next
join=result
end function
アドイン化
0513名無しさん＠そうだ選挙にいこう
2016/11/17(木) 00:59:05.88Function join(target) As String
s = ""
For Each k In target
s = s & k
Next
join = s
End Function
0514名無しさん＠そうだ選挙にいこう
2016/11/17(木) 00:59:33.610515名無しさん＠そうだ選挙にいこう
2016/11/17(木) 07:15:59.50ParamArray で受けて For Each で各々の引数を処理するループを >>512-513 の外に追加するだけだろ
0516名無しさん＠そうだ選挙にいこう
2016/11/17(木) 09:07:09.37ありがとう。布団に入ってあー別に再帰いらねーやと思いつつ寝ました
Function join(ParamArray arrs()) As String
s = ""
For Each arr In arrs()
If IsArray(arr) Then
For Each k In arr
s = s & k
Next
Else
s = s & arr
End If
Next
join = s
End Function
0517名無しさん＠そうだ選挙にいこう
2016/11/17(木) 12:40:43.91自分で作成して組み込んじゃうのが一番なんですね。
ありがとうございました。
0518名無しさん＠そうだ選挙にいこう
2016/11/17(木) 18:16:24.10【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 否
【4 VBAでの回答の可否】否
全選択して削除してもテキストボックスが残ってしまうのですが
まとめて消すにはどうしたらいいでしょうか？
0519名無しさん＠そうだ選挙にいこう
2016/11/17(木) 18:35:17.86F5キー セル選択 オブジェクト
delete
でもここまでするなら新しいシート作ったほうが早くない？別にええけど。
0520名無しさん＠そうだ選挙にいこう
2016/11/17(木) 18:38:32.77アリガトン
参照元になってて、たまにテキストボックスついてるのコピペすることがありまして
0521名無しさん＠そうだ選挙にいこう
2016/11/17(木) 18:39:54.700522名無しさん＠そうだ選挙にいこう
2016/11/17(木) 19:42:57.96【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 いいえ
エクセルでセルの行や列番号の計算はできないでしょうか？
例えばセルA1に
0523名無しさん＠そうだ選挙にいこう
2016/11/17(木) 19:44:58.83で3になるよ
0524名無しさん＠そうだ選挙にいこう
2016/11/17(木) 19:49:51.52【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 いいえ
エクセルでセルの行や列番号の計算はできないでしょうか？
例えばセルA1に"D1"と書いてあって、セルB2に"D2"となるような計算式があったら教えてください。
ワークシート関数での方法でお願いします。
よろしくお願いいたします。
0525名無しさん＠そうだ選挙にいこう
2016/11/17(木) 19:51:11.48【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 いいえ
エクセルでセルの行や列番号の計算はできないでしょうか？
例えばセルA1にD1と書いてあって、セルB2にD2と表示されるような計算式があったら教えてください。
ワークシート関数での方法でお願いします。
よろしくお願いいたします。
0526名無しさん＠そうだ選挙にいこう
2016/11/17(木) 20:08:43.19indirect()
0527名無しさん＠そうだ選挙にいこう
2016/11/17(木) 20:09:46.250528名無しさん＠そうだ選挙にいこう
2016/11/17(木) 20:15:59.31こんなかんｆじ
0529名無しさん＠そうだ選挙にいこう
2016/11/17(木) 20:47:15.82オートフィルタでも使えるようにしたいです。
例えばセルA1～A3にD1、H1、AB1と書いてあって、数式とオートフィルタを使ってセルB1～B3にD2、H2、AB2と表示したいんです。
0530名無しさん＠そうだ選挙にいこう
2016/11/17(木) 21:24:24.95○ オートフィル
0531名無しさん＠そうだ選挙にいこう
2016/11/17(木) 21:49:22.87A列1行目にAかBと打ち込んでフィルタかけるのが一番早いのかな…
もっとスタイリッシュで楽で早い方法ないかしら
0532名無しさん＠そうだ選挙にいこう
2016/11/17(木) 21:59:21.20B1=+INDIRECT("r"&ROW()*2-1&"c1",0)
C1にコピー
B1C1選んで下にオートフィル
死ぬほどデータある時はたまに使う
2チームぐらいなら>>531のやり方でいいと思う。
0533名無しさん＠そうだ選挙にいこう
2016/11/17(木) 23:51:50.35B1からB10に =RAND()
C1からC10に =IF(B1<MEDIAN($B$1:$B$10), "A", "B")
微妙にバグがある気がしないでもないけど実用上問題ないでしょ多分
0534名無しさん＠そうだ選挙にいこう
2016/11/18(金) 00:19:16.84B1からB10に =RAND()
B列を並び替え
結果に偏りがあるようならまた並び替え
上位をA 下位をBにすればいい
0535名無しさん＠そうだ選挙にいこう
2016/11/18(金) 00:24:08.010536名無しさん＠そうだ選挙にいこう
2016/11/18(金) 00:40:25.89引数が正数の場合パターン化してしまうが引数が負数の場合その値に応じた数値を返す TIME関数はシステム時間を数値で返すので
0537sage
2016/11/18(金) 20:15:54.06https://www.youtube.com/watch?v=NJYs5GTmdcg
0538名無しさん＠そうだ選挙にいこう
2016/11/19(土) 03:02:21.48VBAで行き詰まってます
7～50人くらいのグループが複数あって、グループごと・各人のプロフィールシートみたいなのを作っています
入力用シートから、様式シートにデータを反映させたものを、各人分印刷とか、各人ごとに反映させたシートを1ファイルにまとめて保存。までは、出来ました。
ところが、シート名を各人の名前にしていたら、10人分くらいを越えると、画面をスクロールしないと各シートが見れません。
それで、シート名を数字にして、目次みたいなシートを作ってハイパーリンクを設定することを思いついたのですが、
７～50の幅で変動する人数分のシートに対応して、目次シート1の名簿の名前にハイパーリンクを設定するマクロって、どう書いたら良いでしょうか？
どうか教えてください
0539名無しさん＠そうだ選挙にいこう
2016/11/19(土) 05:38:55.09こんな感じでいかがですか？
iphoneで直打ちなのでテストしてません。
sub worksheet一覧()
Dim wSheet As Worksheet
Dim i As Long
i = 1
With ActiveSheet
.Columns(1).Clear
.Cells(1,1) = " worksheet一覧"
.Cells(1,1).Name = "Index"
End With
For Each wSheet In WorkSheets
If wSheet.Name <> ActiveSheet.Name Then
i = i + 1
With wSheet
.Range("A1").Name = "Start" & wsheet.Index
.Hyperlinks.Add Anchor:= .Range("A1"),Address:= _
"",SubAddress:= "Index",TextToDisplay:= _
"worksheet一覧に戻る"
End With
ActiveSheet.Hyperlinks.Add Anchor:= _
ActiveSheet.Cells(1,1),Address:="" _
,SubAddress:= "Index"
TextToDisplay:= wSheet.Name
End If
Next
End Sub
0540名無しさん＠そうだ選挙にいこう
2016/11/19(土) 08:35:55.67539ですが上のCodeはダメです。
リンクを作りたい、シートのイベントプロシージャ(Activateか何か)に記述してActiveSheetをMeに変更して下さい。
やりたい内容を勘違いしていたらすみません。
0541名無しさん＠そうだ選挙にいこう
2016/11/19(土) 09:02:11.06538です。ありがとうございます
でも、TextToDisplay:= wSheet.Name の行でエラーになってしまいます。
それと、新しく作ったファイル内のシートにハイパーリンクを設定するので、シート内にマクロの記述が出来ませんm(__)m
0542名無しさん＠そうだ選挙にいこう
2016/11/19(土) 10:28:36.05,を打ち忘れました。
hyperlink のAddの引数になります。
同一ファイル内のシート一覧でないのですか？
同一ファイル内のシートなら一覧を作成したい目次シートにイベントプロシージャを作れば全てのシートのリンクが設定されます。
0543名無しさん＠そうだ選挙にいこう
2016/11/19(土) 11:00:21.81ありがとうございます
>入力用シートから様式シートにデータを反映させたものを、各人ごとシート7～50枚を1ファイルにまとめ
たもの(ファイル名aaa）に、ハイパーリンクを付けるまでを
元のthis workbook のマクロで一気にやりたいのです
0544名無しさん＠そうだ選挙にいこう
2016/11/19(土) 19:47:18.82ここでA1に別のセルをコピペすると、ちゃんと反映されますが、
ドラッグしてもっていくと、B1セルに #REF! エラーが出てしまいます。
防ぐ方法はありませんか？
0545名無しさん＠そうだ選挙にいこう
2016/11/19(土) 20:27:22.74D&D？
フィルハンドルで連続データ？
0546名無しさん＠そうだ選挙にいこう
2016/11/19(土) 20:43:11.41絶対参照にしてもなるし。
目的がよくわからないけど、=offset(b1,0,-1)
とかは？
0547名無しさん＠そうだ選挙にいこう
2016/11/19(土) 21:50:33.36作業の都度判定する必要があり、その判定の為に作業域を作る必要があるのです。
countifは複数範囲対応できないから・・
0548名無しさん＠そうだ選挙にいこう
2016/11/19(土) 22:25:31.92その仕事改善してやるからうｐしてくれ
なんだったら仕事自体なくなるかもしれんぞ
0549名無しさん＠そうだ選挙にいこう
2016/11/20(日) 14:11:06.32ジグ「ソー」パズル（Jigsaw Puzzle）なｗ
0550名無しさん＠そうだ選挙にいこう
2016/11/20(日) 17:12:41.94【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】
超初心者レベル
【4 VBAでの回答の可否】
可
２点質問です。
１ 特定の列だけではなくて、全ての列の数字を日付に変えるときは、どこの部分を修正したらよいでしょうか？
２ 途中に空欄があったとき変換されないため、そこも修正したいです。
下記のコードを元に回答頂きたいです。
Sub A列の8桁の数字を日付にする()
Dim org As String
Dim buf As String
Dim i As Long
For i = 1 To Range("A1").End(xlDown).Row
With Cells(i, "A")
org = .Value
If Len(org) = 8 Then
buf = Format(org, "@@@@/@@/@@")
If IsDate(buf) = True Then
.Value = buf
.NumberFormatLocal = "yyyy年m月d日"
End If
End If
End With
Next i
End Sub
0551名無しさん＠そうだ選挙にいこう
2016/11/20(日) 17:40:14.17'範囲指定
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
'範囲に対して処理
For Each c In Selection
If Len(c.Value) = 8 Then
buf = Format(c.Value, "@@@@/@@/@@")
If IsDate(buf) = True Then
c.Value = buf
c.NumberFormatLocal = "yyyy年m月d日"
End If
End If
Next
End Sub
0552名無しさん＠そうだ選挙にいこう
2016/11/20(日) 17:43:14.580553名無しさん＠そうだ選挙にいこう
2016/11/20(日) 17:44:44.33>>546ではダメだった？
ダミーファイルアップしてほしい。
0554名無しさん＠そうだ選挙にいこう
2016/11/20(日) 17:47:36.17はカットペーストと同じだな
offset()やindirect()じゃないと無理っぽい
0555名無しさん＠そうだ選挙にいこう
2016/11/20(日) 18:07:22.38【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 不明
Excel初心者で申し訳ないのですが教えてください。
住所・氏名・電話の名簿を作成していて、所属グループごとに一つのExcelファイル内の別々のシートにリストしてあります。
これを同じファイル内の新しいシートに全グループ全員の名簿としてまとめたいです。グループ別シートの変更も随時全員名簿に反映されるようにしたいのですがどうしたらいいでしょうか？
VBAを使えば出来るようなのですが難しくて。どうすればいいのかご教示下さい。
0556名無しさん＠そうだ選挙にいこう
2016/11/20(日) 18:16:31.630557名無しさん＠そうだ選挙にいこう
2016/11/20(日) 18:29:15.57そんなにない（数百人とか）なら、vlookupでもいけるかと。
随時更新となると、ExcelVBAよりaccessとかの方がいいかも。
0558名無しさん＠そうだ選挙にいこう
2016/11/20(日) 18:39:26.61match関数か。
0559名無しさん＠そうだ選挙にいこう
2016/11/20(日) 19:33:43.18index関数でイケるねぇ
0560名無しさん＠そうだ選挙にいこう
2016/11/20(日) 20:38:42.660561名無しさん＠そうだ選挙にいこう
2016/11/20(日) 20:39:16.84550です。ありがとうございました。明日、会社で入力してみます
0562名無しさん＠そうだ選挙にいこう
2016/11/20(日) 20:52:52.430563名無しさん＠そうだ選挙にいこう
2016/11/20(日) 23:08:04.48ありがとうございます！調べてみます！
0564名無しさん＠そうだ選挙にいこう
2016/11/21(月) 08:05:18.550565名無しさん＠そうだ選挙にいこう
2016/11/21(月) 08:17:28.41そりゃ、ちゃんとvlookupの癖わかってる人間が使うならいいけどさ
初心者の場合、検索列ソートさせずに組んだり
そのくせ組んだ後にオートフィルタしたり
存在しない文字を検出させた結果を疑わずに他で使ったりする恐怖が・・・
0566名無しさん＠そうだ選挙にいこう
2016/11/21(月) 08:39:47.40逆に熟知してる中級以上の人はあまり使わなかったりｗ
0567名無しさん＠そうだ選挙にいこう
2016/11/21(月) 09:10:36.820568名無しさん＠そうだ選挙にいこう
2016/11/21(月) 09:13:14.210569名無しさん＠そうだ選挙にいこう
2016/11/21(月) 09:27:09.25うん
vlookup()は初心者は脳死で使わなくていい
慣れてきたらvlookup()使ってもいいけど結局引数の順番とか忘れるので使わない
収入印紙や税金の計算みたいに、n未満の検索をする時に思い出して使う程度
0570名無しさん＠そうだ選挙にいこう
2016/11/21(月) 11:19:59.58index()とかmatch()とかでごにょごにょやるんだったら、
ちゃんとした表をつくってvlookup()のほうがわかりやすいし、
再利用もできると思うが。
むしろ、要件が特殊なときや、だれかがふつうではない表を
作った場合に、上級者が何とかしてやるというのが
index()とかmatch()だと思うのだが。
0571名無しさん＠そうだ選挙にいこう
2016/11/21(月) 11:57:51.68新規にエクセルを作成します。シートは２つ用意します。
どちらのシートにも、Ａ１セルに「あ」と入力します。
それで１つ目(左側)のシートのみ、Ａ１セルとＡ２セルとを結合します。
この状態で、「検索と置換」を呼び出して文字列「あ」でブック全体を
検索します。すると検索結果には１シート目の「あ」のみが載り、２シート目
の方は載りません。
ちなみに、シートの順序を逆にして２シート目に結合をした場合は、正常に
検索できました。
Excelは2003・2007・2010すべて同じ挙動でした。(2013は不明)
直す方法知っている人がいれば教えて欲しいです。
0572名無しさん＠そうだ選挙にいこう
2016/11/21(月) 14:05:21.87へぇ、これはバグっぽい
その状態でA4セルに"あ"と入力すると3つとも検索結果に出るようになるな
0573名無しさん＠そうだ選挙にいこう
2016/11/21(月) 14:19:46.700574名無しさん＠そうだ選挙にいこう
2016/11/21(月) 14:32:57.54調べるとすでにマイクロソフトで不具合として載ってました。
2013でもおきるようです。
https://support.microsoft.com/ja-jp/kb/2870775
0575名無しさん＠そうだ選挙にいこう
2016/11/21(月) 14:38:39.61あぁそういうバグか
まぁ仕様と思うしかないね
0576名無しさん＠そうだ選挙にいこう
2016/11/22(火) 05:49:11.03初心者の時は、index()、match()の方がわかりやすかった記憶あるな
今もあまり自分用のファイルにVLOOKUPは使わんけど
（他人との共用ファイルではVLOOKUPじゃないと通じないことが多いので常用する）
INDEX自体は最近はSUMPRODUCTの範囲指定での方がよく使うかな
0577名無しさん＠そうだ選挙にいこう
2016/11/22(火) 07:18:41.310578名無しさん＠そうだ選挙にいこう
2016/11/22(火) 07:26:02.210579名無しさん＠そうだ選挙にいこう
2016/11/22(火) 08:37:42.93俺もそう思う
引数の最後に引数追加して検索列番号を指定できるようにしてくれればいいのに
規定値を 1 にすれば互換性も保てるし
0580名無しさん＠そうだ選挙にいこう
2016/11/22(火) 11:46:10.41こういうVlookupSPという自作関数をつくればいいじゃないか。マクロの標準モジュールにこう書く。VlookupSPの引数は3つ。
Function VlookupSP(targetCell As Range, targetColumn As Range, offsetIndex As Integer) As String
VlookupSP = targetColumn.Cells(1).offset(WorksheetFunction.Match(targetCell, targetColumn, 0) - 1, offsetIndex)
End Function
0581名無しさん＠そうだ選挙にいこう
2016/11/22(火) 12:39:57.66自前ファイルでのみやるならともかく初心者も使うファイルだと論外だぞ
設定のないファイルでパソコンが壊れたと騒ぎ出すから
0582名無しさん＠そうだ選挙にいこう
2016/11/22(火) 12:52:47.47マクロを使いたくないから標準関数で何とかして欲しいって話
マクロ使っていいならそんな変な関数定義せずにマクロで全部やるよ
0583名無しさん＠そうだ選挙にいこう
2016/11/22(火) 13:44:33.990584名無しさん＠そうだ選挙にいこう
2016/11/22(火) 20:18:55.08ん？
関数ならindexとmatchでいけるじゃん
別に簡単な関数だし便利だよ
0585名無しさん＠そうだ選挙にいこう
2016/11/22(火) 20:52:16.23ちょっとなに言ってるかわかんない
0586名無しさん＠そうだ選挙にいこう
2016/11/22(火) 20:56:40.640587名無しさん＠そうだ選挙にいこう
2016/11/22(火) 21:30:57.51VLOOKUP で検索列の左側の列の値がほしい
⇒ マクロ組めばいいじゃん
⇒ マクロ組むぐらいならわざわざ VLOOKUP とか使わなくてもいいし
⇒ MATCH とか INDEX とか組み合わせればいいやん
⇒ 毎回組み合わせるのが面倒だっちゅうの
0588名無しさん＠そうだ選挙にいこう
2016/11/22(火) 21:49:16.290589名無しさん＠そうだ選挙にいこう
2016/11/22(火) 21:58:46.860590名無しさん＠そうだ選挙にいこう
2016/11/22(火) 22:01:48.91とは言ってもマクロと同様、使ってなかった人だと
変な苦手意識ある人がわりといるみたい
基本レベルの関数なんだし、不便な関数の不満を言うだけじゃなく覚えてくれると一緒に仕事する身としては助かるんだけど
0591名無しさん＠そうだ選挙にいこう
2016/11/22(火) 22:03:23.070592名無しさん＠そうだ選挙にいこう
2016/11/22(火) 22:12:37.33左側のデータを右側の作業列にリンクする手もある
0593名無しさん＠そうだ選挙にいこう
2016/11/22(火) 22:25:05.09特定のセルに時刻(15:20)を入れると自動でマイナス2時間や1時間と言った時刻を表示したいです
反映されるセルにそれぞれどのように入力すればよろしいでしょうか？
0594名無しさん＠そうだ選挙にいこう
2016/11/22(火) 22:33:55.75時刻が1時間前
分が15分後
秒数が30秒固定
の場合
A1=15:20
B1=TIME(HOUR(A1)-1,MINUTE(A1)+15,30)
後は書式設定をテキトーに
0595名無しさん＠そうだ選挙にいこう
2016/11/22(火) 23:27:10.60早速ありがとうございます
だいたいベースとなる時間から1時間や2時間前を多く使うのでHOURのみで使用してみます
無駄なところが多いですかね…？
A1=15:20
B1=TIME(HOUR(A1)-2,MINUTE(A1),0)
0596名無しさん＠そうだ選挙にいこう
2016/11/22(火) 23:33:52.31"AB"+数字の文字列の場合は10:00に対して1時間前(09:00)を表示したい 例えばAB0050など数字部分が毎回異なります
"BC"+数字の文字列の場合は10:00に対して2時間前(08:00)を表示したい BC1150など数字部分が毎回異なります
上のABとBCの部分だけを自動判断して時間に返す計算式は作れますでしょうか
0597名無しさん＠そうだ選挙にいこう
2016/11/23(水) 00:00:02.07縦軸を商品の売り上げ(単位円)
横軸は4月から3月までをひと月ずつ目盛りにしたい(単位月)
これってどうやったらいいですか？
横軸の「4月」「5月」・・・「3月」の表示ができなくて困っています・・
1月から始まってたり、1月、1月、1月・・になったり、2016年1月になったり、「○月」という目盛りを付けられなくて困っています・・
誰かお助けください・・
0598名無しさん＠そうだ選挙にいこう
2016/11/23(水) 00:07:35.51いいんじゃね
>>596
簡単にできるけど、その情報だけだと最適なソリューションを提供しているか自信がない
仕事の流れをまるごと教えてくれれば最適な方法を教えて上げられると思う
A1=10:00:00
B1=AB0050
※B1はAB0050やBC~など好きに入力
C1=(IF(LEFT(B1,2)="AB",TIME(HOUR(A1)-2,MINUTE(A1),0),"")&IF(LEFT(B1,2)="BC",TIME(HOUR(A1)-1,MINUTE(A1),0),""))*1
※全体を()でくくって*1にしてるのは数値にするため
0599名無しさん＠そうだ選挙にいこう
2016/11/23(水) 00:16:57.57シリアル値使うのも分かりやすいかも。
A1に15:30と入れて、B1に=A1-(1/24)とか。
書式設定はA1をコピー
>>596
Left関数使えば左から2文字が取得できるよ。
それにIf関数を組み合わせればOK
0600名無しさん＠そうだ選挙にいこう
2016/11/23(水) 00:19:33.31元のデータがおかしいんだと思いますよ。
なんなら元データあげてみて。
0601名無しさん＠そうだ選挙にいこう
2016/11/23(水) 00:27:00.84こんな感じで表作って
範囲選択
挿入、グラフ
でこうなる
http://stamp-uploda.com/src/file3190.jpg
0602名無しさん＠そうだ選挙にいこう
2016/11/23(水) 00:47:38.00どうもありがとうございます細かく書くとですね以下となります
A1=(記号手打ち) AB0050、CD0010、EF0020の固定英字3種類の場合はB1=の手打ち時間から3時間前に
それ以外の入力値(PL1100など)はB1の時刻から全部2時間前を反映したいです
B1=(時刻手打ち) 時刻を手打ちで入力します
C1=反映された時刻
9:00だとしても表示は09:00としたいのですがこれは書式設定でしょうか
宜しくお願い致します
0603名無しさん＠そうだ選挙にいこう
2016/11/23(水) 01:17:55.45それなら、Left関数で先頭の文字だけ拾って、If関数で条件分岐すればいいよ。
Aの場合、Bの場合、Cの場合の３つですむ。
0604名無しさん＠そうだ選挙にいこう
2016/11/23(水) 01:30:30.27はい
http://www.dotup.org/uploda/www.dotup.org1070346.zip.html
やっぱり前後も聞いたほうが早いなぁ
もしマイナスになりそうなら
C1=B1-IF(COUNTIF(list!A:A,A1),3/24,2/24)
を
C1=1+B1-IF(COUNTIF(list!A:A,A1),3/24,2/24)
とかにしてくれ
0605名無しさん＠そうだ選挙にいこう
2016/11/23(水) 09:22:53.22今もってるのは2003で古すぎる
office単体で購入するとどのくらいの価格なんですか？
ダウンロード版とパッケージ版とどっちがいいかな
単体が高すぎるなら、office付のPCを中古で買うとどのくらいですか？
excelは2010か2007でもいいのかわからない。2007でもいいならそれにしたいが
0606名無しさん＠そうだ選挙にいこう
2016/11/23(水) 09:36:29.64＞officeのワードとエクセルの練習をしたい
一ヶ月無料の体験版がある。office 体験版でぐぐれ
＞office単体で購入するとどのくらいの価格なんですか？
3万円ぐらい。
1万ぐらいのは年間チケットなので気おつけろ
＞ダウンロード版とパッケージ版とどっちがいいかな
どっちでもいい
＞単体が高すぎるなら、office付のPCを中古で買うとどのくらいですか？
俺は倒産セールの店で3000円で買った
6000円～1万ぐらいだと思う
＞excelは2010か2007でもいいのかわからない。2007でもいいならそれにしたいが
2007はうんこ
2010なら当分使える
0607名無しさん＠そうだ選挙にいこう
2016/11/23(水) 09:37:39.57出先でエクセルファイルが確認できなかったので家に帰ったら試してみます(会社でDLして開くとうるさそうなので…)
取り急ぎお礼だけですがありがとうございました
0608名無しさん＠そうだ選挙にいこう
2016/11/23(水) 09:37:57.030609名無しさん＠そうだ選挙にいこう
2016/11/23(水) 09:44:35.55CD山積みになってる
0610名無しさん＠そうだ選挙にいこう
2016/11/23(水) 10:08:11.380611名無しさん＠そうだ選挙にいこう
2016/11/23(水) 10:20:12.57俺は歩いていける距離だから考えもしなかったわ、スマン
0612名無しさん＠そうだ選挙にいこう
2016/11/23(水) 11:14:58.710613名無しさん＠そうだ選挙にいこう
2016/11/23(水) 12:12:36.09left指定じゃなくて*でよくない？
0614名無しさん＠そうだ選挙にいこう
2016/11/23(水) 13:09:16.99他人が見たわかりやすさだとLEFTの方がわかりやすいんじゃね？
それにワイルとカートだとCOUNTIFなどの関数を結局使うことになるし
ただのIFじゃ、ワイルとカート対応してないっしょ
0615>>605
2016/11/23(水) 13:21:35.48>>606
ありがとうございます。
高い
0618名無しさん＠そうだ選挙にいこう
2016/11/23(水) 13:48:13.31普通に再インストールするだけだと無理
仮想PC使えば多分出来ると思う
>>617
大阪日本橋にある。小さいPC回ればすぐに見つかる。ソフマップやジョーシンなどでかいとこにはない。
東京のアキバもあると思うけど知らん
OEMはライセンスがPC本体と紐付けられているから他のPCで使うのはNG
それを破ってどうなるかは知らない
個人的にはたかだか1万円のためにリスクかかえるのはアホらしいと思う
0619名無しさん＠そうだ選挙にいこう
2016/11/23(水) 15:30:57.40> ワイルとカート
カインとアベルの親戚？ w
0620名無しさん＠そうだ選挙にいこう
2016/11/23(水) 15:56:15.260621>>605
2016/11/23(水) 16:33:30.75ありがとうございます。
3万円の普通のオフィスが中古で売ってるなんてみたことがないです。
アキバにもいけますがアキバのどのあたりなんだろうって思う
東京だとアキバですか。もっと新宿とか渋谷とか西方向にないですか？
0622名無しさん＠そうだ選挙にいこう
2016/11/23(水) 18:07:32.11あんまりキモをわかってないよねｗ的外れな質問をピックアップするしｗ
0623名無しさん＠そうだ選挙にいこう
2016/11/23(水) 18:09:04.48ずっと「ピポットテーブル」って言ってたなｗ
0624>>605
2016/11/23(水) 18:12:35.49見てもOEMなのか1年版なのかよくわかりません
0625>>605
2016/11/23(水) 18:13:32.42パーソナルでなくプロフェッショナルになると2万いっちゃうのかな
0626名無しさん＠そうだ選挙にいこう
2016/11/23(水) 18:23:14.83ありがとうございます
0627名無しさん＠そうだ選挙にいこう
2016/11/23(水) 18:50:14.522010にのってるのかな
エクセルって簡単かとおもったらパワーポイントとかワードとか1か月は勉強必要。
まず2010以上のオフィスも飼わないといけないし事務ってハードル高いね
0628名無しさん＠そうだ選挙にいこう
2016/11/23(水) 18:57:18.20エクセル2010中古はこれ。17000円
https://www.amazon.co.jp/gp/offer-listing/B003FZAC0A/ref=sr_1_3_olp?ie=UTF8&;qid=1479894768&sr=8-3&keywords=microsoft+excel%E3%80%802010&condition=used
1年版は一年版と書いてる
https://www.amazon.co.jp/dp/B00O2TXF8O/ref=cm_sw_r_cp_ep_dp_zAwnyb6Z24JB3
OEMならOEMと書いてる
http://amzn.asia/ipp6YoG
高いと思ったらここで嘆くよりアキバ巡ったほうが早いと思う
金がないなら全部の店に入って一番安いところで買えばいい。大抵ショーケースの中に入れて売ってる
>>627
＞MOS excel 2007をかったけどVLOOKがのってません
出版社に言ってくれ
＞エクセルって簡単かとおもったらパワーポイントとかワードとか1か月は勉強必要。
エクセル使えればカンでどうとでもなる
＞事務ってハードル高いね
低い
ブックなんてどうせ誰かが作ってるから基本入力するだけだ
0629名無しさん＠そうだ選挙にいこう
2016/11/23(水) 19:13:22.360630名無しさん＠そうだ選挙にいこう
2016/11/23(水) 19:22:39.76個人的には正規化と小数誤差さえ覚えておけば殆どの場合なんとかなると思うんだけど、なかなかねぇ
0631名無しさん＠そうだ選挙にいこう
2016/11/23(水) 20:35:16.50ありがとうございます
OEMでない中古を買うといろんなPCに入れ放題なんですよね？
OEMでつかいまして罰則受けた人って今までにいるんですか？
0632名無しさん＠そうだ選挙にいこう
2016/11/23(水) 20:48:01.33制限なし版は100万だっけ？1000万だっけ？忘れた
通常版は家に置くPCと持ち歩くPCの二台にインストール可能。
OEMはPCパーツにライセンスが付く。パーツがPC内部にあればok
違反して誰に何があったかは知らない。違反しなければいいだけの話
0633名無しさん＠そうだ選挙にいこう
2016/11/23(水) 20:55:40.963時間前にしたいAB、CD、EF3種類の後に来る数字4桁はユニークな値で毎回異なります
その場合は>>602で作ってくれたlistを使ったものでは無くABという値を認識して動く計算式の方が良いのでしょうか
そこでLEFTとIFを使って自分なりにいじっていたのですが式が完成しませんでした…
0634603
2016/11/23(水) 21:29:36.89>>633
こんな感じかな？
0635603
2016/11/23(水) 21:30:19.970636名無しさん＠そうだ選挙にいこう
2016/11/23(水) 21:30:20.04はい
http://www.dotup.org/uploda/www.dotup.org1071071.zip.html
0637名無しさん＠そうだ選挙にいこう
2016/11/23(水) 21:38:48.060638名無しさん＠そうだ選挙にいこう
2016/11/23(水) 21:55:09.53どうもありがとうございますスゴイです…
ベースとなるAB0000、CD0015、EF5555等の数値は毎回A1のセルのみに入力します
その場合入力する予定の3種全てを含んだ計算式も可能なのでしょうか？
0639名無しさん＠そうだ選挙にいこう
2016/11/23(水) 21:56:41.53どうもありがとうございますこうするのですね
listを入力する可能性のある数字でAB0000～AB9999までを作って反映させていました…
0640名無しさん＠そうだ選挙にいこう
2016/11/23(水) 22:07:54.45たぶん、そのまま対応してます。
2行目以降は削除してください。
自分で頑張って作るなら、別シートにしてるように作業列を使うのがおすすめです。
0641名無しさん＠そうだ選挙にいこう
2016/11/23(水) 22:08:13.36wikipediaにでも載ってるんじゃない
>>639
実務ではそのほうが良いと思うよ
重すぎて使えないとかでもない限り、力技で作ってしまったほうが良い。人件費も浮くし、誰も困らない
その内こういうのはぱっと浮かぶようになるからその時に頑張ればいいと思う
問題は後で見返すと直したくなるところなんだけどね。
0642名無しさん＠そうだ選挙にいこう
2016/11/23(水) 22:47:49.61今色々といじっていたのですが
AB0050
CD0010
EF1100 の指定文字列を判断する部分が""で指定してあるのですよね
Aだけ打っても3時間前になるのでこの""にAB、CD、EFを入れたら何を入力しても2時間前になってしまいました
列のAと入力する数値のAがまだ理解できていないみたいです度々済みません
0643640
2016/11/23(水) 23:04:57.70すみません、間違ってましたね。
先頭の文字をA、B、Cじゃなくて、A、C、Eで条件分岐ってことか。
2文字ならLEFT関数の引き数も変更する必要がありますね。
この場合はAB、CD、EF、それ以外で条件分岐です。
もう不要かと思いますが、今後の参考になれば。
http://www.dotup.org/uploda/www.dotup.org1071208.xlsx.html
0644名無しさん＠そうだ選挙にいこう
2016/11/24(木) 08:37:41.04USBいれといてそれが付属品ってことで良かった気がしたが違った？
0645名無しさん＠そうだ選挙にいこう
2016/11/24(木) 08:48:27.60いいよ
0646名無しさん＠そうだ選挙にいこう
2016/11/24(木) 13:47:15.220647名無しさん＠そうだ選挙にいこう
2016/11/24(木) 13:54:10.150648名無しさん＠そうだ選挙にいこう
2016/11/24(木) 13:54:17.090649名無しさん＠そうだ選挙にいこう
2016/11/24(木) 14:08:03.30店舗ならセットにするパーツを選べる。
amazonでは選べない
0650名無しさん＠そうだ選挙にいこう
2016/11/24(木) 14:27:35.781ヶ月勉強してExcel使えるとは思えないんだよなあ
0651名無しさん＠そうだ選挙にいこう
2016/11/24(木) 14:36:36.82エクセルなんてまともにやったことないだけです。家にもないし
0652名無しさん＠そうだ選挙にいこう
2016/11/24(木) 14:40:45.87また一つ大人になったよ
0653名無しさん＠そうだ選挙にいこう
2016/11/24(木) 15:43:40.00ただVLOOKとか事務専門のレベルまではやってないが
１回内容を読むと即理解出来る簡単さ
0654名無しさん＠そうだ選挙にいこう
2016/11/24(木) 16:18:22.610655名無しさん＠そうだ選挙にいこう
2016/11/24(木) 16:22:00.62【質問不可】Excel総合相談所スレの雑談・議論スレ3
http://echo.2ch.net/test/read.cgi/bsoft/1354358619/
0656名無しさん＠そうだ選挙にいこう
2016/11/24(木) 23:05:28.92実際に実務に調整して使いやすくなりました
丸ごと作ってもらってどうもありがとうございました大変助かりました
0657名無しさん＠そうだ選挙にいこう
2016/11/25(金) 00:58:00.96ことごとく安価ミスしてごめんなさい
ありがとうございました
0658名無しさん＠そうだ選挙にいこう
2016/11/25(金) 05:03:24.26今でもVLOOLUPよりLOOKUPの方が慣れている。
0659abc
2016/11/26(土) 21:30:32.32PowerPointの板が過疎ってるので、助けを求めに来ました。以下コピペです。
私、PowerPoint初心者です。来年より業務でパワポを使用する事になりました。
取り敢えず、パソコン教室で16時間の講座を受け、YouTubeのアセットローダーPowerPointを通しで見た程度のレベルです。
現在、Office365のもし幕末にOfficeがあったらのPowerPointファイルを、ダウンロードして、アニメーションウィンドウで構造等確認したのですが、8,9スライドのオレンジ縦棒の積み重なる移動と以降スライド《マイルストーンのスライド》のphaseの動かし方が理解できません。
勉強用にダウンロードして、白紙から何処まで組み立てれるかしてみるので、まだまだ疑問が出てくると思います。習得まで余り時間がないので皆様のお力をお借り出来ればと思います。
その他、勉強方法もあれば教えて下さい。
ちなみ板チですがExcelもレベルアップもしないといけなくって、YouTubeにあるおさとエクセルのトレースと本買ってのトレース予定です。時間がないよーたすけてー
宜しくお願い申し上げます(・ω・)
0660名無しさん＠そうだ選挙にいこう
2016/11/26(土) 21:56:26.59フォント変えてスライド作る程度しか出来ないわ。10年で一回しか使わなかった。しかもそれエクセルに写した。
パワーポイント、どう考えてもめんどくさいんだしエクセルで代用するように上に進言してみては？
そっちの方が導入コスト低いし誰でも使えるし、良いと思うけどなー
0661名無しさん＠そうだ選挙にいこう
2016/11/26(土) 21:57:21.24あきらめでOfficeを使わない部署に配置換えしてもらった方がストレスでハゲるよりマシだと思う
0662名無しさん＠そうだ選挙にいこう
2016/11/26(土) 22:05:19.76ここで居座るつもりで聞くのではなく
元のスレに来てもらうよう誘導するのが筋ではないか？
0663名無しさん＠そうだ選挙にいこう
2016/11/26(土) 22:22:24.23独りよがりな鬱陶しいアニメーション多用とかは絶対にやめてくれよ
0664名無しさん＠そうだ選挙にいこう
2016/11/26(土) 22:30:12.07仕事の部署がITみたいなところだとExcelがいい場面も多いかもしれないが
営業だと社外の人にアピールするため、いかに単純で分かりやすいインパクトのある文字やイラストやアニメーションを演出するかがカギになるから
そうとも言えんです。
ちなみにオレは小さい会社で働いてたころはITにいたけど営業の人も部屋が同じで
ほとんどパワーポイントしか使ってなくてITだからということでよくパワーポイントの質問をされた。
0665名無しさん＠そうだ選挙にいこう
2016/11/26(土) 22:56:59.19pptて、ワードやエクセルを合わせた見た目ドキュメントを見せるイメージだけど
その中身は全部ワードで作ってます（表も手入力で、計算してません）みたいな
非効率の塊な印象
0666名無しさん＠そうだ選挙にいこう
2016/11/26(土) 23:01:02.27ついでに、A4横に大フォントで説明書いてて、
A4一枚に印刷したときの情報の少なさと来たら・・・
縮小してA4縦に2コマ印刷するのが普通というのが、
なんか間抜け過ぎる
0667名無しさん＠そうだ選挙にいこう
2016/11/27(日) 01:20:02.74用意されてるテンプレート通りに作ればそれっぽいものになる
テンプレートに合わない場合は素材の方をテンプレートに合うように作り直そう
0668名無しさん＠そうだ選挙にいこう
2016/11/27(日) 07:07:08.81https://www.youtube.com/watch?v=_akag7UV9y4
0669abc
2016/11/27(日) 08:39:42.76Excel板の皆様、ありがとうございます。ExcelもPowerPointもどちらも使える様にならないといけなくて、どちらも何となく業務で使う程度だったのですが、一から勉強し直して、どちらも非常に優れたアプリケーションだと感じている次第です。
PowerPointはPowerPoint板でやりますがExcelの事はこちらで質問させて頂きたいので宜しくお願いします。
0670名無しさん＠そうだ選挙にいこう
2016/11/27(日) 10:12:28.61名前は入力なしで頼むよ
0671名無しさん＠そうだ選挙にいこう
2016/11/27(日) 10:59:11.29○PowerPointスレ・Excelスレ
板はビジネスソフト板だな
0672名無しさん＠そうだ選挙にいこう
2016/11/27(日) 11:22:30.10宜しくお願いします。
0673名無しさん＠そうだ選挙にいこう
2016/11/27(日) 11:28:35.87気持ち悪いんだよ。
0674名無しさん＠そうだ選挙にいこう
2016/11/27(日) 14:41:33.41673さん、パワポスレで教えて下さい。
ほんと、たどり着けないんですよ。
0675名無しさん＠そうだ選挙にいこう
2016/11/27(日) 14:57:37.650676名無しさん＠そうだ選挙にいこう
2016/11/27(日) 16:03:55.69知らん
環境や数式によって変わる部分もあるので一概に言えない
体験版があるので自分で試したほうが早い
>>674
知恵袋でも行ったほうが良いんじゃないか
何となくだけど2chねらとパワポって層が被ってない気がする
0677名無しさん＠そうだ選挙にいこう
2016/11/27(日) 17:49:09.12【2 Excelのバージョン 】 Excel20013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
こんにちは、エクセル上級者です。
文字列を選択して、右クリックメニューから「文字を大文字にする」
みたいなことをやりたいんですが、どうしたら良いでしょうか？
0678名無しさん＠そうだ選挙にいこう
2016/11/27(日) 18:18:54.98http://www.atmarkit.co.jp/ait/articles/1408/25/news030.html
0679名無しさん＠そうだ選挙にいこう
2016/11/27(日) 18:42:59.68ありがとう！
あと、さっきエクセル上級者って言ったけど、実はオレ・・・
0680名無しさん＠そうだ選挙にいこう
2016/11/27(日) 18:44:21.11見れば分かるし興味無い
質問がもう無いならさっさと失せろ
0681名無しさん＠そうだ選挙にいこう
2016/11/27(日) 18:49:26.71そんなことないよ
0682名無しさん＠そうだ選挙にいこう
2016/11/27(日) 20:52:42.19【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 不明
改ページプレビューで毎回改ページ位置を設定するのが面倒
「ここからここまでの間で改ページはさせない」 みたいな範囲を
設定して、あとは自動で改ページ設定するようなワザを教えて
0683名無しさん＠そうだ選挙にいこう
2016/11/27(日) 21:11:24.92無理 なぜ改ページが発生するのかを考えてみよう
0684名無しさん＠そうだ選挙にいこう
2016/11/27(日) 21:15:44.6630~60の間に改ページがある時に5行目に改ページを移動する
Sub Macro2()
min_r = 30
max_r = 60
r = ActiveSheet.HPageBreaks(1).Location.Row
If (r > min_r And r < max_r) Then
Set ActiveSheet.HPageBreaks(1).Location = Range("a5")
End If
End Sub
0685名無しさん＠そうだ選挙にいこう
2016/11/28(月) 01:34:12.28ずいぶん未来から来たんね
0686名無しさん＠そうだ選挙にいこう
2016/11/28(月) 11:44:27.92a地区名あ※（←マーク）
a地区名い
a地区名う
b地区名え
b地区名お※
b地区名か
c地区名き※（以下同）
これをもとに代表者だけの名前等の一覧表を作りたいのですが
地区や会員はほぼ変わりませんが、代表が毎年変わるので代表マークをつけかえるだけで更新されるような方法にしたいです。
a地区代表名あ
b地区代表名お
b地区代表名き
範囲を指定したところから代表マークを探してその名前を表示するみたいな関数はなにですか？
0687名無しさん＠そうだ選挙にいこう
2016/11/28(月) 11:47:43.450688名無しさん＠そうだ選挙にいこう
2016/11/28(月) 12:05:30.40こんな感じ
https://docs.google.com/spreadsheets/d/1wldfBjxwi41KNFfkTnByCnm6LFPDb4WxE-UgkQ6JXNg/edit#gid=2130901122
>>687
オブジェクト選択ツールって何？
エクセルは世界中の会社も個人も使ってるね
君に取って存在意義が無いなら無いんじゃない？
0689名無しさん＠そうだ選挙にいこう
2016/11/28(月) 12:17:02.04あ、なるほどINDEXとMATCHですか
※を探すんじゃなくて地区名にしてしまうのもいいですね
感謝申し上げます。
0690名無しさん＠そうだ選挙にいこう
2016/11/28(月) 15:42:10.140691名無しさん＠そうだ選挙にいこう
2016/11/29(火) 08:04:38.52VLOOKを仕事で使うから覚えたい
2010がいいみたいなんだがどうやってオフィスを安く手に入れられますか？
普通に買っちゃうと3万ぐらいしちゃうし。
OEM買おうと思うが失敗すると動かないらしい。
2010エクセルがはいったPC買おうかとおもってみてると2万前後も価格がいく
MOSのエキスパートをみても、目次を見るとVLOOKが出てこないんだが
ものすごい難しいですか？C言語のプログラムやデータベースいじりはできます
0692名無しさん＠そうだ選挙にいこう
2016/11/29(火) 08:20:49.17>2010がいいみたいなんだがどうやってオフィスを安く手に入れられますか？
>普通に買っちゃうと3万ぐらいしちゃうし。
>OEM買おうと思うが失敗すると動かないらしい。
プリインストールされてる中古PC買えば？
例えば↓は、12800円
https://www.amazon.co.jp/dp/B00UED6868/
0693名無しさん＠そうだ選挙にいこう
2016/11/29(火) 08:34:07.372003もってりゃ問題ないじゃん
本当はPC触ったこともないんだろ？
0694名無しさん＠そうだ選挙にいこう
2016/11/29(火) 08:49:28.63ありがとう
でもこれWIN７ってもすうぐ切れちゃうんでしょう？WIN10にすれば大丈夫なの？よくしらない。WIN８使ってるから。
あと使い道がエクセルのみのPCになっちゃう
OEMって1万5000円だったはず
ブラウザでタブ40個ひらいてもきちんとうごくスペックなら
買いたいかな。
どうやって検索したらいいかがわからない
>>693
2007のMOSをよんだら画面が全然ちがうよ。
2010と機能自体かわってないの？2003で大丈夫ならそれで練習したいが
動きが全然違うからやり方が分からない
0695名無しさん＠そうだ選挙にいこう
2016/11/29(火) 09:16:35.64A・B・C列
2016/11/29・3:30・1200
2016/11/29・3:45・1250
2016/11/29・4:00・960
2016/11/29・4:15・1000
シート２
A・B・C・D列
2016/11/29・3:30・1300・1200
2016/11/29・3:35・1400・1200
2016/11/29・3:40・1000・1200
2016/11/29・3:45・1800・1250
2016/11/29・3:50・1100・1250
2016/11/29・3:55・1250・1250
2016/11/29・4:00・1900・960
2016/11/29・4:05・1800・960
2016/11/29・4:10・1000・960
2016/11/29・4:15・1150・1000
シート１と２があります。
シート１は１５分ごとにデータがあります。
シート２は５分ごとのデータがあります。
シート２のＤ列にシート１のＣ列のデータを
日付けが一致して時間が１５分の範囲内に該当するデータを抽出したいです。
indexとmatchで頑張って見ましたが
１５分以内の検索がわからないです。
よろしくお願いします。
Ｅｘｃｅｌ２０１３です。
0696名無しさん＠そうだ選挙にいこう
2016/11/29(火) 09:44:51.59一ヶ月無料で使える最新版
https://products.office.com/ja-jp/try
とりあえずこれ使って一ヶ月勉強したら？期間決まってたら気合も入るでしょ
安く買いたいなら東京アキバか大阪日本橋で中古を探すのが一番良い
あと最安値を探すのはやめた方が良い。探してる間に価格が変動する。予算を決めてその中でさっさと購入してしまったほうがいい
0697名無しさん＠そうだ選挙にいこう
2016/11/29(火) 09:49:21.27D1=VLOOKUP(B1,Sheet1!$B$1:$C$4,2,1)
下にオートフィル
なんかエクセルで株データ見たい人多いね
0698名無しさん＠そうだ選挙にいこう
2016/11/29(火) 11:01:42.89>>１５分以内の検索がわからないです。
検索範囲の シ ート１のデータが昇順になってれば
MATCH 関数の照合の型 を "1 または省略"とすればいいだけ
照合の型 を "1 または省略"で 検索値以下の最大値を 探してくれる
0699名無しさん＠そうだ選挙にいこう
2016/11/29(火) 11:17:10.38VLOOKUPなんてExcel97からある機能だから
練習するなら2003で十分
変なウィザードみたいの使わずに
セルに数式打ち込めるように練習すれば
どんなバージョンだって関係ない
0700名無しさん＠そうだ選挙にいこう
2016/11/29(火) 12:33:44.05さすがにSUMIFSが使えないと話にならん気が
代替手段自体はあるにしろ
0701名無しさん＠そうだ選挙にいこう
2016/11/29(火) 14:32:31.55質問者は、VLOOKUPだけ覚えたいんだが？
0702名無しさん＠そうだ選挙にいこう
2016/11/29(火) 14:33:51.68疑問形で終わらせるのやめようよ
何がいいたいのかよくわからない
0703名無しさん＠そうだ選挙にいこう
2016/11/29(火) 14:42:26.07=IF(ＩＳＥＲＲＯＲ(VLOOKUP(・・・)),"",VLOOKUP(・・・))
とするよりも
=IFＥＲＲＯＲ(VLOOKUP(・・・),"")
の方が良いと思うのだが
という事で 俺は EXCEL2007以上を勧める
0704名無しさん＠そうだ選挙にいこう
2016/11/29(火) 14:49:04.882010ほしいね
0705名無しさん＠そうだ選挙にいこう
2016/11/29(火) 16:12:38.42仕事で使う予定
0706名無しさん＠そうだ選挙にいこう
2016/11/29(火) 17:30:12.540707名無しさん＠そうだ選挙にいこう
2016/11/29(火) 17:35:42.510708名無しさん＠そうだ選挙にいこう
2016/11/29(火) 17:54:42.010709名無しさん＠そうだ選挙にいこう
2016/11/29(火) 17:57:22.62C言語とvbaて記述方法がかなり違う上、Cには.classも無い割にヘッダがあったりと相性かなり悪い
というかどっちも古すぎる
0710名無しさん＠そうだ選挙にいこう
2016/11/29(火) 18:07:22.112010買わないと駄目か
0711名無しさん＠そうだ選挙にいこう
2016/11/29(火) 22:28:43.41本番環境持つまでの練習用ならそれで十分だろ
0712名無しさん＠そうだ選挙にいこう
2016/11/29(火) 22:34:08.600713名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:09:50.48【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
マクロボタンを1回押すと、マクロの割り当てが変わるようにしたのですが、
もう一回マクロボタンを押したときに、パスワードを尋ねるようにできませんか？
起票と台帳は、本来は別のファイルなのですが、サンプルなので、同じファイル
になっています。よろしくお願いいたします。
…ファイル名を変えるタイミングでパスワードをかける方法も思いつかなかったので。
http://www.dotup.org/uploda/www.dotup.org1077038.zip.html
0714名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:18:12.81と延々続く式を見て度肝抜かれたんだが、かつてはこういうのポピュラーだったの？？？
せめて=sum(A2,A3,A5,A7,A9・・・)
これでもちょっと、と思うが、こういう単純なのがダメとは思ってないんだが、一瞬目が点になった
0715名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:21:47.35パスワードが間違ってる時に終了させれば良い
A1に1を入れるのはもちろん例えで、非表示にしたシートい書き込むのがいいと思う。
Sub a()
'正解パスワード
correct = "pa"
'二回目以降パスワードチェックを行う
If Cells(1, 1).Value = 1 Then
buf = InputBox("パスワードを入力して下さい")
'パスワードが違う時は終了
If buf <> correct Then
MsgBox ("パスワードが違うので終了")
Exit Sub
End If
MsgBox ("パスワードがあってるので処理を開始")
End If
'転記などの処理はここに書く
MsgBox ("転記とかの処理")
'分岐条件はA1セルに書くとする
Cells(1, 1).Value = 1
End Sub
0716名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:23:10.03・足すのが20個以下
・一回やって終わり
なら、もう何も考えずにベタ打ちするかなあ
sumは引数が29個だっけ
0717名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:23:45.76・足すのが20個以下
・一回やって終わり
なら、もう何も考えずにベタ打ちするかなあ
sumは引数が最大29個だっけ？なんか制限があったと思う。調べるより書いたほうが早い
0718名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:27:35.01反応ありがとう
そういうもんか
足すのは20セルだったからsum使える
単純に合計値だけ急いで見て確認、だったらたしかに
て感じではなくいちおうちゃんと集計
捨て計算だったら・・・でも使わないな、自分
0719名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:28:09.83>>716は>>717
0720名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:29:05.200721名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:32:11.57それか作業列で1飛ばしに1をオートフィルで入力して計算するか、vbaか
0722名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:35:43.77＞それか作業列で1飛ばしに1をオートフィルで入力して計算するか
ん？これ具体的には・・？
0723名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:36:19.080724名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:37:26.230725名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:39:37.33A列に合計したい数値があるとして
b1=1
b2=0
b3=1
b4=0
b1:b4選択して下にオートフィル
C1=SUMIF(B:B,1,A:A)
0726名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:44:08.27なるほどやっぱsumじゃないよね
そういうsumifか
これ30以上あったらいいですね
単にキーというかフラグだから1じゃなくたってなんだっていい訳だもんね
0727名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:45:30.780728名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:47:00.24B列まで同じでC列は
c1=b1*a1
で下にオートフィル、
d1=sum(c:c)
でもええけどな
>>726
できれば1がいい。乗算なら計算に影響しないので使いやすい。あと打ちやすいし考えなくてもいい
0729名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:55:56.900730名無しさん＠そうだ選挙にいこう
2016/11/29(火) 23:59:43.19返答ありがとうございます。こんなへっぽこなサンプルで回答していただけるなんて
幸甚の至りです。correctとbufはString型にしました。
0731名無しさん＠そうだ選挙にいこう
2016/11/30(水) 00:02:02.96文字打つのめんどくさい…ってのもあるんだけど
vbaでtrueが-1扱いなのが怖い。いつかどこかで混同しそうでなぁ。怖いからあえて使ってないのよね
?true*1
-1
0732名無しさん＠そうだ選挙にいこう
2016/11/30(水) 02:39:49.43=A1*1
=A2*0
って入れて2セル選択してフィルハンドルをダブルクリック、そうすると *1 と *0 が交互になる
作業列全体が選択された状態になるから、そのまま続けてΣをクリックすればいい
ただし偶数行の合計の時は作業列の1行目には何も入れないこと
0733名無しさん＠そうだ選挙にいこう
2016/11/30(水) 07:51:26.54見た目の分かりやすさを考えたら単純な合計には勝てないな
後、前世紀は、ＣＰＵもメモリも貧弱なＰＣが多かったので
SUM関数使うだけでフリーズすることがよくあったのもあるかも
0734名無しさん＠そうだ選挙にいこう
2016/11/30(水) 12:57:23.12http://office-qa.com/Excel/ex27.htm
0735名無しさん＠そうだ選挙にいこう
2016/11/30(水) 13:00:02.98> 見た目の分かりやすさを考えたら単純な合計には勝てないな
そう思うでしょ？
でも、>>714 みたいにタイプミスされたらパッと見てわからないから意外と危険
0736名無しさん＠そうだ選挙にいこう
2016/11/30(水) 13:12:02.420737名無しさん＠そうだ選挙にいこう
2016/11/30(水) 13:51:13.27【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】否
条件付き書式について教えて下さい。
奇数列目には人名のデータがあり、偶数列目には点数のデータがあります。
各行それぞれAB,CD,EF…で一セットのペアになっています。
この時、点数がマイナスの場合のみ人名と点数の双方のセルを黄色くする設定を教えて下さい。
0738名無しさん＠そうだ選挙にいこう
2016/11/30(水) 15:33:17.72数式の制限が8192文字数以下
0739名無しさん＠そうだ選挙にいこう
2016/11/30(水) 15:38:24.20色々やり方あると思うけど これかな?
1)セル範囲を選択(例としてA1:J100とする)
2)条件付き書式を設定する
ルール(数式) =OFFSET(A1,0,MOD(COLUMN(),2)) <0
書式 セルを黄色くする
※あとこういう方法もあったりする
1)数式タブ→名前の定義
名前(N) Me
参照範囲(R) =INDIRECT(ADDRESS(ROW(),COLUMN()))
2)条件付き書式を設定する
ルール(数式) =OFFSET(Me,0,MOD(COLUMN(),2)) <0
書式 セルを黄色くする
0740名無しさん＠そうだ選挙にいこう
2016/11/30(水) 15:54:32.431か月だけ使えると言う事？office365というのは
ピボットみたら難しくないんだが習得って1日でできません？
VLOOKUPは記述が見つからない
WEB上の解説サイトだけの説明で十分なのかな
0741名無しさん＠そうだ選挙にいこう
2016/11/30(水) 20:07:16.90発送がいいなｗなんかかわいい
>>740
さっさと使うと良いぞ
あんたがエクセルを習得できるかどうかなんて誰にもわからん
https://products.office.com/ja-jp/try
0742名無しさん＠そうだ選挙にいこう
2016/11/30(水) 20:07:32.36早く死ね
0743名無しさん＠そうだ選挙にいこう
2016/11/30(水) 20:17:21.81まぁそう言ってやるなよ
誰でも最初は初心者だ
0744名無しさん＠そうだ選挙にいこう
2016/11/30(水) 20:57:11.56714です！ごめんなさい
＞せめて=sum(A2,A3,A5,A7,A9・・・)
→せめて=sum(A1,A3,A5,A7,A9・・・)
でした！
昨日眠くて打ってたから凡ミスを、すみません
初めてこのスレ来たんですけど、すごいたくさんの方法が出てきて楽しいです！
反応くださった方、ありがとうございます！
0745名無しさん＠そうだ選挙にいこう
2016/11/30(水) 21:10:26.15ちょっと試してみたけどひとつ飛ばしに使う具体的な方法がよくわからず
教えていただけるとありがたいです
0746名無しさん＠そうだ選挙にいこう
2016/11/30(水) 21:12:43.73自分もときどき配列数式使うとけっこう好きと思います
複数条件の時sumifsじゃなくて配列数式使うの好きです
0747名無しさん＠そうだ選挙にいこう
2016/11/30(水) 21:13:55.04sum()の引数は30個まで
sum(sum(),sum()…)なら60個～引数使える・・・というギャグだよ
多分一生使わないから気にするな
0748名無しさん＠そうだ選挙にいこう
2016/11/30(水) 21:17:45.86ところでなぜvlookというの？すごく違和感
lookupだったらわかるけど
0749名無しさん＠そうだ選挙にいこう
2016/11/30(水) 21:28:59.67解説ありがとうございます
そうなんだwでもそれさえも知識になるから楽しい！
0750名無しさん＠そうだ選挙にいこう
2016/11/30(水) 23:11:13.55バーチカルルックアップを略したんじゃないかな？
0751名無しさん＠そうだ選挙にいこう
2016/12/01(木) 00:30:06.790752名無しさん＠そうだ選挙にいこう
2016/12/01(木) 00:50:46.540753名無しさん＠そうだ選挙にいこう
2016/12/01(木) 07:19:05.64あ、それは知ってます・・
Hはホリゾンタルだし
どうしても抵抗があってブイルックって言えずにいます どうでもよいのですがねw
>>751
Hlookupも時々使います でもVlookupにはやはり及ばず・・・
0754名無しさん＠そうだ選挙にいこう
2016/12/01(木) 07:54:34.97合計する列が複数列だとSUMIFSは対応してないしな
配列数式は、条件がどこか見やすいのが好みだがあんまり条件が多いなら先に作業列使った方がメンテしやすくはある
0755名無しさん＠そうだ選挙にいこう
2016/12/01(木) 20:23:16.04同じぐらい違和感と嫌悪感を覚える
0756名無しさん＠そうだ選挙にいこう
2016/12/01(木) 20:35:49.070757名無しさん＠そうだ選挙にいこう
2016/12/01(木) 20:37:44.02聞くほうが困るからテキトーに略すのはやめてほしい
0758名無しさん＠そうだ選挙にいこう
2016/12/01(木) 20:43:32.65なんでも日本人は意味不明に省略しすぎ。
しかもこのネットの発音が平坦なのが気持ち悪い。
野球の野茂のことを野茂(↑)と上あがりか平坦に発音する気持ち悪さと似てる。
本当は野茂(↓)と上から下に下がるのに。
0759名無しさん＠そうだ選挙にいこう
2016/12/01(木) 20:48:37.87もやはアルファベットではなくかたかたの方がしっくりくるw
ルックってのはさすがに聞いたことないです
あとサマるってあんまり言われると慣れてしまいそうな自分が嫌だけど
単純に足し算する、その条件で合算とか、っていうのをサマるっていうのは普通ですか？
そこを合計して、の方が自分にとっては自然で、まだちょっと抵抗がある
0760名無しさん＠そうだ選挙にいこう
2016/12/01(木) 20:55:12.39>>759
かなり気持ち悪いな。やめてほしい
0761名無しさん＠そうだ選挙にいこう
2016/12/01(木) 20:58:34.85変な略し方はもはやご老人的だよね
>>758
そうなの！？
知り合いに野茂って名字の人がいないから、平坦だと思ってたし気にせず言ってた
下がるんだね、覚えておくよ
でもそれ比べ物になんないくらい鳥肌なのはBIツールでTableauってあるじゃない？
あれをさタブロー、ローだけ上げて読むのだけはかっこ悪くてしょうがないからやめてほしい
北島さぶちゃんのサブローと同じイントネーション
みんなバイリンガルなのに、なぜタブローと語尾上げ？
会社でサブローサブローって空耳でおかしくておかしくてww
Excel以外のことで申し訳ない話だけど
0762名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:08:39.93モーニング娘をモームスと略したり
なぜ日本人は変な略し方をするのだろう。
英語圏ではそんな習慣ないし、日本にいる日本語しゃべる外国人で日本語が日本人と間違われるくらいの人でも絶対にそんな変な略語系は使わない。
今年の流行語が「神ってる」になったけど、なぜ素直に「神がかっている」と言えないのだろう。
こんなところで新語を作ってまでオリジナリティを出す意味がない。
初出からしばらくはそれを言われても意味がはっきり分からない人が多く混乱するのに。
こんなところでオリジナリティを出す必要はない。
インターネットで一般人が物書きをするようになって
笑うところで(笑)という書き方が昔から一般的になってるのに
わざわざ(笑い)と「い」を付けて他と区別化をしようとする人がいる。
こんなところでオリジナリティを出す必要はない。
初見の人はその「い」になにか意図があるのだろうとしばし熟考しなければならずそれは時間の無駄である。
0763名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:13:56.070764名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:18:53.62やはりキモいですよね って自分もキモいって略してますが・・
Σって普通に出てますよねいつも、あとピボットにも・・
これ聞ける人がいないから真面目に質問するんですけど
最初サマッといてと言われて本気でわからず即効ググったんですけど、
せめて出てきたのが↓で、思っていた通り資料のまとめ要約で
https://liginc.co.jp/life/business/85739
しょうがないから話しつつ探るとどうも合計値を出してほしいの意とわかり
自分はExcelで合計＝足し算は=sum()だから「サムして」と時々言っちゃうことはあったんですが
これも言ってから「うわ自分寒っ」と思ってたのですが
他の会社で恥かかぬようお伺いですが、
足し算をサマるって言葉の使い方としてキモいのは百歩譲って・・として、
意味として間違ってますか（足し算には使わない）か、ギリOKか
「またsumする」も同様に間違っているかどうか
ソートして→フィルタで絞って、の意で使う人もいたりして、本当にこちらが高度自動変換機能使わないと仕事が成り立たないです
恥ずかしい会社だってばれちゃう
0765名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:19:35.73あ、ごめんなさい
0766名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:20:08.800767名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:25:02.80そもそも意味として使い方を間違っているかどうかというところでした・・スレ違い申し訳ありません
0768名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:25:23.660769名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:27:58.74「すもももももももものうち」のもの数が8個あって多すぎるから
もっと少なく6個や5個や4個でも省略していいじゃん、というたわごとと同様なんだよな。
「すもももものうち」
「すももももものうち」
じゃ意味をなさないだろ。
0770名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:32:48.510771名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:33:58.59そう
やめた方が良いと思う。外部で使ってしまうと意味がわからないし、変
0772名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:34:53.21そんな省略が好きなボスには「あなたきょうは禿ってますね」と言ってやれ。
神ってるが流行語大賞になったのを記念して。
0773名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:35:54.50その人限定＝恥 に一票いただきました
ありがとうございます
うっかり染み付いて使ってしまうと恥ずかしい思いをするところでした
0774名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:39:57.33>>772
はい！わかりました！
神ってる サマってる 禿ってる！！
0775名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:39:57.50>>772
はい！わかりました！
神ってる サマってる 禿ってる！！
0776名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:40:59.71Excelスレを荒らすつもりはまったくありませんのでそろそろ宴もたけなわ、お開きにしたいと思います
0777名無しさん＠そうだ選挙にいこう
2016/12/01(木) 21:54:17.300778名無しさん＠そうだ選挙にいこう
2016/12/01(木) 23:17:09.30きちんと詰めないとダメな性格でいまやはり気になってググり直したら
summed upやsummingで合計する、総計するという用法が↓↓
まぁだからsumな訳でしょうが
ボスとしてはsummaryではなく↓を元に使っていたと信じたい…
http://ejje.weblio.jp/content/sum
だから略の寒さとは別に用法としてあながち大ハズレではないことはわかりました
しかし「サマる」はどうも寒いので自分では使わないようにしようと思います。
「ググる」は新しい固有名詞とのマージで定着したのはやはり絶妙だからで、稀ですね。
きっと皆さんわかってたのですよね、すみません。
でもこれで腑に落ち、です。
あ、略…失礼
0779名無しさん＠そうだ選挙にいこう
2016/12/01(木) 23:42:28.70Σは普通に合計の数学記号でしょ
Summationの頭文字のアルファベットSに対応するギリシャ文字
Excelだと何故か関数全般を意味するアイコンになってるけど
0780名無しさん＠そうだ選挙にいこう
2016/12/02(金) 03:47:39.66まぁExcelじゃなくてもΣ出てきたらとりあえずそこに数式書くんだなってくらいの共通認識はある
0781名無しさん＠そうだ選挙にいこう
2016/12/02(金) 03:49:30.18そこからいくと「そこでsumして」くらいの方がまだマシか？？？……
0782名無しさん＠そうだ選挙にいこう
2016/12/02(金) 04:08:53.11ちなみにExcelで関数全般ではないと思う
合計値をだす共通記号
ではないか？
ピボットテーブルでも右下の合計値を出すボックスはΣだし
オートsumはΣアイコンだし
関数はfxじゃない？
0783名無しさん＠そうだ選挙にいこう
2016/12/02(金) 06:56:34.56関数はfx
数式バーの左のfxをクリックすると関数の入力画面が出るって知らないやついるんだな
0784名無しさん＠そうだ選挙にいこう
2016/12/02(金) 07:04:24.480785名無しさん＠そうだ選挙にいこう
2016/12/02(金) 07:18:18.140786名無しさん＠そうだ選挙にいこう
2016/12/02(金) 07:36:47.52力士とかまいうーの人のこと？
質問
Excelファイルをファイル名変更して保存できなくする方法はありませんか？
原本から新たに作るように何度言っても、頑なに前月のものをファイル名を新たにつけて保存して
前月はあっても今月はないデータを残して混乱させる人がいて困っています
機械的に対策するしかないとは思うんですが、なにか良い方法はないでしょうか
私自身のExcelバージョンは2003
上司のExcelバージョンは2016です
0787名無しさん＠そうだ選挙にいこう
2016/12/02(金) 07:37:15.470788名無しさん＠そうだ選挙にいこう
2016/12/02(金) 07:54:56.27"名前を付けて保存"を不可にして
"上書き保存"しか出来なくしたいのかな
[Thisworkbook]モジールへ
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox "変更すんじゃねぇよ ボケ ジジイ"
Cancel = True
End If
End Sub
0789名無しさん＠そうだ選挙にいこう
2016/12/02(金) 08:54:04.97根本的に解決するのは難しい、というか無理っぽい
データによるけど、前月分を残しても平気なように作り変えたほうが良い
多分その仕事のやり方がめんどくさいから従わないんだと思う
0790名無しさん＠そうだ選挙にいこう
2016/12/02(金) 09:37:05.46ホリゾンタルルカｐ
0791名無しさん＠そうだ選挙にいこう
2016/12/02(金) 12:29:53.02言えたら楽ですね
尚、ババアです
>>789
根本的には無理ですか
前任者に前月のファイルから変更するように引き継ぎを受けたようで
それ以外の方法はどうも理解できてないようなんですよね
原本からでも新たに入力し直すことはほぼ一緒なんですが
0792名無しさん＠そうだ選挙にいこう
2016/12/02(金) 12:43:37.220793名無しさん＠そうだ選挙にいこう
2016/12/02(金) 18:42:54.79いま2003のexcelがはいってる
これを入れちゃうと2003が使えなくなったりしますか？
0794名無しさん＠そうだ選挙にいこう
2016/12/02(金) 18:57:32.05まだ悩んでたのｗｗｗさっさと買えばいいのにｗｗｗ
officeを複数入れると動作が不安定になったりおかしくなったりするよ。インストールディスクがあるなら一度アンインストールしてからのほうがいい
インストールディスクがなかったら仮想PCを使うという手もあるけど、多分分からないのでやめたほうがいいだろう
0795名無しさん＠そうだ選挙にいこう
2016/12/02(金) 19:19:18.01ありがとうございます
2007買ってそれで練習して、現場にって2007しかつかってなかったです|ﾟДﾟ)))
っていったらだめかな
0796名無しさん＠そうだ選挙にいこう
2016/12/02(金) 19:23:48.382007はオススメしないけど、まーあくまで練習用ならいいんじゃない
使用感はほぼ同じだろう
0797名無しさん＠そうだ選挙にいこう
2016/12/02(金) 20:07:13.152013とか2010で通用しますか？無理ですか？
2007を買おうと思うが１万円もするから
2010は2万円
0798名無しさん＠そうだ選挙にいこう
2016/12/02(金) 20:10:53.78>>797
2003は捨てた方が良いと思う
あまりにも不便すぎる
0799名無しさん＠そうだ選挙にいこう
2016/12/02(金) 20:12:43.28落札相場７、８千円だから買えば
いいやんけ
0800名無しさん＠そうだ選挙にいこう
2016/12/02(金) 20:54:45.87自宅ＰＣは2016なので自宅で練習した結果を仕事に活かそうとして非対応の現実に
目から汗流した経験は何度もあるがorz
0801名無しさん＠そうだ選挙にいこう
2016/12/02(金) 21:55:52.72要は印刷プレビューでもちゃんと文字列が一行に収まってるのに、いざ印刷すると2段になってたりとか
0802名無しさん＠そうだ選挙にいこう
2016/12/02(金) 21:58:16.160803名無しさん＠そうだ選挙にいこう
2016/12/02(金) 22:19:07.79＞意地悪い方がいる中
こういう書き方はあんまりいくないね
0804名無しさん＠そうだ選挙にいこう
2016/12/03(土) 00:48:53.35【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_100_100.html
ここのシート上のセル、又はフォームのテキストボックスに対する日付入力を支援を、
A列だけじゃなく、JからOまで適用したいのですが、コードを読んでもわかりませんでした。
ご教授願います。
0805名無しさん＠そうだ選挙にいこう
2016/12/03(土) 00:54:58.88この部分
' A列以外は無視(今回サンプルの例)
If Target.Column <> 1 Then Exit Sub
こんな感じ.。10と15はjとoを表す
If Target.Column < 10 and Target.Column > 15 Then Exit Sub
0806名無しさん＠そうだ選挙にいこう
2016/12/03(土) 00:55:38.29c = Target.Column
If c < 10 and c > 15 Then Exit Sub
0807名無しさん＠そうだ選挙にいこう
2016/12/03(土) 01:00:33.21dim c as integer
が必要かと
0808名無しさん＠そうだ選挙にいこう
2016/12/03(土) 06:07:51.36あの、すべてのセルで、イベントが発生するようになったのですが。
0809名無しさん＠そうだ選挙にいこう
2016/12/03(土) 07:44:38.91And じゃなくて Or
> If Target.Column < 10 Or Target.Column > 15 Then Exit Sub
A 列も必要なら
If Target.Column <> 1 And (Target.Column < 10 Or 15 < Target.Column) Then Exit Sub
これぐらいになると >>806-807 のやり方が綺麗かも
0810名無しさん＠そうだ選挙にいこう
2016/12/03(土) 10:29:23.30ありがとうございます！。JからO列でイベントが発生するようになりました。
>>806-807 実はこちらもイベントが発生しませんでした。
'*******************************************
' セル選択によるイベント
'*******************************************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Integer
' 複数セル選択時は無視
If Target.Count <> 1 Then Exit Sub
' A列以外は無視(今回サンプルの例)
'If Target.Column <> 1 Then Exit Sub
' J列からO列
c = Target.Column
If c < 10 And c > 15 Then Exit Sub
' カレンダーフォームを起動する
Call ShowCalendarFromRange(Target)
End Sub
c = Target.Column
If c < 10 and c > 15 Then Exit Sub
と
If Target.Column < 10 Or Target.Column > 15 Then Exit Sub
変数を使用している以外に違いが判りませんでした。
0812名無しさん＠そうだ選挙にいこう
2016/12/03(土) 12:38:44.24↓
If c < 10 or c > 15 Then Exit Sub
0813名無しさん＠そうだ選挙にいこう
2016/12/03(土) 13:19:21.37【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
散布図を使ったグラフ作成について質問があります。
x軸にある値をとり、y軸には4種類の単位の違う値を取りたいと考えています。
例えば、ある電圧[V]に対する、電流[A]、電力[W]、回転数[rpm]、効率[%]の値を同じ表に描きたいという事です。
y軸に関して、2軸までなら作成方法は知っていますが、それ以上の軸を作成する事は出来るのでしょうか？
0814名無しさん＠そうだ選挙にいこう
2016/12/03(土) 17:23:48.26それって動かない場合があるからどれ買ったりいいかわかりません
開封済みのOEMでも大丈夫なんですか？
>>798
2007の勉強だと実務で通用しない？エクセル使える？といわれて
使えますっていうとき2007のピボットやVLOOKがつかてたたらだめかな？MOSの本も2007をよむとして
>>800
2007で通用するならそれを買いたいが
0815名無しさん＠そうだ選挙にいこう
2016/12/03(土) 17:29:53.74そろそろ決めてくれんかね
OEMは開封かどうかはどうでもいい
OEMはパーツにライセンスが付く。パーツと一緒に使わないとライセンス違反。ライセンス違反でどうなるかは分からない
2007が使えれば実務では十分。
0816名無しさん＠そうだ選挙にいこう
2016/12/03(土) 18:03:30.212007のvlookupやピボットテーブルと
2010のvlookupやピボットテーブルが別物な訳じゃない
同じ
そしてブイルックってきしょい
0817名無しさん＠そうだ選挙にいこう
2016/12/03(土) 18:28:32.55たしかに過去にさかのぼった方が戸惑う
あがる分には問題ないよね
2013ならあれできたのにくそーみたいなのとか色合いとかやたらテンション落ちる
0818名無しさん＠そうだ選挙にいこう
2016/12/03(土) 18:34:32.26ちょっとショックだったな
その後2010買ってもらったから何も問題ないけど、会社で2003はアカンわ
0819名無しさん＠そうだ選挙にいこう
2016/12/03(土) 19:18:08.352003と2010混在で使っていて、ツールが2003縛りだとCSV落とした後とかに
ウィンドウのオールタブ表示ができなくなってたりして細かい事だがいちいちけっこうストレス
これっていちいちファイル→オプション→詳細設定(だったっけ？)するしかないないようで
0820名無しさん＠そうだ選挙にいこう
2016/12/03(土) 19:31:32.32いい加減に死ね
0821名無しさん＠そうだ選挙にいこう
2016/12/03(土) 20:51:58.84特に不具合はなかったな
0822名無しさん＠そうだ選挙にいこう
2016/12/03(土) 20:53:20.580823名無しさん＠そうだ選挙にいこう
2016/12/03(土) 20:55:13.460824名無しさん＠そうだ選挙にいこう
2016/12/03(土) 21:01:31.38たぶん自宅用だから？
会社ではね、ちょっと
0825名無しさん＠そうだ選挙にいこう
2016/12/03(土) 21:11:10.790826名無しさん＠そうだ選挙にいこう
2016/12/03(土) 22:01:40.912000しか知らなきゃ何の不便も無いよな
0827名無しさん＠そうだ選挙にいこう
2016/12/03(土) 22:04:52.98盛大に説教していいかもね
0829名無しさん＠そうだ選挙にいこう
2016/12/04(日) 00:49:46.33【2 Excelのバージョン】Office2011(ver14)
【3 VBAが使えるか】はい
【4 VBAでの回答の可否】可
すみません、マルチになっちゃいますが…教えてください。
郵便番号入力→住所の自動入力を行うためにvlookup関数を使いました。
得られた住所が「○○○（１～６丁目）」なんて場合、その住所をベースに正しい住所に修正したいのですが、
vlookup関数で得られた「○○○（１～６丁目）」を、自動的に「普通の文字列」としてペーストする方法はありますでしょうか？
「コピー→値としてペースト」が自動で行われるイメージです。
ご指導よろしくお願いします。
0830名無しさん＠そうだ選挙にいこう
2016/12/04(日) 00:51:21.23=vlookup()&""
0831名無しさん＠そうだ選挙にいこう
2016/12/04(日) 01:35:17.70質問の意味がよくわからなくて答えようがないんだわ
たぶん「ペースト」とか「普通の文字列」などの言葉の使い方がおかしいんだと思う
住所の何を修正してどうしたいのか、何が正しいのかも、その説明じゃまったくわからないし
0832名無しさん＠そうだ選挙にいこう
2016/12/04(日) 02:26:22.06列ごとコピーして１つ右の列にでも値貼り付けすればいいのでは？
それならマクロの記録でも出来そう。
0833名無しさん＠そうだ選挙にいこう
2016/12/04(日) 07:08:07.72何かしら本来の住所と違う表記になっていると推測するが、これだけだとわからん。
日付がシリアル値になってるとも思えないし。
具体的に○○○の部分含め書いてもらわないと、仮や架空でいいから。
きっと右の作業列に貼り直しせずに何かしら変換も同時にしたいということだとは思うのだが。
0834名無しさん＠そうだ選挙にいこう
2016/12/04(日) 08:10:05.89ピボットテーブルは、２００７と２０１０で文字列数字の取り扱いの違いによって
別ものに近い違いがある
２００７以前は、文字列数字は文字列として扱われていたからな
最近はその関係で、文字列数字が増えているので、２０１０以降じゃなきゃ
実際の業務じゃ使い物にならんだろうね
0835名無しさん＠そうだ選挙にいこう
2016/12/04(日) 09:20:38.51>>790
これだったらかわいい
0836名無しさん＠そうだ選挙にいこう
2016/12/04(日) 09:33:30.29Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Offset(, 1)
.Value = .Value
End With
End Sub
数式は消える
0837名無しさん＠そうだ選挙にいこう
2016/12/04(日) 10:15:47.30【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可･ですが、VBA使わないでワークシート関数のみバージョンもあれば助かります
セルA1に文字と日付の混在しているデータがあります
例）
・モデルA 5/21以降完成予定
・完成6/1→6/20に変更(モデルB)
・完成6/18予定
ここから日付だけを抜き出す方法はあるでしょうか？
シリアル値にして、等考えましたがまだ具体的に試せてはいません。
なんらかの規則性として、これから先の完成予定のため過去の日付はほぼなく、シリアル値42~始まると限定できます。
ただ日付が同じセルに2ヶ所記載されている場合が稀にあり、それはわずかのため最終的に手修正するしかないと考えています。
最終的に日付で表記する必要があります。
また日付の直前にスペースがはいっている場合などがあり、そこはtrimまたはsubstituteで削除する、と組み合わせでと。
入力する担当者側に日付のみにしてメモにしないでほしい、統一性をもって、と働きかけてきましたが、
どうやってもみなさん自分の自由メモにしてしまい苦労しています。
お力お借しいただければと思います。
0838名無しさん＠そうだ選挙にいこう
2016/12/04(日) 10:42:58.05VBAを使えば、「数字、斜線、数字」のパターンを抜き出すぐらいは簡単にできるけど、ワークシート関数だけでやるのはかなり大変
不可能じゃないけどめっちゃ長い数式が必要で現実的じゃない
わかりやすくしたいならユーザー定義関数にするという手もある
0839名無しさん＠そうだ選挙にいこう
2016/12/04(日) 10:47:24.00IFで条件ごとにその文字がどこにあるかFINDで探し出して最初の数字が一桁か二桁かで
MIDで取り出す文字数を変えるみたいな方法は思い付いたが
数式が無駄に長くなるし、日付の後以外にそれらの文字が使われていると無理だね
0840名無しさん＠そうだ選挙にいこう
2016/12/04(日) 10:57:32.41a1=入力規則、日付で日付以外入力できなくする
b1=補足。「以降完成予定」など
ワークシート関数作ってみたけど
tmp = RE.Execute(target.Value)
で止まる。原因がわからん。なんでだ
Function datematch(target, num)
Set RE = CreateObject("VBScript.RegExp")
strPattern = "[0-9]*\/[0-9]*"
RE.Pattern = strPattern ''検索パターンを設定
'無かったら終了
If RE.test(target.Value) = False Then Exit Function
'結果セット
tmp = RE.Execute(target.Value)
'第二引数以下でfalseを返して終了
If UBound(return_tmp) < num Then
datematch = False
Exit Function
End If
'指定した物を返して終了
datematch = return_tmp(num - 1)
End Function
0841名無しさん＠そうだ選挙にいこう
2016/12/04(日) 11:04:52.98とりあえず試作品
VBAで使ってもいいしユーザー定義関数としても使える
文字列の中から「数字/数字」を1つだけ抜き出す関数
数字は2桁まで
ちょっと直せば2番目以降にも対応できる
Function PickDate(s)
s = StrConv(s, vbNarrow)
s = Replace(s, " ", "x")
a = Split(s, "/")
m = Right(a(0), 2)
If Val(m) = 0 Then m = Right(m, 1)
d = Left(a(1), 2)
d1 = Left(d, 1)
If Val(d) = Val(d1) Then d = d1
PickDate = m & "/" & d
End Function
エラーチェックはやってないので、日付が1つも入ってなかったり、関係ない場所に/記号が入った場合の結果は保証しない
0842名無しさん＠そうだ選挙にいこう
2016/12/04(日) 11:43:21.92× tmp = RE.Execute(target.Value)
〇 Set tmp = RE.Execute(target.Value)
だと思うぞ
>>837
正規表現で抽出するようにしてみた
=DateSel(A1)
日付けが2つ以上ある場合も 第2引数に 2を入れると 2つめが取り出せますです
=DateSel(A1,2)
Function DateSel(TextData As String, Optional ByVal No As Long = 1)
Dim RegEx As Object
Dim Result As Object
Dim MyDate As Variant
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Pattern = "\d{1,2}\/\d{1,2}"
RegEx.Global = True
Set Result = RegEx.Execute(TextData)
If Result.Count < No Then
MyDate = ""
Else
MyDate = Result(No - 1)
End If
DateSel = MyDate
End Function
0843名無しさん＠そうだ選挙にいこう
2016/12/04(日) 11:51:05.87あーそうかありがとう
set慣れないわ
0844名無しさん＠そうだ選挙にいこう
2016/12/04(日) 11:55:21.253以上でも指定可
Function PickDate(s, n)
a = Split(Replace(StrConv(s, vbNarrow), " ", "x"), "/")
PickDate = ""
If UBound(a) >= n Then
m = Right(a(n - 1), 2)
If Val(m) = 0 Then m = Right(m, 1)
d = Left(a(n), 2)
d1 = Left(d, 1)
If Val(d) = Val(d1) Then d = d1
PickDate = m & "/" & d
End If
End Function
0845名無しさん＠そうだ選挙にいこう
2016/12/04(日) 12:14:34.98>>840-844
わーどんどんご回答があがってきている 多謝です
こちらは自宅環境で試すのにまだあたふたで追いつけていません
ちなみにA1に混在データがあったらB1に日付を抜き出す、と考えています
>>844
＞n番目の日付に対応できた
＞3以上でも指定可
これは
B1に左から1番目に表記の日付 C1に２番目の日付 D1に3番目の日付
を抜き出して表記させる、と考えてよろしいでしょうか？
もし'テキストでやっている内容を補足'いただけたら鼻血が出そうにうれしいです
引き続き試走をこころみます
0846名無しさん＠そうだ選挙にいこう
2016/12/04(日) 12:47:55.31引数は省略できません
とエラーメッセージが出てしまいました
今日使いにくい環境の場におり、F8でひとつずつ試せず
0847名無しさん＠そうだ選挙にいこう
2016/12/04(日) 13:24:45.80仕様として、引数なしならmatchコレクションをjoinで返し、引数ありならn番目で良かった気がする
0848名無しさん＠そうだ選挙にいこう
2016/12/04(日) 14:15:55.10>>844の使い方ですが、A1に元の文章が入ってるとして、
B1は =PickDate(A1,1) で1番目
C1は =PickDate(A1,2) で2番目の日付が取り出せます
ただし、15/40みたいな日付としてありえない数字かどうかはいちいちチェックしてません
このあたりを厳密にやるには、プログラムが3倍ぐらい長くなりそうです
0849名無しさん＠そうだ選挙にいこう
2016/12/04(日) 14:19:12.05http://fast-uploader.com/transfer/7036384267899.png
0850名無しさん＠そうだ選挙にいこう
2016/12/04(日) 14:49:29.340851名無しさん＠そうだ選挙にいこう
2016/12/04(日) 16:57:25.65ってタイトルを毎年書き換えるのがたくさんあって面倒なのですが
なんかいい方法ありませんか
0852名無しさん＠そうだ選挙にいこう
2016/12/04(日) 17:01:51.580853名無しさん＠そうだ選挙にいこう
2016/12/04(日) 17:10:07.40適当なフォルダにまとめてVBAで一括置換
0854名無しさん＠そうだ選挙にいこう
2016/12/04(日) 17:11:22.19結果的にあらかたうまくいきました！
最初B1とC1のみに入力したら→あいまいな名前が見つかりました:PickDate
となってしまいましたが、B1-C1に入力し、該当範囲にオートフィルハンドルでコピーしたところマクロが働きました
ボタンをつけてなかったのですが、いきなり答えがはいりました
これはユーザー定義関数というのでしょうか？
B1=PickDate($A1,1) C1=PickDate($A1,2)
縦固定のためこれでコピーしました
ここで問題が2つ出てしまいました
(2つめは解決しなくても可だったりします)
1つめ
A列には日付のに入力されている場合もあるのです
仮でA3=12/1としておいたところ結果→B1=16/12 C1=12/1
となってしまいました
２つめ
あとは日付がひとつのみ記載の場合、B列とC列が結果0となってしまいました
あとからフィルタで0を表記しdeleteするということもできまsが、もし0だったら表記させないとできるのなら便利だったりします
しかしながら0と見えて""という文字列が実は入っている、という状態ですと
なんらかの情報を拾ってしまうため、それでしたらフィルタで0を表示させて削除する、を選ぼうと思います
＞ただし、15/40みたいな日付としてありえない数字かどうかはいちいちチェックしてません
ここは入力側にmm/ddで徹底を願っているので大丈夫です、ありがとうございます
0855名無しさん＠そうだ選挙にいこう
2016/12/04(日) 17:18:07.750856名無しさん＠そうだ選挙にいこう
2016/12/04(日) 17:25:27.72これでどうでしょう？あんまりいい方法ではないですけど、ちょっとこれしか思いつかなかったので
Function PickDate$(s$, n)
If Val(s) > 1900 And Mid(s, 5, 1) = "/" Then s = Mid(s, 6, 5)
a = Split(Replace(StrConv(s, vbNarrow), " ", "x"), "/")
PickDate = ""
If UBound(a) >= n Then
m = Right(a(n - 1), 2)
If Val(m) = 0 Then m = Right(m, 1)
d = Left(a(n), 2)
d1 = Left(d, 1)
If Val(d) = Val(d1) Then d = d1
PickDate = m & "/" & d
End If
End Function
0857名無しさん＠そうだ選挙にいこう
2016/12/04(日) 17:27:31.71すみません
＞仮でA3=12/1としておいたところ結果→B1=16/12 C1=12/1
↓
仮でA3=12/1と日付だけ入力しておいたところ結果→B3=16/12 C3=12/1
訂正します
0858名無しさん＠そうだ選挙にいこう
2016/12/04(日) 17:40:16.80試してみたのですがなにか失敗しているのか結果すべて
#NAME?
となってしまいました
最初の時点で書式が日付と文字列と混在している時点で実は中身は42xxxであり
これはかなり無理がありますよね…
この日付のみというのはいまは無視することに決めました
0859名無しさん＠そうだ選挙にいこう
2016/12/04(日) 17:52:24.23ここまで抜き出せただけでもずいぶんと工数削減となります
根本的に表記に統一性のない状態がスタートですのである程度手動で最後整理することも必要なのでそれはやむを得ないと心得ています
本当にありがとうございます。
あとこのマクロ、実行をしなくてもすぐ貼付けた段階で働いたのですが、これはユーザー定義関数というものなのでしょうか？
0860名無しさん＠そうだ選挙にいこう
2016/12/04(日) 17:55:00.36soudayo
0861名無しさん＠そうだ選挙にいこう
2016/12/04(日) 17:55:35.92ユーザー定義ワークシート関数
だろうなぁ
長い・・・
0862名無しさん＠そうだ選挙にいこう
2016/12/04(日) 18:00:20.470863名無しさん＠そうだ選挙にいこう
2016/12/04(日) 18:12:06.90#NAME?の原因は入力ミスです
古い方>>844は完全に削除して新しい方>>856だけにしてください
0864名無しさん＠そうだ選挙にいこう
2016/12/04(日) 18:22:15.13関数を新しいのに置き換えたら、ワークシートの画面に戻ってキーボードの[F9]を押すんだよ
0865名無しさん＠そうだ選挙にいこう
2016/12/04(日) 18:42:53.68>>863
全削除してやり直しました うまく出ました！
結果の3カラムをさらにIFなどで統合する作業してみましたが変な出方しませんし大丈夫です
A列に日付のみ、1という条件＝1/1,12/1
だけが01/01,12/01となる現象はありましたが、ここは置換で凌いだりします
>>856
＞あんまりいい方法ではないですけど、ちょっとこれしか思いつかなかったので
どういったところが懸念点だったのでしょうか？
差しつかえなければ教えてください
>>864
ありがとうございます
今日実家のヘボExcel for macで作業してまして使いにくくて死にそうですw
Function keyがないので明日またwindows環境で試します、F9ですね
久々VBAを開けてあたふたしました
0866名無しさん＠そうだ選挙にいこう
2016/12/04(日) 20:05:30.87そうか、そうですよね
ユーザー定義関数だから、同じ名前なら削除しなければなりませんよね
マクロみたいに名前や番号管理でないから
0867名無しさん＠そうだ選挙にいこう
2016/12/04(日) 21:08:35.36【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
関数の話を教えてください。
英字と数字を分ける式を調べてたら以下の式を見つけました。
=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},(a1)&1234567890))-1)
この中で{}の部分って初めてみたんですが、体系的にはなんという使い方なんでしょうか？
この部分だけ調べてみても出てこなかったです。教えてください。
0868名無しさん＠そうだ選挙にいこう
2016/12/04(日) 21:10:57.82配列数式じゃなくて？
0869名無しさん＠そうだ選挙にいこう
2016/12/04(日) 21:52:47.16配列数式は { =数式 } みたいに数式全体が中カッコの中に入ったやつ
中にコンマ区切りのデータが並んでるのはただの配列だけど、わかってない人があまりにも多くて、検索してもなかなか正解が出てこない
イメージとしてはセル範囲を置き換えたような物
たとえば=SUM(A1:A3)と書くと3つのセルの合計が出る
セル範囲を書くべき場所に配列を入れて=SUM({2,5,10})だと3つのデータの合計が出る
セル範囲を指定する関数ならだいたい配列も同じように処理できる
VLOOKUPで検索範囲がごく狭い時なんか、データをセルに入れずに配列で指定するなんて使い方もある
0870名無しさん＠そうだ選挙にいこう
2016/12/04(日) 22:12:46.40ANDと場合により同じ使い方になるかなぁ
0871名無しさん＠そうだ選挙にいこう
2016/12/04(日) 22:52:46.69配列定数な
配列数式はctrl+enterで入力するもの
0872名無しさん＠そうだ選挙にいこう
2016/12/04(日) 23:44:56.07数千件の住所録入力なのですが、少しでも省力化したいと思い、郵便番号の入力で、住所をvlookup関数で自動取得するようにしています。
（住所を得るためのもととなるデータは、郵便局が配布しているものです。）
といっても、郵便番号で得られる住所はせいぜい町名までですので、以降の番地やらの細かい情報は追加で入力してやる必要がありますが、
数式のままのセルではそのままテキストを追記できないため、数式を普通の文字列に簡単に変換する方法があればと質問した次第です。
別のセルに以降の番地情報などを入力しようかとも思ったのですが、例えば「0600042」で得られる住所は
「北海道札幌市中央区大通西（１～１９丁目）」
と、複数の○丁目に分かれてしまっていて、「（１～１９丁目）」の部分を消して入力し直さないといけないため、
数式を文字列に変換できればなぁと思ったのですが、VBを実行するボタンをセルに置くなどしないと難しいですかね？
0873名無しさん＠そうだ選挙にいこう
2016/12/05(月) 00:18:08.98VBAのWorksheet_Changeという機能を使うと、データを入れるたびにVBAが自動でスタートして、好きな処理をさせることができます
数式をデータに置き換えるだけならとても簡単にできますし、検索までやらせてしまえばVLOOKUPも不要になります
0874名無しさん＠そうだ選挙にいこう
2016/12/05(月) 01:13:08.37わりと簡単そうだけど、対象の郵便番号がどの程度ですか？
北海道内だけとか、全国とか。
よかったらファイルアップしてみてください。
0875名無しさん＠そうだ選挙にいこう
2016/12/05(月) 05:38:54.34配列数式で最後に押すキーは3つ
ctrl+shift+enterだよ…
配列数式は{}手入力してもダメ、とされている 試したことないけど
数式内の一部使いは手入力OK
配列の本持ってるけど、配列定数としての名前はあんまり見なかったからメジャーではないよね
配列、で通じるからいんじゃね？
0876名無しさん＠そうだ選挙にいこう
2016/12/05(月) 07:14:18.49複数の飛び石の列を合計するときに愛用している
0877名無しさん＠そうだ選挙にいこう
2016/12/05(月) 11:55:31.49こうゆう事かな?
説明上 便宜的に↓こうゆう状況とする
A列 郵便番号を入力
B列 =VLOOKUP(A1,Sheet2!A:B,2,False)で 住所検索
C列 住所を値として自動入力
シートモジュールへ下記の どちらか のプロシージャを作る(片方だけね)
'※ B列の=VLOOKUP()の値を転記する方法
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub
Target.Offset(0, 2) = Target.Offset(0, 1)
End Sub
'※ B列の=VLOOKUP() をそもそも不要とする方法(VBA内部で検索)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub
Target.Offset(0, 2) = _
Application.VLookup(Target, Worksheets("Sheet2").Range("A:B"), 2, False)
End Sub
0878名無しさん＠そうだ選挙にいこう
2016/12/05(月) 14:23:42.65450・Ａ・450
901・ ・675.5
145・ ・498.6
202・ ・424.5
252・Ａ・252
291・ ・271.5
221・ ・254.6
291・ ・263.7
Ａ列に数値があり、Ｂ列にＡが表示されるとＣ列に
Ａと表示された所から（この場合だとＡ２から）平均が出るようにしたいです。
平均がＡから次のＡまで出るようにしたいです。
次のＡが表示されたらまた１から平均が計算されるようにしたいです。
よろしくお願いいたします。
0879名無しさん＠そうだ選挙にいこう
2016/12/05(月) 14:38:04.75D2=IF(ASC(B2)="a",1,D1+1)
E2=IF(ASC(B2)="a",A2,E1+A2)
F2=E2/D2
下にオートフィル
0880名無しさん＠そうだ選挙にいこう
2016/12/05(月) 14:54:52.55http://www.epochtimes.jp/2016/11/26419.html
低価格には理由がある？中華スマホにスパイウェアが同梱
http://app-review.jp/news/196253
0881名無しさん＠そうだ選挙にいこう
2016/12/05(月) 14:55:08.26Sub Macro1()
Columns("C").NumberFormatLocal = "0.0" ' 書式設定
rz = Cells(Rows.Count, "A").End(xlUp).Row ' 最終行を求める
r = 1
Do While Cells(r, "B") <> "Ａ": r = r + 1: Loop ' 最初のAを探す
' 計算開始 s=合計、c=個数
Do While r <= rz
If Cells(r, "B") = "Ａ" Then ' Aが出たらリセット
s = 0
c = 0
End If
s = s + Cells(r, "A"): c = c + 1 ' A列の合計
Cells(r, "C") = s / c ' ここまでの平均
r = r + 1
Loop
End Sub
0882名無しさん＠そうだ選挙にいこう
2016/12/05(月) 15:51:15.44そのご立ち読みでMOS2010エクセルエキスパートを読めば１時間ぐらいで全部習得可能だったりしますか？
0883名無しさん＠そうだ選挙にいこう
2016/12/05(月) 16:22:14.78行ける
0884名無しさん＠そうだ選挙にいこう
2016/12/05(月) 16:33:54.76Worksheet_Changeで、は思いつきませんでした。
値の変更をトリガにできるんですね。
貴重な情報、とても助かりました。
あらためて、御礼申します。
0885名無しさん＠そうだ選挙にいこう
2016/12/05(月) 17:00:45.80具体的にはchartobjectで図形をコピーしてたのですが、図形（jpg)が白紙になってしまいます。2013で開くとうまくいくのですが。
0886名無しさん＠そうだ選挙にいこう
2016/12/05(月) 17:04:21.89具体的なコード書いたほうが良いかもしれない
0887名無しさん＠そうだ選挙にいこう
2016/12/05(月) 20:12:06.47どんだけ金に困ってるの？w
0888>>882
2016/12/05(月) 20:31:08.89初めからそれを教えて欲しかったけど自分しかこういう最高の効率アイディアって出せる人いないかもね
>>887
知能の低い犯罪者にからまれてる。馬鹿だと自覚しないがバカとこっちが判定してるのでその結果は
最高得点の逆の結果が必ずもたらされ
労働きつくて収入利益も最低という結果が当然になってる状態。
0889名無しさん＠そうだ選挙にいこう
2016/12/05(月) 21:54:37.94だからこその>>883 一気に1時間
0890名無しさん＠そうだ選挙にいこう
2016/12/05(月) 21:58:03.63カスタマイズや設定で2010みたいな操作感は得ることができますか？
0891名無しさん＠そうだ選挙にいこう
2016/12/05(月) 22:01:37.73マシンスッペクがかなり低いとかじゃなくて？
0892885
2016/12/05(月) 22:55:30.97sub test()
'JPB出力マクロ
'シート1アクティベイト
Worksheets(1).Activate
Dim myRng As Range
Dim myCht As ChartObject
'選択範囲を変数myRngに
Set myRng = Range("A2:AJ74")
'選択範囲を画像形式でコピー
myRng.CopyPicture appearance:=xlScreen, Format:=xlPicture
'グラフを作成
Set myCht = ActiveSheet.ChartObjects.Add(myRng.Left, myRng.Top, myRng.Width, myRng.Height)
'貼り付ける
myCht.Chart.Paste
'JPEG形式でカレントディレクトリに保存
myCht.Chart.Export Filename:=CurDir & "1.jpg", filtername:="JPG"
グラフを削除
myCht.Delete
End sub
0893885
2016/12/05(月) 23:25:22.99どこかで紹介されてたコードだと思うのですが、用途はワークシートの特定範囲を見たまま画像（jpg）で保存するコードです。
ワークシートを直に変換するのは難しいようで、コピーした範囲をいったん埋め込みグラフに貼り付けて、jpgにexportする手順になっています。
よろしくお願いします。
0894名無しさん＠そうだ選挙にいこう
2016/12/06(火) 02:01:46.47原因とか理由とか 本来どうすべきか とかは分らんけど
'貼り付ける
myCht.Chart.Paste
↓
'貼り付ける
myCht.Activate
myCht.Chart.Paste
とすると うまくいくな
0895885
2016/12/06(火) 02:22:44.02早速の回答ありがとうございます。
やってみました。うまくいきそうです！
大変助かりました。
（892のコード、コメントアウト出来てないところがありました、すみません。）
0896名無しさん＠そうだ選挙にいこう
2016/12/06(火) 13:06:54.61釣りか？wwwwwwww
0897名無しさん＠そうだ選挙にいこう
2016/12/06(火) 13:09:19.43あえて言ってなかったけど、放置で…
0898名無しさん＠そうだ選挙にいこう
2016/12/06(火) 14:20:59.700899名無しさん＠そうだ選挙にいこう
2016/12/06(火) 18:04:25.530900名無しさん＠そうだ選挙にいこう
2016/12/06(火) 18:08:54.07ハイパーリンクでも貼るか、vbaか
vbaだとこんな感じかねぇ
Sub a()
s = InputBox("シート名を入力")
Application.Worksheets(s).Activate
End Sub
0901名無しさん＠そうだ選挙にいこう
2016/12/06(火) 20:44:11.20前任の担当者が業務に必要なファイルに尽くパスワードを設定し
引き継ぎなしで退職した為、困っています
連絡先に電話しても、契約解除したようで連絡がつきません
なんとかなりませんでしょうか
0902名無しさん＠そうだ選挙にいこう
2016/12/06(火) 20:47:06.680903名無しさん＠そうだ選挙にいこう
2016/12/06(火) 21:12:48.000904名無しさん＠そうだ選挙にいこう
2016/12/06(火) 21:28:49.62一から作り直したほうが早いと思う
0905名無しさん＠そうだ選挙にいこう
2016/12/06(火) 21:36:29.01その担当者 "引き継ぎなしで退職"って書いてるけれど
普通 引き継ぎ するっしょ? それすらしてないって事は
社内で冷遇されてたか クビか不本意なリストラと推察する
それなら連絡とれても 無駄だと思うぞ(俺なら知らん(怒) で通す)
0906名無しさん＠そうだ選挙にいこう
2016/12/06(火) 21:49:14.210907名無しさん＠そうだ選挙にいこう
2016/12/06(火) 21:50:03.25例えば入力した数値を微妙に書き換え入力ミスしたように
0908名無しさん＠そうだ選挙にいこう
2016/12/06(火) 21:50:31.060909名無しさん＠そうだ選挙にいこう
2016/12/06(火) 21:52:11.80ほんと迷惑だった
0910名無しさん＠そうだ選挙にいこう
2016/12/06(火) 21:53:16.560911名無しさん＠そうだ選挙にいこう
2016/12/06(火) 22:02:05.03業務に必要な パスワードを引き継がない(教えない)で退職って
それが普通なのか 変わってるのな
0912名無しさん＠そうだ選挙にいこう
2016/12/06(火) 22:05:49.19それはもはやパスとして機能しないじゃないか
0913名無しさん＠そうだ選挙にいこう
2016/12/06(火) 22:06:01.09円満なら普通は引き継ぐ
つまり・・・
0914名無しさん＠そうだ選挙にいこう
2016/12/06(火) 22:06:46.01昔のエクセルはものすごく簡単に破れたんだよ
0915名無しさん＠そうだ選挙にいこう
2016/12/06(火) 22:21:33.97PW教えないで辞めるなんてそれはイワクツキに決まってんじゃん
円満でも産休カバーの派遣要員が間に合わなかったりあるよ
ずいぶん余裕があるゆったりした職場でいらっしゃること
0916名無しさん＠そうだ選挙にいこう
2016/12/06(火) 22:23:08.440917名無しさん＠そうだ選挙にいこう
2016/12/06(火) 22:24:51.96それは思った。ちょっと今回は協力したくないな
>>912,914
昔はOOoで開くと普通に開けるといいうずっこけ機能だったな
が、MS曰く「これは機密保持のためではなく、誤って書き換えてしまうのを防止するため」だそうだ。
さすがにそれぐらいはMSも分かってる
0918名無しさん＠そうだ選挙にいこう
2016/12/06(火) 22:29:54.640919名無しさん＠そうだ選挙にいこう
2016/12/06(火) 22:31:49.24会社がしかるべき手段で詰められることだと思うけど
0920名無しさん＠そうだ選挙にいこう
2016/12/06(火) 23:51:18.71パスワードを教えなかった程度のことだと、たとえ裁判しても勝てる見込みはないぞ
「忘れてしまいました」で終わりだから、弁護士だってまず引き受けない
そんな金とヒマがあったら専門の会社に解析させるか、最初から作り直した方が早い
0921名無しさん＠そうだ選挙にいこう
2016/12/07(水) 01:40:43.01間違えたら取り返しつかなくなるからバックアップとってからやってみて。
0922名無しさん＠そうだ選挙にいこう
2016/12/07(水) 06:28:00.20勝てるかどうかではなく、2ちゃんで解決する前に、後任がひとりで困ったと個人で悩まなくても会社に動いてもらえって話さ
0923名無しさん＠そうだ選挙にいこう
2016/12/07(水) 06:32:21.66外資系はそういうのを防ぐために
解雇通知の直後に放り出すんだよな
偽マニュアルと偽業務ファイル用意される例もあるから
今回はまだ良心的かと
0924名無しさん＠そうだ選挙にいこう
2016/12/07(水) 07:16:56.19あったあった
請求書ファイルの消費税１円以下の扱いが日付ごとに
ランダムで四捨五入・切り捨てに変更されるトラップ
トラップくらった後任のバイトは消費税の計算もできないとクビ切られた
その次のバイトが日付跨いで印刷した際に金額が違ってトラップが発覚した
0925名無しさん＠そうだ選挙にいこう
2016/12/07(水) 11:08:02.050926901
2016/12/07(水) 12:31:15.19お騒がせしました
十月末にバックアップされたパスワード設定前のファイルをサルベージしていただき
一ヶ月分のデータ作成でよくなりましたのでこれから頑張ります
前の方は就業規則に違反して副業で同人誌を作っていたのが発覚して解雇されたそうです
すごく安堵してます
0927名無しさん＠そうだ選挙にいこう
2016/12/07(水) 12:48:33.67よかったねー
じゃ確信犯だ
副業禁止 なかなか厳しい会社だね 普通か？
0928名無しさん＠そうだ選挙にいこう
2016/12/07(水) 12:53:46.300929名無しさん＠そうだ選挙にいこう
2016/12/07(水) 14:28:27.86禁煙の社内で残業時間に喫煙したらフビになりそう
0930名無しさん＠そうだ選挙にいこう
2016/12/07(水) 19:41:13.25それに火災装置働くわ
0931名無しさん＠そうだ選挙にいこう
2016/12/07(水) 19:41:46.830932名無しさん＠そうだ選挙にいこう
2016/12/07(水) 19:53:44.39おっさん会社だったらしらないけど
0933名無しさん＠そうだ選挙にいこう
2016/12/07(水) 20:25:14.54実験のデータなので綺麗な直線や曲線などではなく、かなりブレのある曲線です。
なので、Excelを用いて交点の座標を知りたいのですが、二つのグラフの交点をExcelで求める場合、どのような操作をすればいいでしょうか？
バージョンは2016です
0934名無しさん＠そうだ選挙にいこう
2016/12/07(水) 21:30:23.35windowsだと前回検索結果を表示、みたいなチェックボックスがでてたと思うんだけど見当たらず。
誰か知ってたら教えてくれない？
0935名無しさん＠そうだ選挙にいこう
2016/12/08(木) 00:39:12.69ドロップダウンを2つ用意するのが手っ取り早いと思う
0936名無しさん＠そうだ選挙にいこう
2016/12/08(木) 05:52:39.57よかったねー
じゃ確信犯だ
副業禁止 なかなか厳しい会社だね 普通か？
0937名無しさん＠そうだ選挙にいこう
2016/12/08(木) 05:54:25.51すみません
再読み込みになって間違って書き込まれました
0938名無しさん＠そうだ選挙にいこう
2016/12/08(木) 07:18:30.09請求書の金額って、普通電卓で検算しないか？
請求書で検算しないような奴は、首切られても仕方ないと思われ
0939名無しさん＠そうだ選挙にいこう
2016/12/08(木) 07:22:34.06vbaで二重チェックはしてるけど電卓はないわｗ
0940名無しさん＠そうだ選挙にいこう
2016/12/08(木) 07:53:36.64加算機で検算
0941名無しさん＠そうだ選挙にいこう
2016/12/08(木) 20:51:43.19加算機ってこう言う奴のこと？
http://www.sci.u-toyama.ac.jp/topics_old/topicsApril2008_1.jpg
0942名無しさん＠そうだ選挙にいこう
2016/12/08(木) 22:10:23.84Excel音痴ばっか
0943名無しさん＠そうだ選挙にいこう
2016/12/08(木) 22:38:01.75その認識は恥ずかしいぞ
大企業は業務用の専用ソフト使うからエクセルはほとんど使わない。使えないんじゃなくて使う必要がない
0944名無しさん＠そうだ選挙にいこう
2016/12/08(木) 23:25:07.390945名無しさん＠そうだ選挙にいこう
2016/12/09(金) 03:55:08.91結局ツールの奴隷
間接部門は使える人いるけど
直接部門は電卓叩いたり、アホばっか
専用ツール使ってたから(今さらExcelでって言われてもやり方わからない)って言い訳を
その後もたびたび聞くことになったが、
b to bで相手の出すデータによってはツールなんて使えない
そいつらの基本的ななExcelの使い方のヘボさに笑った
自分が知ってる世界が全てって、その認識は恥ずかしいぞ
0946名無しさん＠そうだ選挙にいこう
2016/12/09(金) 03:57:23.350947名無しさん＠そうだ選挙にいこう
2016/12/09(金) 06:57:44.01あっ、派遣さんか...
0948名無しさん＠そうだ選挙にいこう
2016/12/09(金) 07:16:53.85社員たちがわざわさエクセル覚えなくて済むように
俺らが雇われてるんだな、って思うことはよくあるよ
金貰えるんだからそれをとやかく言うつもりもないが
0949名無しさん＠そうだ選挙にいこう
2016/12/09(金) 07:24:52.810950名無しさん＠そうだ選挙にいこう
2016/12/09(金) 07:40:23.37勝手に他人の領域まで計算式書き換えるバカがいるし
表ではあってるのにマクロで印刷したら保険料まで消費税請求するようにされてたとか
前例がありすぎてとてもじゃないが検算なしは無理だ
0951名無しさん＠そうだ選挙にいこう
2016/12/09(金) 08:18:15.69笑えない現実
ただ、カイゼンすると困る人もいるから、うかつに手を出せないのも現実
0952名無しさん＠そうだ選挙にいこう
2016/12/09(金) 08:43:17.20書き換えられないようにしなよ
0953名無しさん＠そうだ選挙にいこう
2016/12/09(金) 09:28:46.97つっこみたくなるねw
0954名無しさん＠そうだ選挙にいこう
2016/12/09(金) 13:59:05.99書き換えられないように出来ないんじゃないの多分
0955名無しさん＠そうだ選挙にいこう
2016/12/09(金) 14:00:42.470956名無しさん＠そうだ選挙にいこう
2016/12/09(金) 14:53:29.02道具の使い方を間違ってるだけという
0957名無しさん＠そうだ選挙にいこう
2016/12/09(金) 19:07:50.83エクセルの正しい使い方を教えて下さい
0958名無しさん＠そうだ選挙にいこう
2016/12/09(金) 19:16:41.300959名無しさん＠そうだ選挙にいこう
2016/12/09(金) 19:58:04.370960名無しさん＠そうだ選挙にいこう
2016/12/09(金) 20:04:34.610961名無しさん＠そうだ選挙にいこう
2016/12/09(金) 20:42:33.65まぁいいんじゃない所詮人のお金って感覚で
自分はフリーランスだから947みたいな感覚はおめでた過ぎてよくわからない
0962名無しさん＠そうだ選挙にいこう
2016/12/09(金) 20:54:37.610963名無しさん＠そうだ選挙にいこう
2016/12/09(金) 20:55:14.240964名無しさん＠そうだ選挙にいこう
2016/12/09(金) 21:04:47.39滞留残について直接話はするけど
どの分の滞留残か確認するために、ナップザック問題のマクロとか使ってみたことはある
0965名無しさん＠そうだ選挙にいこう
2016/12/09(金) 21:11:03.54え゛っ！
フリーランスで Excel 使えますって自慢するの？ w
0966名無しさん＠そうだ選挙にいこう
2016/12/09(金) 21:20:24.04もしかして経理システムを介さずに、別にエクセルで管理してるの？
0967名無しさん＠そうだ選挙にいこう
2016/12/09(金) 21:50:25.95恥ずかしいからどっかいって
0968名無しさん＠そうだ選挙にいこう
2016/12/09(金) 23:04:37.160969名無しさん＠そうだ選挙にいこう
2016/12/09(金) 23:12:39.02DBからデータ持ってきてエクセルで加工するという形を取ってるわ
細かい部分が請求先で異なるって感じなんだけど、エクセルはその辺り恐ろしいほど柔軟に対処できるからな
ちなみにとある一部上場企業はパワポで請求書作ってるらしいゾ…
0970名無しさん＠そうだ選挙にいこう
2016/12/10(土) 04:05:11.800971名無しさん＠そうだ選挙にいこう
2016/12/10(土) 13:18:46.41請求書本体は会社が作ったツールでやってるが
0972名無しさん＠そうだ選挙にいこう
2016/12/10(土) 17:53:39.12それを「ソートする」と言ったりしますか？
ソートするは並べ替え、と認識していますが、「ソートして」と指示されると絞り込むことを言っているようなので
「じゃ、○○で絞り込んでおきますね」とさりげなく言い添えて確認をしているのですが、「そうそうソートしてね」
食い違ったまま話はいつも進行します。
いつか間違いが起こるのでは、しかしソート並べ替えですよ、とはなかなか上司なので言えず。
もしかして絞るのをソートするっていうのを自分が知らないだけか？とググったりしてます。。
0973名無しさん＠そうだ選挙にいこう
2016/12/10(土) 19:03:58.78フィルタをかけるとか、絞り込むでしょうね。
vbaのsortメソッドも並べ替えだし。
0974名無しさん＠そうだ選挙にいこう
2016/12/10(土) 19:09:01.12もちろん間違い
俺なら・・・
上司「ソートしといて」
俺「了解です、ソートします。いつも通りオートフィルタでいいですよね」
10年後…
俺「上司、こないだエクセルの講習会行ったんだよ。そしたらオートフィルタはソートじゃなく絞込って言うんだって。俺たちずっと間違ってたってｗ」
上司「まじかよｗｗｗじゃあ絞込か…絞込なぁ。絞り込むか～」
意地を張らずに、まずは自分が共犯になること。
そして説得力のある人に指摘されたという事
この二点をクリアすれば達成できると思う
めんどくさければ講師を呼んで指摘してもらうとか、上司の上司から言ってもらうとかでもいいと思う
間違った日本語で指示を出されるとミスの原因になりかねない、困っていると言えば協力してくれるだろう。
とりあえずは上司に従っておいたほうがいい。あまり反発するとへそ曲げて鬱陶しくなるぞ
0975名無しさん＠そうだ選挙にいこう
2016/12/10(土) 19:54:59.52指摘されて恥ずかしいならいちいち出てくるなよ w
0976名無しさん＠そうだ選挙にいこう
2016/12/10(土) 20:11:05.71返事ありがとです
>>973
そうなんですよね、そのあたりに踏み込むと歴然と違うという認識が生まれると思うのですが、
上司がその状況には絶対ならないので ま、現状維持でさりげなくやっておきます
>>974
今は先に書いたように、必ず言い添えることをさりなげくしてます
共犯になろうとは思いませんが、都度イラッとすると損失なのでわかりましたよ〜というマインドで対応しています
ちょっと問題なのは上司に仕事を教わった若手が当たり前ですが同じ言葉で話すこと
若手にはいつかタイミングが良いときに、さりげなく「ソートは並べ替えだから優先つけるカラムは〜」
とでも付け足して違いを認識もらおうと思います 一緒に仕事するので間違いが起こる可能性高いので
上司には進言はしません
でもとりあえずソート＝絞る ではないと確認できてよかったです
ありがとうございます
0977名無しさん＠そうだ選挙にいこう
2016/12/10(土) 20:13:01.05読む限り、965のそういう指摘自体が人として恥ずかしいということだと思います
0978名無しさん＠そうだ選挙にいこう
2016/12/10(土) 20:24:29.11それしか自慢することがない奴もいるもんな w
0979名無しさん＠そうだ選挙にいこう
2016/12/10(土) 20:33:14.44すみませんまともに反応したのが馬鹿でした
0980名無しさん＠そうだ選挙にいこう
2016/12/10(土) 20:35:09.47まぁその辺にしておいてくれ。
俺が悪かった。悪いのは俺だ
ってわけで、次
Excel総合相談所 125 [無断転載禁止]?2ch.net
http://echo.2ch.net/test/read.cgi/bsoft/1481369538/l50
0981名無しさん＠そうだ選挙にいこう
2016/12/11(日) 02:10:31.500982名無しさん＠そうだ選挙にいこう
2016/12/11(日) 02:29:45.840983名無しさん＠そうだ選挙にいこう
2016/12/11(日) 03:11:37.790984名無しさん＠そうだ選挙にいこう
2016/12/11(日) 03:53:15.090985名無しさん＠そうだ選挙にいこう
2016/12/11(日) 05:02:02.350986名無しさん＠そうだ選挙にいこう
2016/12/11(日) 09:24:12.01省略って一般的には文字単位でやるもんじゃないから
（i18n みたいな乱暴なやつもあるけど w）
0987名無しさん＠そうだ選挙にいこう
2016/12/11(日) 09:32:31.11ねるねるねるねはねるねるねるねであって、ねるねるねやねるねるではない
だったらねるねーやねるねねねの方がよいのではとおもうしだい
0988名無しさん＠そうだ選挙にいこう
2016/12/11(日) 10:27:57.29さていくつ読めるかな
東雲 叢雲 薄雲 巻雲 白雲 朝雲 山雲 夏雲 峯雲 秋雲 夕雲 風雲
夕霧 朝霧 天霧 狭霧
暁 霞 霰 嵐 暁 響 雷 電 霓 朧 曙 漣 潮
朝潮 黒潮 親潮 早潮 夏潮 大潮 満潮 荒潮
春雨 時雨 村雨 夕立 五月雨
朝霜 早霜 秋霜 清霜 初霜
睦月 如月 弥生 卯月 長月 菊月 文月 皐月 菊月 三日月 望月 夕月 花月
秋月 照月 涼月 初月 新月 若月 霜月 冬月 春月 水無月 宵月 夏月 満月
白露 朝露
白雪 初雪 吹雪 深雪
朝凪 夕凪
浦風 江風 磯風 浜風 峯風 澤風 沖風 灘風 矢風 羽風 汐風 天津風 時津風
秋風 夕風 野分 帆風 野風 波風 沼風 神風 春風 旗風 海風 太刀風
山風 涼風 初風 雪風 谷風 島風 萩風 舞風 松風 朝風 疾風 追風
長波 巻波 高波 大波 清波 玉波 涼波 藤波 早波 浜波 沖波 岸波 敷波 浦波 磯波 綾波
陽炎 不知火 初春 有明 夕暮 速鳥 子の日 白妙 山彦
松 梅 桃 桑 桐 杉 槙 樅 樫 榧 楢 柳 椿 檜 橘 楠 初桜 八重櫻 若櫻
楡 梨 椎 梓 栃 桜 樺 榊 楓 桂 柏 槇 欅 榎 栗 柿 栂 初梅
菊 葵 萩 薄 藤 蔦 葦 葛 菱 蓮 菫 蓬 蕨 蓼 竹 若竹 呉竹 矢竹 雄竹
早苗 早蕨 朝顔 夕顔 芙蓉 苅萱 若葉 橄欖 栴檀
桔梗 百合 菖蒲 海棠 杜若 躑躅 紫苑 紫陽 沢瀉 牡丹 芭蕉 撫子
早梅 飛梅 山桜 篠竹 白梅 黄菊 初菊 茜 白菊 千草 若草 夏草 秋草 野菊
0989名無しさん＠そうだ選挙にいこう
2016/12/11(日) 11:02:27.760990名無しさん＠そうだ選挙にいこう
2016/12/11(日) 19:54:54.020991名無しさん＠そうだ選挙にいこう
2016/12/11(日) 23:10:10.95つか、ネタ切れか。
0992名無しさん＠そうだ選挙にいこう
2016/12/12(月) 00:38:36.76桃 とか 桃艦とか呼ぶのかな?
ずいぶん美味しそうだな
0993名無しさん＠そうだ選挙にいこう
2016/12/12(月) 03:42:09.970994名無しさん＠そうだ選挙にいこう
2016/12/12(月) 11:08:24.32文字列+（セルの値）+文字列
こんな表示をさせたいときは書式設定でやるべきですか？
数式ではめんどうですか？
0995名無しさん＠そうだ選挙にいこう
2016/12/12(月) 11:14:44.840996名無しさん＠そうだ選挙にいこう
2016/12/12(月) 11:18:11.81この場合数式では無理です
100 と入力したら 他のセルへ金額100円 とか表示したいなら数式でも可能です
0997名無しさん＠そうだ選挙にいこう
2016/12/12(月) 16:45:27.12他セルなら＆ですね？ｔｈｘ
0998名無しさん＠そうだ選挙にいこう
2016/12/12(月) 17:57:28.250999名無しさん＠そうだ選挙にいこう
2016/12/12(月) 18:06:15.911000名無しさん＠そうだ選挙にいこう
2016/12/12(月) 18:07:51.7410011001
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
life time: 84日 4時間 21分 45秒
10021002
Over 1000Thread運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ ２ちゃんねる専用ブラウザからの広告除去
★ ２ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
http://premium.2ch.net/
▼ 浪人ログインはこちら ▼
https://login.2ch.net/login.php
レス数が1000を超えています。これ以上書き込みはできません。