Excel総合相談所 135
レス数が1000を超えています。これ以上書き込みはできません。
【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい・いいえ
【4 VBAでの回答の可否】 可・否
▼━関連スレ━━━━━━━━━━━━
前スレ
Excel総合相談所
https://find.5ch.net/search?q=excel
Excel VBA 質問スレ
https://find.5ch.net/search?q=excel+vba
【質問不可】Excel総合相談所スレの雑談・議論スレ
https://find.5ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80 Excel初心者です。
関数やVBAを調べながら業務をしております。
質問ですが、そのシートの決まった列だけタブ移動やクリックを受け付けない方法はありますか?
これだけなら調べたり聞いたりしたVBAやセルのロックなどでうまくいきましたが、その状態のまま行コピーも出来る方法は無いでしょうか?
よろしくお願いいたします。
Excel初心者です。 >>4
VBAで範囲選択とコピーすれば良いじゃん
マクロの記録してみればコードは判るよ 【警鐘】と仰々しく、https://qiita.com/CodeOne/items/22004635d3c7cc533e5e
しかし、事実は事実
その下の方にあるリンク『山市良のえぬ・・』などでも混乱ぶりが
【令和】Microsoftの元号対応が迷走・・ だと、各アプリ毎とかOSのビルドごととかの比較も載ってて良心的
ンなもン、#2019/4/30#< とかでちょろく変更できるレベルにしとかなきゃダメだ
便利を極め過ぎて不便極まりない 1年なのか元年なのか、細かい事言い出したらキリもない
そこをスムースに「これでいいスか?」でジェントルに対応できるよう、各位精進せよ
真田のおやじ言葉なら「おのおの抜かりなく」 B1=10+20
A1=B1
とするとA1には30が表示されますが
数式そのものを引っ張ってくるにはどうしたらよいですか? ”=10+20”
を文字列でほしいとかそういう事じゃない
vba使わないと無理でしょ
見たいだけなら「数式の表示」で表示は叶 FORMULATEXT関数はExcel2013で追加された関数でしゅ(^▽^)
前のバージョンでは使えません(^▽^) 教えてください。
上級者の作った表でよくあるのですが、
表の部分だけ枠線が出来ており、シートの表以外の部分は、
薄いセル枠線すらなく真っ白のまま、というのをよく見ます。
実はセル背景と同じ真っ白色の罫線が設定されてるのではと思い確かめましたが
そんなことはなく、罫線はなしになっていました。
あれ、どうやって作っているのでしょうか? RANK関数で列をまたいで範囲を指定したいのですが、うまくいきません。
=RANK(H1,$H$1:$H$10:$R$1:$R$10,1)
エラーは出ないのですが戻り値が0になってしまいます。 全セルを選択しシート内の日付だけを残し金額だけを消したいです。
F5キーを押しジャンプし選択から定数、文字、論理値、エラー値でOKボタンを押してます。
これだと日付も一緒に消えてしまいます。
日付だけを残す方法はありますか?
https://dotup.org/uploda/dotup.org1838555.jpg エクセルで作った見積書の日付欄なんですが今日のアップデートで令和表示されるようになったのですが
令和1年5月4日と表示されますこれを令和元年5月4日となるようにしたいのですがどうすればいいでしょうか
数式は
=IF(A10=1,"平成 年 月 日",TODAY())
となっていますよろしくお願いします。 >>24
早速どうもありがとうございます。やってみます。 >>23
https://youtu.be/Eu7t7KpNrBg
これがわかりやすいかと
画像にある赤い丸の部分
2:50秒あたりの所で
平成1年5月1日と平成1年12月31日
と記入してますが、その部分を
2019/5/1と2019/12/31
に書き換えてください。
https://dotup.org/uploda/dotup.org1838671.jpg >>26
よくわかりました。ありがとうございました。 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
誰かが勝手に設定を弄ってしまったらしく
スペルミスしたセルに自動で波線が引かれなくなりました
どうしたら全てのスペルミスしたセルに自動で波線が出るようにできるでしょうか? > 誰かが勝手に設定を弄ってしまったらしく
あんたぁ自身が弄ったんじゃないのぉ?
先ずはそこんとこを反省してからだな >>29
自分は本当に設定を何も弄ってないのですが、ある日突然出なくなっていました
そもそも設定系のタブを開く事がありません
第一、前日まで普通に使えていて、その状態で設定系のタブは一切開かずに、CTRL+Pで印刷、CRTL+Sで保存、×ボタンでExcelを終了、帰宅して、翌日の朝、出社していきなり使えなくなっていたんですから
前日に残業した人か早朝出勤した人が弄った以外にありえないでしょう? >>32
間違ったのを勝手に直すのではなく、間違ってるセルの下に波線を出す奴です Wordじゃなくて?Excelにそんな機能あったっけ なんかアップデートのせいで、今まで数字が見えてたセルが「##」になるんだけど…
1ピクセル分広げないといけなくなってメンドクサイ・・・
こういうの俺だけ? 別ブックの選択セルの中のマウスポインターの位置に押したボタンの文字が挿入されるマクロボタン作りたいんですがどんな感じになりますでしょうか
例えばぶっくaの「燃えるを捨てに行く」の文字列のをと捨の間にポインター置いてぶっくbの「ゴミ」のマクロボタンを押すと「燃えるをゴミ捨てに行く」になる感じです >>36
書き終わって間違いに気づきましたが奇跡的に意図は伝わると思うのでよろしくお願いします sendkeyやらAPIバリバリ全開で使うことになりそう
多分超めんどくさいぞ
俺は無理だ >>35
同じ症状が出た。
今回のアプデで列幅が勝手に縮められて、
図表のレイアウトが全部崩れた。
いったいどうしてくれるんだ、アプデ!
そして誰か、一括で元に戻す方法あったら、教えてください。 >>39
列見出しの右端をダブルクリック
複数列選択後でも可能
まぁエクセルにはよくあることだな >>39
やっぱりアプデのせいか
勝手に列幅1ピクセル狭まる糞改悪しやがって
本当に死んでほしい >>40
レスサンキュ。
だけど、図表のレイアウトの都合で、
各列ごとに違う列幅を設定していたんだ。
しかも図表が100個くらいある。
100個の図表それぞれで、
それぞれの列幅を設定し直さないといけないと思うと、
気が遠くなる。
一括して元に戻す方法はないのか… >>42
俺と一緒や
Excel2010で製作したファイルでカメラ機能で図表にしてるから、手直しが糞めんどくさい 列幅勝手に変更のアプデは最低最悪の所業だと思うが、
仕事でExcelの図表使っている会社からクレームは来てないのか?
明日からの仕事再開でどっとクレーム来るか。 >>44
そんなもんやで
クレーム送っても特に何も変わらないし戻るわけでも無いので時間の無駄
文句言う暇あったら粛々と再設定作業しよう 初心者ですがVBAについて質問です。
特性のセルに
他のソフトの値からコピペした 中心(ワーク)( 0.000000, 0.000000, 25.000000 )
という文字が貼り付けられたと同時に、オブジェクトを作って動かすマクロを作りたいのですが、ご教授下さい。
オブジェクトを作って動かすマクロはマクロの記録で作れたのですが、
中心(ワーク)( 0.000000, 0.000000, 25.000000 )
の25.000000 が
0の時はAのマクロ
25.000000の時はBのマクロ
その他の時はCのマクロ
という具合に機能できればと思っています。
エクセル2007のWIN7ですがよろしくお願いします >>46
多分単語を間違えている
そのまま読むと意味が分からないところが多い
>オブジェクトを作って動かすマクロ
これが良く分からない。オブジェクトって何のオブジェクト?
とりあえず貼り付け時に動く物はこんな感じ
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
flg = Target.Value
flg = Split(flg, ",")(2)
flg = Replace(flg, ")", "")
flg = Replace(flg, " ", "")
If flg = "25.000000" Then
Call sub_a
ElseIf flg = "0.000000" Then
Call sub_b
Else
Call sub_c
End If
On Error GoTo 0
End Sub >>45
さすがにクレーム多いと改善するよ
去年あったアプデでクレーム殺到した結果
クレームのあった機能を元に戻すアプデあったし
ただ、今回の場合再アプデでまた設定し直しする羽目になりそうだが >>47
ありがとうございます。
すみませんオブジェクトじゃなくてオートシェイプ(図形)でした
数値によって違う位置のラインを引きたいと思ってます。
マクロの記録を使ってそのコードがわかりました。
そのコードを今教えてもらったところに
Call sub_macro a
などでよろしいでしょうか? >>50
ありがとうございます。
明日試させてもらいます! >>39>>44
とりあえずKB4495667を削除したら列幅やセルクリックのVBAが作動しない問題は治った。
アプデが害悪。たぶんすぐ対応のパッチ出すと思うけど、本当にMSざるすぎるでそ >>59
でそ
でしょ?
カッコ悪いからやめたまえ >>50
何度も申し訳ありません。
昨日教えていただいたコードで
例えばA1のセルに貼り付けた時に動かす場合どの様にコードを変えればよろしいでしょうか?
レベルの低い質問ですがよろしくお願いいたします。 >>61
スマホだからスペル違うかも知れんが、エラーでたら適当に解釈してくれ
Private Sub Worksheet_Change(ByVal Target As Range)
if target.row=1 and target.column=1 then
On Error Resume Next
'省略
On Error GoTo 0
endif
End Sub >>59
会社で使う資料の表が崩れてたから助かったわ
ありがと >オプションとして配布されるはずの「KB4495667」が誤って一部ユーザーに自動配信されていたことを明らかにした。すでに対策が講じられているため、ユーザー側の対処は不要だ。
「Windows 10 バージョン 1809」向けの“オプション”パッチが誤って自動配信される
https://forest.watch.impress.co.jp/docs/news/1183014.html
これは酷いwww 見たことが無いアップデートメッセージが出たって職場のおじさん大騒ぎしてたけど、これかぁ アップデートでKB4495667を間違って入れたやつはとりあえずアンインストールしたほうがいいぞ 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ(マクロの記録程度なら可)
【4 VBAでの回答の可否】 可
質問させてください。
A1セルの値によって別シートにある文字列を○(オートシェイプの楕円等)で囲むことは可能でしょうか。
具体的にはとある事柄について「可」ならば、A1に入力規則で「○」に入力(不可なら空白のまま)することで印刷用シート上の「可能」の文字を囲みたいです。
A1の値は空白か否かを想定していますが、作業列の追加は可能なので、数字でも大丈夫です。
よろしくお願いします。 >>69
図のリンク貼り付けを使うと楽
https://dotup.org/uploda/dotup.org1841933.xlsx.html
コピーペーストで、ペーストの時に右クリックで図のリンク貼り付けってのがあるから
それを使えばojk >>70
このやり方でなんとかなりそうです。
ありがとうございました! IEでリンクをクリック→@入力ボックスに数字を手入力→A保存ボタンをクリック→Bファイル保存ウィンドウが出るまで待機し出たら保存クリック→クリックで別窓を開き、その別窓で@〜Bと同じ動作をする
こういう自動化ってvbaだけでできますか?(@は一部手作業ですが) GW開けてからTwitterでKB4495667の被害報告多数出てるな 日付データのセルを並び替えたいのですが
↓のようにバラバラになってしまいます。。
この場合どうすれば良いのでしょうか?
ご教授願いますm(__)m
2017年10月18日(水) 午後6:25
2017年10月1日(日) 午後0:05
2017年10月21日(土) 午後10:47
2017年10月3日(火) 午後4:32
2017年10月4日(水) 午後3:53
2017年10月6日(金) 午後5:15
2017年10月7日(土) 午後10:18 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
A1セルに【1<2<3<4<5】と入力した時に
B1セル【1】
C1セル【2】
D1セル【3】
E1セル【4】
F1セル【5】
と文字を抽出するにはどうすればいいでしょうか? 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Googleスプレッドシート
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
averageif関数で次の関数を組みました。
=averageif(Sheet2!A:A,"<>山田",Sheet21!B:B)
A列が「山田」では無い行のB列の値の平均値を出したいのですが、
これをaverageif関数を使わずに
=ArrayFormula(average(if( )))」で組むにはどうすれば良いでしょうか。 >>76
誤字訂正です。
Sheet21!B:B
→Sheet2!B:B >>75ですがMID関数で出来ました
取り消します >>74
文字列になっているので作業列を使って日付型に直す
B1=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,
"(日)",""),"(月)",""),"(火)",""),"(水)",""),"(木)",""),"(金)",""),"(土)","")
,"年","/"),"月","/"),"日",""),"午前",""),"午後","")+IF(ISERROR(FIND("午後",A1)),0,1/2)
後はB列を基準に並び替え 日付を抜き出す式 =DATEVALUE(LEFT(A1,FIND("日",A1)))
時刻を抜き出す式 =TIMEVALUE(RIGHT(A1,LEN(A1)-FIND("午",A1)-1))+TIMEVALUE("12:00:00")*(SUBSTITUTE(A1,"午後","")<>A1)
日付+時刻は2つの答えを足し算するだけ >>80
評価するのは良いけど、より良い式を提出しないと無能の烙印押されるぞ >>79
>>81
ものすごく助かりました。
2日間悩んだのが嘘のようです。
Excelって奥が深いんですね
本当にありがとうございました<(_ _)> ありがとうございます。
End If
を付ければうまくいきました。
少しずつ勉強していきます。 >>62
ありがとうございます。
End If
を付ければうまくいきました。
少しずつ勉強していきます。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel365
【3 VBAが使えるか .】
【4 VBAでの回答の可否】
私自身は365を持っていないのですが、365ユーザーに操作を聞かれて困っています。
「非表示にした行」は、どう操作すれば表示に出来るでしょうか?
ちなみにExcel2010での操作は、非表示にされている辺りの行をまとめて選択して、
(または名前ボックスから直接非表示行を"A55:A71"と言った具合に入力指定して)
”ホームタブ>書式>非表示/再表示>行の再表示”でした。 【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
開いているIEを全て閉じ、特定のurlを開き、カーソル位置に文字を入力したいのですが、どう書けばいいでしょうか
文字入力はカーソルがアクティブになってればsendkeyでいけますよね? >>86
>”ホームタブ>書式>非表示/再表示>行の再表示”でした。
どっちでもいいけど、右クリックの再表示の方が早くない?
あとこのスレ教えて上げればいいよ
誰かテキトーに答えてくれる
>>87
開いてるIEってエクセルから開いたIEオブジェクトの事?
それとも普通のIE?
後者だとかなりキツイ >>87
とりあえず前半だけ
IEを全部閉じる
後半は俺には高度すぎて無理だ
Sub CloseAllIe()
Dim oSA As Object
Dim oWT As Object
Set oSA = CreateObject("shell.Application")
For i = oSA.Windows.Count To 1 Step -1
Set oWT = oSA.Windows(i - 1)
If TypeName(oWT) = "IWebBrowser2" Then oWT.Quit
Next
End Sub >>88
前者で大丈夫です
自分でもgetelementbyidなるものでやってまたんですが原因不明のオートメーションエラーとやらが出てしまいました・・ >>90
ありがとうございます、閉じるのはなんとかなりそうです! 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
[タブ1]ページ1,ページ2,ページ3
[タブ2]ページ1,ページ2,ページ3,ページ4
[タブ3]ページ1
[タブ4]ページ1,ページ2
[タブ5]ページ1,ページ2
・
・
[タブ20]ページ1,ページ2
このようなエクセルファイルがあり、
[タブ1]の全ページ、[タブ3]の全ページ、[タブ4]の全ページ、[タブ6]の全ページ、・・・[(タブ20ほどまである)]と、
印刷の必要のないタブは除いて、全ページ印刷を行いたいです。
[タブ1]をクリック→作業中のシートを印刷→[タブ3]をクリック→作業中のシートを印刷→[タブ4]をクリック→作業中のシートを印刷・・・とやると果てしない作業になってしまうので、なんとか「ブック全体を印刷」で印刷できるようにしたいのです。
(印刷の必要のないタブを消すと、計算式などが絡まっているらしく、他のタブに影響があるために消せません)
@[タブ2][タブ5]をあらかじめ「ブック全体を印刷」では印刷されないようにする操作などはありますでしょうか?
印刷範囲の設定、でできるかなと思ったのですが、印刷範囲を無くすことはできませんでした。
A印刷範囲を完全に消すことができないなら、ページ指定で「1-3,8,9-10」のように指定すればいいのでは、
と思ったのですが、2016では[]から[]までという入力しかできないようです。
不可能でしょうか?
Bどれをタブを印刷しますか?□タブ1 □タブ2 □タブ3 ・・・ みたいなのがでてきて、
これとこれとこれーとチェックいれたら印刷できるーみたいなのがあれば最高なんですが
そういうアドインとか機能はありませんでしょうか? if(A1="","",○○)で空白が入力されたセルを更にcountifsで参照すると"<>"を空白と認識してくれません
if(A1="",0,○○)にして"<>0"なら認識するんですが
空白無理ですか? >>95
"<>"&""でも無理でした
何とか空白で出来る方法ありますか? 数式の空白と元の空白が区別される・・・前からこんな仕様だっけか [タブ2]ページ1,ページ2,ページ3,ページ4
[タブ5]ページ1,ページ2
[タブx]ページ1,ページ2
[タブx]ページ1
-----いらないタブを前半にもっていって----
[タブ1]ページ1,ページ2,ページ3
[タブ3]ページ1
[タブ4]ページ1,ページ2
・
・
[タブ20]ページ1,ページ2
で、[タブ1]の最初のページ〜最後のページを印刷すれば
一気に印刷できてクリック数も減る気がしてきました。
・・・スマートですかねこれ >>97
countifなら""が空白とみなされる
countifsだと""が空白とみなされない
こんな事ありましたっけ? ExcelはBlankとnullが別扱いで数えるのに専用の関数すらあるだろ
昔から一貫したクソ仕様のはず >>100
null数えるのは2010でできますかね? >>99
そこは統一されてると思う
>>100
あぁ、そうだ。作業列でcounta()でやってた
もしかしてcountifs()だと無理なのか
>>95
出来るかもしれないが、無理な気がする。
俺なら諦めて条件の数だけ作業列作ってしまうかなぁ すいません(´д`)
タブの中に不必要なページがなかったので、
印刷の必要がないセルを「非表示」にするだけで希望がかないました
お目汚しすみません >>102
もう容量いっぱいいっぱいで
作業列追加するのもキツイかなぁというところです
空白認識できなければifを0にしてcountifsを"<>0"でやっとくのがいいですかね? vba書く前提部分なんだけど、tabキーでリンクフォーカスしてるのにエンター押してもリンク先に飛ばないのはなんで? >>106
言ってる意味が良く分からない
エンターでダメならスペースキーは >>107
言葉足らずごめん
IE上で動いてるシステムでtabキーでリンクフォーカスしてenter押してもリンク先が開かないんだよね
spaceでもだめだった >>108
ページを見ないと分からないが、
ページ遷移が、マウスclickにバインドされているならそういう可能性もある >>109
チェックボックスへのチェックはスペースでできたからそれかもしれないですね
なんでこんな使えない仕様にするかなあ 行と列に加えてもう一つのデータ軸を含んだ表をうまく扱う表形式ってどうすれば良いんだろう シートで分けるのは最悪 集計が面倒になるだけ
多次元配列だろうがなんだろうがテーブルにぶちこむだけだ 前任者の作ったシートがやたら重くて不評で「どうして重いのか見て貰えないか?」と言われて直してるんですが、
全てのVLOOKUPをINDEXに変えたり、無駄に名前があるセルの名前を廃止したり、変える必要も無いセルで無駄に条件付書式で色換えするセルを廃止したりで
一応は軽くなったんですが
こういうのを見つけてしまいました
AA7〜AA900まで、前半は変動するZを使って居るんですが後半が全く同じ式
AA7=Z7*1.08*IF($A$2="2倍修正",2,1)
〜
AA900=Z900*1.08*IF($A$2="2倍修正",2,1)
私の更に後任者になるだろう人に分かり易くするために、この後半のIF($A$2="2倍修正",2,1)を適当な作業セルAZ2辺りに移して
AZ2=IF($A$2="2倍修正",2,1)
AA7=Z7*1.08*AZ$2
〜
AA900=Z900*1.08*AZ$2
としておくべきでしょうか?
同じ計算を893回もやっているのを1つに纏めるわけですから既にVLOOKPU廃止などで軽くなっているものの、もう少し軽くなるでしょうし、分かりやすくなる…と思うのですが…
どうでしょうか? 将来的にはマシンスペックが上がるから必要ないんじゃ?
それよりも「1.08」を設定セル作って一ヵ所直せば全てに反映されるようにすべき いまどきのPCでたかだか1000行くらいで重いのは異常 昔は3000行あると重いなーということがあったもんだが
おそらく原因は条件付き書式の増殖 >>117
高速vlookupとかでググるがよろし
速度差が出る原因も知っておいた方がいいし >>119
ググった
index+matchのほうが結構早いんですね
しかし本質的に完全一致が遅い原因でそこを工夫するべきと
勉強になりましたサンクス A列は固定の西暦(2019など)、B列に四桁の月日(0511など)C列に日数(60など)を入れて
D列に2019年5月15日の60日前を「何年何月何日」として
E列には同じように60日後を表示させたいんですがうまくいきません。
B列を年月日のデータにしてしまえば簡単なんですが、どうにかなりませんか? F列に年月日のデータをいれてそれを利用スレ簡単なんですけど >>121
d1 =DATE(A1,MID(B1,1,2),MID(B1,3,2))-C1
e1 =DATE(A1,MID(B1,1,2),MID(B1,3,2))+C1 >>117
処理速度はINDEXの方が軽いが容量はVLOOKUPの方が小さい
なので、用途に分けて使い分けるのがいい >>125
多用したシートのファイル容量
あと、
1,2,3,4,5,6,7と並んでいるのを完全一致で検索するのはINDEXでも出来るが
2.7.9.10.13みたいな間が開いた数字を、以上以下で検索出来るのはVLOOKPだけ 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013 15.0.5049.1000
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否(っていうか、VBA関係ないので)
5月を和暦で表示しても、H31.5.12などと表示されてしまい、
令和にならないのですが、どうしてでしょう?
Windows10の時計は令和対応になってますし、
レジストリにも令和が書き込まれているのですが。
再起動してもダメです。
Excelのバージョンが古いのかと思いましたが、
更新しようとしても、最新バージョンですと言われます。 >>126
>多用したシートのファイル容量
初めて聞いたけど、どれぐらい変わるの?
>2.7.9.10.13みたいな間が開いた数字を、以上以下で検索出来るのはVLOOKPだけ
一応確認だけどindex+matchだよね?
matchでも出来るよ
https://docs.microsoft.com/ja-jp/office/vba/api/excel.worksheetfunction.match ↑すいません、取り消します。
やっぱ令和表示できなくていいです。
KB4495667のせいで、シート上に配置したコマンドボタンの位置が、
ありえないことになってしまったので、アンインストしました。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
この上の画像のシートに入力して下のシートの領収書作りたいんですけど、
下の#NEME?のところに関数入れてその横の"2"のところに数字入れると、リストの2行目を参照するみたいなの作りたいんだけど、#NEMEのところにどんな関数いれれば良いか教えて下さい
というか関数でできますか
https://i.imgur.com/371l4bZ.jpg
https://i.imgur.com/GCr4fmE.jpg 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Office 365 Solo
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
図形で直線と四角・丸はコネクトできますが
直線同士でコネクトさせる方法をお聞かせください できればoffsetの関数を使ったやり方教えて下さい >>132
コネクトってのが良く分からないけど、
ctrl押しながら両方選択して右クリックでグループ化で良いのかな >>131
そういう数式はM1セルに入れるんじゃなくて、A5とかM6に書いた方がいいんじゃない?
それともアドレスを文字列で作ってINDIRECTとか使うつもりだったりする?
とりあえず
A5 =OFFSET(Sheet1!A1,N1,3)
M6 =OFFSET(Sheet1!A1,N1,2)
E9 =OFFSET(Sheet1!A1,N1,4)
みたいな感じでいいんじゃないかな >>135
なるほど。offsetの使い方勘違いしてました。勉強になります。
ありがとうございました。 >>132
> 直線同士でコネクトさせる方法をお聞かせください
直接は無理じゃねーの?
俺はダミーの透明図形(例えば○)を置いて各々それに接続してる 日付1-1(例:1992/10/1 0:00:00) 値1 値2 値3
日付1-2(1992/10/1 0:01:01)
日付1-3
・
・
日付1-1000
日付2-1
日付2-2
日付2-3
・
・
日付2-1000
1日の中で数秒刻みに値が記録されているシートがあるのですが
グラフを生成しようとするとパフォーマンス的に出力し切れなかったので
日別(各日記録された先頭の1行だけを抽出(時間以下は切り捨て)シートを作成したいです
どのように行えば良いでしょうか >>138
作業列に日付だけ抜き出して重複データの削除 sendkeyするときのfnに当たるキーってどれ? >>140
ない
Fnは物理的なキーが足りないときにハード的に増やすための物だから、物理の制約を受けないSendkeysには関係ない >>141
そうすると、テンキーのないキーボードでnumlockが他のキーと兼用になっている場合、マウスキー機能を有効にする場合はshift +alt +numlock +fnだ思うんだけど、sendkeyじゃ対応できないですか?
ちなみに>>110です
マウスキー機能ならあるいは・・と思いついてみたけどダメですかね すでに開いている IEのリンクをvbaでクリックしたい
→getelementbyid等はどうしても理解できなかったし上手くいかなかった→
tabキーを適当な回数押して該当箇所にフォーカスした状態でenter押すようにsendkeyしよう→
なぜかフォーカスenterができないページだった(>>109)→
マウスキー機能使えば行けるんじゃないか→
マウスキー機能に入るためのキー操作shift+alt +numlock +fnで躓く
素人丸出しでごめんなさい getelementbyid側から操作した方が楽な気がするんだけどな〜 idない場合もあるから、その時はclassやtagnameになるんだけど >>137
やはり直線同士は無理なんですね
ダミーの図形を使ったやり方等で対応するようにしてみます >>145
社内システムの仕様が絡むので説明しづらいんですがgetelementbyidが厳しそうなんですよね、二窓以上で開くとすぐログイン競合とみなされてログアウトするとか >>144
マウスキー機能なんてあったのか、知らなかった
fnは関係ないな。
shift+alt +numlockをsendkeyで送るだけでいいはず
getelementbyidと二窓以上は関係ないよ 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel365
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 不可
列でなく、行にフィルターつけれませんか? 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
西暦から会期を求める関数を教えてください。
会期は2月21日から翌年2月20日で
セルA1が「2018/1/11」ならB1に「2017年度」
セルA2「2018/4/3」ならB2に「2018年度」
と表示させるためのB列の関数を教えてください。 B1=IF(AND(MONTH(A1)>=1,AND(MONTH(A1)<=2,DAY(A1)<=20)=TRUE)=TRUE,YEAR(A1)-1&"年度",YEAR(A1)&"年度") >>152
=YEAR(A1)-IF(MONTH(A1)*100+DAY(A1)<=220,1,0)&"年度" >>149
いけそうだったけどsendkeyでshift・alt・numlock同時押しってどういう書き方になるんでしょう 質問ですがご回答よろしくお願いします
【1 OSの種類 .】 Windows8
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
VBAやマクロが使えないので関数で抽出したいのですが
列 A B
行 1 A商店 750円
2 B商店 600円
3 C商店 650円
このような場合一番安い値段を提示している「B商店」を抽出したいのですがやり方が分かりません
値段ではなくあくまでも「B商店」と出したいのです
処理的にはまずB行から最安値を探し、その次にA行の同列の「B商店」を抽出する
やりかた分かる方いれば教えてください。
よろしくお願いします。 >>157
同じ金額がないとして
=INDEX(A:A,MATCH(MIN(B:B),B:B,0)) >>158
ありがとうございます
その数式を当てはめてみたんですがブックに「循環参照が見つかった為〜」とエラーが出てしまい0になってしまいました
できれば同じ数字がある状態でできないでしょうか?
同じ数字がある場合は一番上の列のお店を出るようにしたいです
よろしくお願いします >>158
すごいできました
すみませんその数式をコピーして貼り付けただけだったのでエラーがでてしまいました
列番をいれてみたらちゃんとB商店とでました
ありがとうございます
さすがです! >>150
そのファイル使う時だけ、画面表示を90度回転させるとか。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 全コピペでいけるなら可
ブックの最初の形式としては、『1』と『テンプレート』のシートが1枚あります。
2日以降はテンプレートのシートをもとに今日までのシートを自動で追加作成したいです。
今日14日に開いたときは1〜14の名前のシートがある状態にしたいのです。
・1日に開いたら『1』のシートだけある。
・5日に初めて開いたら『2』〜『5』のシートを自動で追加作成。
・5日に一度開いて保存して10日に開いたら『6』〜『10』のシートを自動で追加作成。
というイメージです。
どうやればよいでしょうか? >>164
workbookに記述
Private Sub Workbook_Open()
For i = 1 To Day(Date)
'シートの有無確認。あればtrue
flag = False
For Each ws In Worksheets
If ws.Name = i & "" Then '文字列で比較
flag = True
Exit For
End If
Next
If flag Then
'none
Else
'シート作成
Set シート = Sheets.Add(After:=Worksheets(Worksheets.Count))
シート.Name = i
End If
Next
End Sub A1〜C3までを範囲として、
1 2 3
4 5 6
7 8 9
のように数字が並んでいて、
sendkeys A1
sendkeys B1
sendkeys c1
をひとまとめ、
sendkeys A2〜を二まとまりめ、
という形で飛ばしたいと思ってます
範囲はもっと下まで行くこともあるので最終行の取得は必須だと思いますが、どう書けばいいでしょうか for each c in [a:a]
処理
next >>166
帰ったらサンプルファイルアップするので賢者の皆様アドバイスお願いします >>166
https://dotup.org/uploda/dotup.org1847293.xlsx.html
東京・大阪・北海道の各出発時間・到着時間を黄色い部分に「sendkeysで」、「それぞれ東京・大阪・北海道の順序を守って」入力したいです。
実際にsendkeysでキーを送るのはブラウザ上のフォームであるため、順序等が変更できません
また入力するのが東京・大阪・北海道だけでないかもしれないので、記載してある行すべてというイメージでお願いします ここでもvbaマスターがよく現れるから勘違いしてたけどvba専門スレがあるんですね
行ってみます 好きって言うか、本当はVisual Studioが良いんだけど、
会社のPCに入ってないので、仕方なくExcel。
でもまあExcel使わせてもらえるだけいいわな。
中には、Calcにされちゃったところもあるだろうし。 【1 OSの種類 .】 Windows8
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 始めたばかり
【4 VBAでの回答の可否】 可
すみません教えて下さい
VBAでワークシートに設置したボタンを押すと、指定したセルに記載してあるワークシートを読み込み
そのワークシートの複数の範囲を再計算をするプログラムが分かりません。
再計算の理由は演算式を消したいからです。
また、sum等の関数で求めた値を再計算すると3.2000000038のようになるのですが
表面だけではなくちゃんと3.2の値にしたいと思います。
よろしくお願いします >>176
きっちり3.2にするには、数式を見直して、目的に応じて書き変える必要がある
元のデータや計算の目的などがわからないと回答できない >>176
再計算は
calculate
一行入れれば行われる
>再計算の理由は演算式を消したいからです。
よくわからない。再計算で式は消えたりしない
>sum等の関数で求めた値を再計算すると3.2000000038のようになる
これは小数誤差。再計算は関係ない
エクセル 小数誤差 などで検索
解決方法は数式を変えるか、vbaで適当に四捨五入するしかない >>177
>>179
親切の方ありがとうございます
ヒントを頂きましたので自力でやってみます >>175
> 中には、Calcにされちゃったところもあるだろうし。
まともな会社とか組織ならほぼないだろ
一時的に移行したところも結構Officeに戻ってるみたいだし最近は話題にもならないw
アシストですらOpenOfficeとかLibraの扱いやめてるし この場合のCalcってのは、カスタマイズやVBAを禁止された状態のExcelを例えて言ってる いや、マジCalc。
ウチは、客先とやりとりするファイルが〜とか、
ゴネた人だけExcelにしてもらった。 うちは大半が古いoooのCalcしか入ってない端末だから、微妙な仕様の違いで泣きをみることが多いわ Win10 office365 VBAちょっと使える、可能
Excelで商品の在庫管理したいんですが、マスターコードのシートを作るのがめんどくさいです
バーコードリーダーで読み取ったJANコードをネットで検索して商品名セルに入れてくれるvbsとかありませんか?
スマホアプリは多数ありますがExcelやaccessでは見つからないです >>186
レスありがとう
VBAじゃなくてpython組み込みは難易度高過ぎ
ヤフーとかにも売ってる一般的な商品の在庫管理です >Win10 office365 VBAちょっと使える、可能
一瞬、何で片言なのかと思ったわ。 【1 OSの種類 】 Windows7
【2 Excelのバージョン】 Excel2013
【3 VBAが使えるか】はい
【4 VBAでの回答の可否】 可
グラフで項目軸に複数のデータを指定した時
(例えばA列に日付、B列に曜日、C列に天気、D列に気温)
上から順に気温、天気、曜日、日付と表示されてしまいます
列の並びはそのままで日付が上に来るように出来ますか? >>17
その一般的なJAN一覧ってのが無料ではほとんど存在しない
スクレイピングやりすぎるとあっというまにブロックされるし、
会社ならシステムに言ってデータ貰ったほうが早い 質問です。
セルにある改行ありのテキストをコピペした場合
ああああ
あああああ
あああああ
をコピペすると
"ああああ
あああああ
あああああ"
と出力されてしまいます。F2押してshift+↑で全てを選択してからコピーすればそれはさけられますが、面倒です。
F2でセルに入らずともうまくコピペしたいのですが、何かよい方法はございませんでしょうか? >>192
ないんだな、これが
余計めんどくさいけどvbaでコピーするとかしかない 質問です。
さっそくvbaでやってみましたがこの改行ありのテキストをコピペした場合
ああああ
あああああ
あああああ
をコピペすると
ほほほほ
ほほほほほ
ほほほほほ
と出力されてしまいます。F2押してshift+↑で全てを選択してからコピーすればそれはさけられますが、面倒です。
うまくコピペしたいのですが、何かよい方法はございませんでしょうか? >>194
意味が分からない。そのコードは間違えている
https://www.ka-net.org/blog/?p=7537
s1 = "中国語テスト:" & vbNewLine & _
ChrW(&H94F6) & ChrW(&H884C) & ChrW(&H6682) & ChrW(&H505C) & _
ChrW(&H65B0) & ChrW(&H589E) & ChrW(&H4F4F) & ChrW(&H623F) & _
ChrW(&H8D37) & ChrW(&H6B3E)
↓
s1 = Cells(1, 1).Value
に変更すれば可能 どなたかお願いします
横軸に時間、縦軸に項目名いれ、項目名がどの秒数ででてきたかをプロットされたグラフを作りたいです。
例ですが、各項目(あかとあお)が出てきた秒数を
あか 30 124 246
あお 154 300 540
などの形式で記録しているのですが、うまく図にできません。
特に縦軸に自動で数字がふられてしまうのですが、縦軸を項目名にするにはどうしたらようでしょうか エクセルに画像をリンクで管理することはできませんか?
エクセルに画像を入れていくとどんどんファイルが重くなっていくので、
画像をエクセルに埋め込みではなくリンクで管理できればなと・・・ >>198
出来るけど、ファイルを開いた瞬間消えていることがある。
何か動かすと突然表示されたり。 >>198
画像をAccessとかに入れてそれにExcelでリンクさせる 経理職でExcelより汎用性の高いスキルってありますか? 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
凄く初歩的ですが質問です。
セルA1に金額、セルB1にプルダウンで”空白”"税込""税抜"のリストを作り、セルC列に"税込"だった場合の
金額(税額だけ)を自動入力するようにするにはVLOOKUPでいいのでしょうか?またその際の式が分かりません
どなたかお願いします。 郵便番号や日本の住所から英語の住所に変換する方法ありますか?
一括でです >>205
アウトプットは
金額、条件、税額
100、税抜、0
120、税込、8.89
100、空白、空白
130、税込、9.63
という表になるってこと? >>207
はい!小数点は切り捨てになりますが、まさにそれです! >>209
D1セル、D2セルにそれぞれ
税率(%)、8
と入れておいて
データが始まるC2に
=if(B2<>"税込","",A2*$D$2/(100+$D$2))
と打ち込んでドラッグかダブルクリックで表の限りコピーでどうでしょう
税率変わったらD2セルを書き換えてください
表示の中にあるウインドウ枠の固定
というところで1行目がずっと見られるようにしたり、
ページレイアウトの中にある印刷タイトルの設定というところで1行目を選択すると、何枚印刷するときでもタイトルが印刷されて便利ですよ
自動で少数以下を切り捨てしたデータを出すなら
if(B2<>"税込","",ROUNDDOWN(A2*$D$2/(100+$D$2)),0)
表示で見えなくするだけなら表示の中の表示形式から あとF4おしたら$マークの相対参照と絶対参照を切り替えられるよ >>210
さすがです!素早い回答ありがとうございました!
本当に助かりました! 親切&天才ですね!モテモテの人生でも歩んじゃって下さい!
本当にありがとう! 以前>>46で質問した者です。
教えて頂いたマクロのおかげで運用出来ているのですが、コピー元のソフトやその設定によって
当てはまらないパターンが出てきましたのと、更に間違い防止の策を追加したいので、変更の仕方を教えて頂けますとありがたいです。
現在運用しているマクロは
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 35 And Target.Column = 8 Then
On Error Resume Next
flg = Target.Value
flg = Split(flg, ",")(2)
flg = Replace(flg, ")", "")
flg = Replace(flg, " ", "")
If flg = "25.000000" Then
Call Macro5
ElseIf flg = "0.000000" Then
Call Macro4
Else
Call Macro6
End If
On Error GoTo 0
End If
End Sub です。
@数値の前にマイナスがあるときは、マイナスを無視してほしいのと
例 中心(ワーク)( 0.000000, 0.000000, -0.000000 ) など
Aカンマが無い場合
例 0.000000 0.000000 25.000000 など
B最後に”マクロ7”を実行したい場合ですが、最初と真ん中の数値が0ではない場合
例 中心(ワーク)( 70.000000, -5.000000, 0.000000 ) などです。
長文になりまして申し訳ございませんが、よろしくお願いいたします。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
A列には人名があります。
別シートからデータを引っ張ってきており、値としては=""の0文字データも含まれます。
そのA列の中で1文字以上あるデータ数のみをカウントしたいのですがどうすればよいでしょうか? >>218
B列に、データの始まりから終わりまで1っていう数字を入力
1行目に行の挿入をおこない、A1に人名、B1に紐とでも入力
A1とB1にデータからオートフィルターを設置
A1の▼を押して、空白からチェックを外すと、下側のバーに対象である文字が入力されているデータ数が表示されている というか、A列クリックしたらデータの入ってるセル数が右下にでてくるか 御助力、お願い致します。
仕事場で別の課から送られてきた情報をまとめなければならないのですが、何か上手な手は無いかと思い相談に来た次第であります。
「○○時間○○分」と一つのセルにかかれているのがズラリとあり、縦と横で合計を出さなければなりません。
それぞれ何十も行と列があるので、一つひとつ作業してはミスが出る可能性もあると考えると……。
何卒、宜しくお願い致します。 >>222
SUMが機能しないんです……多分、時間や分という数字以外が入っているのが問題なのかなと。
オリジナルユーザー定義で「○○時間○○分」を「○○:○○」に変えようとしているのですが、それもうまくいきません……。 実際のファイル見ないとなんともいえないな。
subsutitute関数やtimeなんとか関数をいろいろ組み合わせてやればできそうだけど。 >>224だけど試した
やっぱり時間を「:」に置換
分を「」空白に置換
A1に1時間30分と入力されてた場合に1:30に置換される
A2に=VALUE(A1)で0.063194とシリアル値が出るから計算出来るようになるよ >>224->>227
置換という方法を初めて知りました……本当に有り難うございます!
おかげさまで問題なく計算ができた様です!
本当に、本当にありがとうございました! >>221
>仕事場で別の課から送られてきた情報をまとめなければならないのですが
その、まとめるという発想自体やめた方が良いと思う。
ウチもその発想の人が多くて困ってるんだけど、
共有モードのエクセルか、Googleスプレッドに直接書き込んでもらった方が良いよ。 >>231
> 共有モードのエクセルか、Googleスプレッドに直接書き込んでもらった方が良いよ。
ないわー
他の人の場所に間違えて書く奴とかが続出して破綻する未来しか見えないw >>214
1
-を空白に置換する
2
カンマがなければsplitの区切りを空白に分岐させるか、
「 」→「, 」に置換する
3
意味がわからない >>233
版をかさねられて、取捨選択できるんじゃなかったっけ? シート1
A(ID) B
101
102
103
シート2
A(ID) B
102 1000
104 1500
とありまして、シート2のB列の値をシート1B列に入れたいのですが
シート1のB列にVLOOKUPを使うと、シート2の104のような
該当しないデータが拾えなくて困ります。
なにかよい方法がありますか? >>236
意味がよく分かりません。
該当データがないなら拾えなくて当然なので、その場合どうするか決めないと。
空白にするのか、それ未満で近い値を参照するのかとか。 >>236
シート2のC列に
if(シート2のID="","",
countif(シート1のA:A,IDのセル)×countif (シート2のA:A,IDのセル)
という関数を仕込んでおきます
シート1 C1に、
product(シート2のC:C)
と入れます
すると、C1が
1のとき シート2にある全データ引用できているよ
0のとき 足りないデータがあるよ!
2以上のとき IDが重複しているよ!
という判断ができます
ifで空白のとき計算を止める理由→空白をカウントして大きな数を返すのを防止 >>238
なるほど。面白いですね。
抜けだけでなく重複まで想定するとは素晴らしいです。
>>237
こういうちょっとしたテク?が知りたかったんです。すいません。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】いいえ
シート1に住所録(a列は郵便番号b列は住所…などとわけてあります)
郵便番号、住所、アパート名、肩書き、名前を列でわけてあります
住所録に入力した項目がシート2と連動して、シート2で宛名シールができるようにしたいです
Wordを使って差し込み印刷にすればシート2が不要なのはわかりますが、使う人からの依頼なのでそれは使わないやり方を探しています
セルの幅を住所などの大きさに合わせながら基本の形を まず作りました
そこに1つひとつイコールで参照する形で地道に作っています
それ以外に方法はないでしょうか?
2列1行作り、下にコピペしたら住所録が参照されて勝手に数字が入ったのですが、1つ1つ上から全部ではなくてよくわかりません
もうひとつ困ったことがあります
市町村名の長さがいろいろで、1つのタブに入り切らないのがあるので、「縮小して全文表示」にすると、次に続くフォントが合わなくなります >>240
かなり手間をかければなんとかその時だけは使えるものができるかもしれないけど、基本的には難しいと思います。
ExcelはそういうソフトではないのでWordを使ってくださいと断るべき。
タブというのは、セルのこと?
縮小するか、折り返すか、分割するかしかないと思います。
次に続くフォントが変わるの意味がちょっとわかりません。 >>240
1シートでa4が1枚できるつもりで話をします。また、印刷用の部分は横書きを想定しています
印刷用シートで2枚取りのときは、繰り返していい感じにしてださい
準備1
シート1の住所録の左側に10、11、12、13…と 通しナンバーを振っていきます(10から開始が大事)
準備2
印刷用シートに、2列、列を挿入します
中身を入れる行のA列には下記の数式を入れます、完全コピペでいいです
=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))
B列には0と入れます
シート名を1と名付けると
1、0
という部分がA列とB列にできましたねね?
準備3
印刷用シートの引用すべき部分に、
=index(B:B、MATCH(value(シート名のセル&その横のセル) 住所シートの$A,$A,0))
という式を入れていきましょう
&で繋がって作られた10という数字をもとに郵便番号や、アパート名がインデックスMATCHで引用されましたね
うまく設定できたら、F4キーを押して、 $A$6、のように絶対参照にしましょう
準備4
印刷用で設定した紙を10個下にコピーします印刷用シートで印刷をかけると、10枚印刷できるようにしておきます
B列の数字をうえから、0、1、……9と打ち込みます
ここまできたら、シートを次々コピーしていきシート名を2、3、4……と名付けていきましょう
シートを増やすたびに10個の印刷セットができますね >>240
>そこに1つひとつイコールで参照する形で地道に作っています
>それ以外に方法はないでしょうか?
A列に通し番号を入れてvlookupで参照するか、
F列に通し番号を入れてindex+matchで参照する
indirectでもいいけどめんどい
>市町村名の長さがいろいろで、1つのタブに入り切らないのがあるので、「縮小して全文表示」にすると、次に続くフォントが合わなくなります
全体的に最初から小さめにしておけば違和感が無い 文字数が多いとき改行したいなぁというときは
長い文字が出る部分に
=left(index(B:B、MATCH(value(シート名のセル&その横のセル) 住所シートの$A,$A,0)) 、20)
とでも入れましょう 、文字数の20は適当です
そして、その下のセルに
substitute(index(B:B、MATCH(value(シート名のセル&その横のセル) 住所シートの$A,$A,0)) 、上のセル、"")
という関数を入れると
上のセルで溢れた中身が改行されて下に表示されます
substitute(元の文字列、上のセルで取り出されたn文字、"")
で溢れたセル内文字を改行をしてしまうわけですね
どうでしょうか >>240
ラベル印刷の専用ソフト買え
ってその使う人とやらに言え >>241
タブではなくセルでした、すみません
>>242
おれいが遅くなりすみません。今実際に作ってみましたそのままコピペで
印刷用シートのA1に入れてみましたが#バリューとなってしまいました
ちょっとそこから先も私には高度過ぎてできませんでした
せっかくここまで丁寧に教えていただいたのにほんとに申し訳ないです。
もう少し時間をかけて教えていただいたこと試してみますね >>248
なんて親切な方!
引き続きまだ勤務中で泣きそうでした
ありがとうございました。
ほんとに心から感謝します
あなたにいいことがありますように >>249
良い忘れてた
C1の「1」は開始のインデックスになる
3とか4とかテキトーに変えたらそこから始める事が出来る
>>242
あんまり他人の回答にケチつけるのは好きじゃないんだけど、
なんぼなんでもめんどくさすぎるやろこれ 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
VBAでの処理についての質問です。よろしくお願いいたします。
非表示シートを シート名.visible=true で非表示解除するとき、
そのシートをアクティブにしたくないのですが、方法はありますか?
印刷等をさせるために一時的に表示しなくてはなりませんが、ユーザーからすると
一瞬だけ画面が切り替わるのがうっとうしいのです。
アクティブにせず、裏の方でかってに非表示解除させる方法はないでしょうか? Application.ScreenUpdating = False
でいけない? >>252
selectとかactiveナシで処理してみては?
Sub Macro1()
Set target_sheet = Sheets("foo")
target_sheet.Visible = False
target_sheet.Visible = True
target_sheet.Cells(1, 1) = 1 '空シートだと印刷できないのでテスト用に入力
target_sheet.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
>>253でもいいけど、
再計算とかちゃんとされるかどうかまでは保証できない。
上記コードも正直、100%うまく行く自信がない(コード自体は100%間違いないが、Excelの自由奔放な挙動を信用できない)
個人的には正確性を担保するために表示が切り替わると伝えるかな >>255
使う。
Vlookupに限界を感じたら次はそれ。 >>204
フィッシングサイトにしか見えない
本当にMSのサイトなのかこれ >>258
パワークエリー、または2016以降のクエリで
2列を使ってテーブルのマージってできる?
例えば、元テータベースには商品コードと手配先コードがあって
商品A 手配先1025 単価 105円
商品A 手配先2135 単価 103円
というテーブルから
A 2135
という2行をキーに単価をとってこれる? >>260
ごめん、2013で直接書く方法しかわからないけど、
↓こんな感じのを、2016のGUIで表現できれば、多分。
Select *
From テーブル
Where 商品 = A And 手配先 = 2135 どうやったら年月単位でガントチャートグラフ化出来るの?
こんなふうに↓
2004/5 2004/11 2005/5 2005/11
│ │ │ │
■■■■■■■■■■
■■■■■■■■■■
■■■■■■■■■■ >>262
死ぬほどめんどくさい
ガントチャート エクセル テンプレート
とかで検索してテンプレート使った方が良いと思う >>263
何が面倒くさいのかわからんけど
カレンダーさえ出来れば余裕じゃん >>264
運用すると大体ロクでも無い様々な要望が来る上に、想定外の運用をして修正アンド修正になる
ガントチャートの修正は数式よりも遥かにキツイ
殺意が沸いたのはこれ
理由は「行が長すぎるから」
もう一生やらん
2004/5 2004/11 2005/5 2005/11
│ │ │ │
■■■■■■■■■■ ■■■■■ ←ここに入れれるようにして、最終が自動的にキッチリ合うようにしてほしい
■■■■■■■■■■■■■■■■■■
■■■■■■■■■■ >>262
1セルを1ドットにして■をどんどん書かせるのであれば
=if(and(上側日付のセル 列$行>プロジェクト開始日 $列行、プロジェクト終了日>上側日付のセル),"■","")
というようにしておく
日付のところは
2004/5/1 というシリアルの日付にしておいて
表示形式を yyyy/m (正確な表現忘れた)
にしておけば、>による条件が効く
日付は、(横のセル+7)で書かせていったら週単位のガントチャートになるかな?
month 関数を使って、月が変わるセルだけを黒文字にするように条件付き書式を使ったり >>265
うちは作るだけ作って運用しなかったわwww
>>262
セルを使う → >>266
VBAを使う → オートシェイプを生成して貼り付け
グラフを使う → 線の分だけ重ねろwwwwwwwwww >>267
吹いた
まぁガントチャートなんて一生懸命作っても本当に無駄、先人の失敗(落ち度はないけど)を繰り返すな
とりあえず落ちてるもん使え 落ちてるのはまず使えない
カスタマイズするくらいなら1から作った方が 今なら
「ラクテンスーパーポイントスクリーン」
登録するだけでRポイント150pが貰える!
※Androidアプリのみ
iPhoneユーザーはWeb版から登録のみ可能
登録完了後に表示される招待コ一ドをお持ちですか?のところで
「i9WPjs」
を入力する
完了
祭りだ♪ヽ('∀')メ('∀')メ('∀')ノワッショイ >>234
返信遅れて申し訳ありません
置換とは貼り付けるセルの入力規則などを設定するのでしょうか?
詳しく教えていただけますと助かります。
マクロ7を実行したいのは、基本的に(最初 中間 最後)の最後以外は0.000000でないとおかしいので、それ以外の数値がある場合エラーメッセージとしてマクロ7を実行させたいと思っています。
もしよろしければご教授願います。 >>271
遅れるな、内容忘れる
置換はvbaで行う
もうちょっとマクロ覚えてみたら?
次から次へ例外出てくるだろうから、自分で対処できないと無理が生じるぞ 【1 OSの種類 .】 Windows8
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 勉強中
【4 VBAでの回答の可否】 可
VBA のスレが見つからなかったのでこちらで失礼します
複数の別フォルダにある同一フォーマットの一覧をマージするVBAでつまずいています
@フォルダーA
集計ファイル.xlsm
シート名 集計
AフォルダーB _グループA
成果表グループA.xls
B フォルダーB _グループB
成果表グループB.xls
ABの特定の項目を@に集約したいです。
ファイル(グループ)と成果表の成果結果は増えていきます。
@に集約シートとファイル名一覧のシートを作成しました。
ファイル一覧のファイルを順番に開いて値があるところまでコピーし@の集計シートに順番に貼り付けたいのですがどのようにすれば良いでしょうか
do until でファイル名が空白としましたがマクロが止まってしまいます >>272
コード書かないとわからない
>do until でファイル名が空白
ファイル名って"*.xls"だったような
あと自分のファイルを除外しないとエラーになる
vbaスレは以下。別にここでもいいけどな
Excel VBA 質問スレ Part61
https://mevius.5ch.net/test/read.cgi/tech/1556203263/ 【1 OSの種類 .】 Windows 7
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】否
関数を教えてください。
A1の数字を参照して、B1に使う関数です。B1は連番で
数字の0〜9、アルファベットA〜Zを使って、5桁になります。
ただしアルファベットのI(アイ)とO(オー)の2文字だけ使いません。
文字は↓の順で繰り上がります。
0→1→2→3→4→5→6→7→8→9→A→B→C→D→E→F→・・・・Z
例えると
00001→・・・00009→0000A→・・・0000Z→00010
000ZZ→00100
と言う感じで繰り上がります。
そこで、例えばA1の値が「1」であればB1に「00000」と表示して
A1の値が「1000」であれば、B1は「000VD」
A1の値が「91573」であればB1は「02B7A」
と表示する関数を教えてください。 >>276
関数はないかもしれないけど、countifでZの登場回数数えて、リストを組み合わせて&結合してその表作れそう
数字いくつまで数え上げたらいい? >>276
36進数に変換するだけで、1の時00000だから
B1=BASE(A1-1,36,5)
1000は000RRで91573は01YNOじゃない? >>277
最大値はA1が「1,544,804,416」でB1が「ZZZZZ」になるかと思います。 >>278
アルファベットはO(オー)とI(アイ)を除いた34進数でお願いします。 すみません間違えました。
最大値はA1が「45,435,424」でB1が「ZZZZZ」でしたm(_ _)m ZZZZZ=33^5+33^4+33^3+33^2+33=1,544,804,415 まちがえた
ZZZZZ==34^5*33+34^4*33+34^3*33+34^2*33+33=1,544,803,293 またまちがえた
ZZZZZ===34^4*33+34^3*33+34^2*33+34*33+33=45,435,423
計算するシート ついでに逆引き機能もつけた
https://dotup.org/uploda/dotup.org1858054.xlsx.html あ、ベース関数で9桁の34進数に変換したあと
mid関数で一桁ずつとりだしてきて、
Index MATCH で、1→1、2→2………A→A…I→J、J→K、…O→Q……
って変換して&でくっつけたらいいのか
https://i.imgur.com/oCZimY5.jpg
>>284
の検算とあった結果になったし、できた!! 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
働き方改革の対応で、翌月は何時間残業出来るのかを
算出、表示出来るようにしたいです。
作り始めたのですが、以下の画像の状態で躓きました。
https://imgur.com/ChNh5j8
画像のP3:P8へ何時間残業出来るか表示させたいのですが
現状のままだと月が進むにつれて表示させるセルや計算範囲を手動で変えないといけないです。
自動にする方法や、他に良い方法があれば知りたいです。
VBAの知識はググりながらマクロ記録を多少変えれる程度です。
ご教示よろしくお願い致します。 >>287
その残業計算結果表示セルは、D列に挿入しておくべき
計算範囲の変更は
average(offset(MATCH(,,)、-5))
とか使って、今日の月を示すセルまでの距離をMATCH関数で返したらいいのでは
範囲を答えとして返すoffset関数で計算しよう >>287
予め出来上がった表に数字いれるのは、かなり面倒です。
発想を変えて、毎月全消去して、自動で書き直す処理にした方が楽ですよ。 よくわからんが、なぜ範囲を毎月変えて計算しないといけないんだろう
AVERAGEは数値のないセルは除外して平均値出すから範囲を変える必要はないのでは 範囲を変えるのは、当月(翌月)から過去○か月間の平均を出すから、ということなら
12か月分あらかじめ監視式をつくっておくという手もある 力技だが12個つくるだけだし >>272
ありがとうございます。
なかなか時間がとれないですが、少しずつ勉強して行こうと思っています。
またよろしくお願いします。 1 Windows7
2 Excel13
3 いいえ
4 使わないと解決しなさそうな場合は可
C2→ドロップダウンにより、西暦、令和、平成、昭和から選択
D2→20190501や、310401、10501など
日付に相当する値を入力
E2に写真の式(長すぎて書き込みできなかったので画像ですいません)により、(和暦)年○月○日と表示させたいのですが、
「C2が西暦かつD2の値が19261224〜19890107」のとき(昭和元年12月25日〜昭和64年1月7日)となるべきときのみ、昭和○○年の部分のみ表示され、
IF式の後ろの
&"年"&MOD(INT(D2/100),100)&"月"&MOD(D2,100)&"日")))で指定してる○月○日の部分が表示されません。
何がいけないのでしょうか
職場の要請により素人ながら組んでみましたが挫折しそうです。
アドバイスよろしくお願いします。
式が長いと言われたので改行してます、見にくかったらすいません。
https://i.imgur.com/JZvZ3st.jpg >>293
答えを書く前に1つ質問
Excelに令和対応アップデートは入れてある? >>294
入れてないです。
セキュリティの問題とか予算の問題と聞いてますが、アップデートの見込みもないと言われたのでこんなことをしてます。
和暦だけならもっと簡単なのですが、西暦でも入れられるようにとの要望もあったので、すごくややこしくなってます >>293
読んでないけど、これじゃあかんの?
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
TEXT(DATE(2019,5,5),"ggge年m月d日"),"令和1年","令和元年"),"平成1年","平成元年"),"昭和1年","昭和元年"),
"大正1年","大正元年"),"明治1年","明治元年") >>296
ありがとうございます、これはおそらく令和対応のアップデート済みなら可能なのでしょうね
上でも書きましたが、Excelの令和対応はいまのところ全くの予定なしなんです… >>293
ほい
=SUBSTITUTE(SUBSTITUTE(
IF(C14="西暦",
IF(D14<=20190430,
TEXT(DATE(LEFT(D14,4),MID(D14,5,2),RIGHT(D14,2)),"ggge年mm月dd日"),
SUBSTITUTE(TEXT(DATE(LEFT(D14,4)-30,MID(D14,5,2),RIGHT(D14,2)),"ggge年mm月dd日"),"平成","令和")
),
C14&INT(D14/10000)&"年"&MID(D14,LEN(D14)-3,2)&"月"&RIGHT(D14,2)&"日"
),"成1年","成元年"),"和1年","和元年") おっと、ミスった
こっちが正解
=SUBSTITUTE(SUBSTITUTE(
IF(C2="西暦",
IF(D2<=20190430,
TEXT(DATE(LEFT(D2,4),MID(D2,5,2),RIGHT(D2,2)),"ggge年mm月dd日"),
SUBSTITUTE(TEXT(DATE(LEFT(D2,4)-30,MID(D2,5,2),RIGHT(D2,2)),"ggge年mm月dd日"),"平成","令和")
),
C2&INT(D2/10000)&"年"&MID(D2,LEN(D2)-3,2)&"月"&RIGHT(D2,2)&"日"
),"成1年","成元年"),"和1年","和元年") >>297
あー見落としてた
>>298
あー見てないけど多分それでいける。れいわがんねんだけ切り分けだ >>299
ありがとうございます
ただこれだと、「平成31年01月01日」というような表示になるのですが、この0を消すことは可能ですが?
この日付を飛ばしてそのまま印刷することになるので、できれば「平成31年1月1日」を表示させたいです。
わがままで申し訳ありません。
これで解決すればいいのですが、そもそもわたしの作ったやつではなぜダメだったのでしょうか… EXCEL for Androidの質問もこの板でいいのかな?
25日から印刷が全くできなくなったんだが、同じ状況の人いる?
どのファイルでも、「このブックを印刷可能な形式に変換できません」と表示される。
環境は泥7で端末2つ共に印刷できませんでした。 >>301
ggge年mm月dd日→ggge年m月d日 >>301
数式の画像で見て、下から2行目の右端のカッコが1つ足りない
逆に、最後の行のカッコが一つ多い 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ワークブックを保存して、さらにエクセルファイル自体も閉じたいのですが
Sub MacroB5()
'ファイルを保存して閉じる
Application.DisplayAlerts = False
ActiveWorkbook.Close True
Application.DisplayAlerts = True
End Sub
だと、ワークブックは閉じるのですが、エクセル自体は終了できません。
ワークブックを保存して閉じて、さらにエクセル自体を終了させるコードを教えてください。 >>293
>何がいけないのでしょうか ←質問
>職場の要請 ←質問に対する答え 【1 OSの種類 】 Windows7
【2 Excelのバージョン】 Excel2013
【3 VBAが使えるか】コピペしかできません
【4 VBAでの回答の可否】 可
シート"名簿"のA1の値を4繰上げるごとに、"案内状"を印刷し、
シート"名簿"のA列の最終行の値まで繰り返す。というコードを作って頂きました(↓)
これをPDFで印刷しようとすると、1枚毎に保存先とファイル名を入力しなくてはいけません
VBAだけでPDFを名前を付けて保存するコードを教えてください。
保存する時のファイル名は1枚目なら「1」2枚目なら「2」と言うような連番でお願いします。
Sub MacroA()
Sheets("名簿").Select
For i = Range("A1") To Cells(Rows.Count, 1).End(xlUp).Row - 1 Step 4
Range("A1") = i
Sheets("案内状").Select
ActiveSheet.PrintOut
Sheets("名簿").Select
Next
End Sub >>308
cnt = cnt + 1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=ThisWorkbook.Path & "\案内状_" & cnt & ".pdf" ふと疑問に思った事
コメント挿入時にでてくるmismainteって何?誰?
ユーザー名の設定か表示されてるのは分かってる
由来が知りたいけど、調べても日本語で書いてるとこないんだよなー デフォはそのPCのコンピューター名が出る
システム情報見てみ >>287です。
教えて頂いたヒントで何とか出来上がってきました。
ありがとうございます。
後は仕上げなのですが、
エラーをIFERROR関数で非表示にすると、
セルの値が80より大きいで赤に染める条件付き書式が効いてしまいます。
IFERROR関数を使わずエラーが出ているだけでは染まらないです。
色を付けない用にIFERROR関数を使うにはどうすればいいでしょうか? >>302
自分はネット環境ない所で開こうとすると似たようなエラーが出るけどその辺りは如何でしょう? 最近、「VBAはやめよう、これからはアドインだ」という声をチラチラ聞きますがどうなんでしょう? ていうか、Office2019から64bit版がデフォと聞いて
「馬鹿じゃねぇの?てか、馬鹿だろ。やりくちが汚な過ぎる」
と思った方はこのレスに「いいね」してください。
5chに「いいね」ないけど。 >>317
ネタで言ってるんだと思うけど、一応。
「テレビゲームはやめよう、これからはファミコンだ」とでも言えばいい? 機能名変えてる人いる?
「コピー」を「コペー」とかさ。
「ファイル」を「ファイッ」とか。 >>317
まぁ本来はそっちのほうがいいんだけどね〜
概念だけは知っておいても損はしないと思う。googleスプレッドシートがそうだから、迷わない
>>318
アンケートは他所で
>>320
そういうのは幼稚園まで
後で自分がめんどくさくなるだけ シートを左のものからきっちり順に印刷する(印刷指示を出す)vbaありませんか?
スプール云々はプリンターの詳細設定弄れなくなってるのでvbaでどうにかなればしたいのですが・・ for i=1 to sheets.count
sheets(i).printout
next >>323
それやってるんですがプリンターから出力されるときに順番変わってるんですよね >>309
↓にしたのですが、動きません。
Sheets("名簿").Select
For i = Range("A1") To Cells(Rows.Count, 1).End(xlUp).Row - 1 Step 4
Range("A1") = i
Sheets("案内状").Select
cnt = cnt + 1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=ThisWorkbook.Path & "\案内状_" & cnt & ".pdf"
Sheets("名簿").Select
Next
End Sub >>321
やったことあるのかwwww
Excelユーザー100人中98人くらいには意味不明な内容なのに、通じてるしwww >>329
作業列でいいよ
無理して使うもんでもない sumproductとかCSEとかってエクセルの世界が更に拡がるよな sumproductって要は
Σ(i=1→n)xi*yi
なので統計とか少しでもかじってればああアレねってすぐピンとくる すまん、全くわかりません。
配列数式を理解しないとsumproductは理解出来ない? >>336
要は単に配列を全部足してるだけなんだよな
配列数式を完全に置換できる訳じゃないから、普段は分かり易い配列数式で組んじゃうわ
Sumproductの方が早いらしいから使い分けるべきなんだろうけど面倒臭いんだよね >>337
>配列数式を理解しないとsumproductは理解出来ない?
別にそんな事はない
配列数式自体、一生使わなくても良い。ってか俺も使わん。誰も保守できなくなるからな
ただ機能自体は難しくないから知っておいたほうが良いだろう この間奇数列の足し算に使ったけど
それ以外にどう使うと便利なのかはわからないや VBA使える(許される)環境だと配列数式は使わないな 配列数式で済むならわざわざVBAを使ったりはしない 配列数式は使わない
一部だけ編集できないのが最高に面倒 表計算ソフトだということを忘れてプログラミングのループ処理に頼ってしまうのは愚か者 >>344
適材適所
保守性が高ければ何を使っても良い 配列数式とVBAは基本的に別物だろうに
もちろんVBAで配列数式を代替できるけどさ
配列数式って表が大きいと組んだところで重くて使い物にならないことがあるのが欠点だと思うんだが、そういうときは皆どうしてる?
うちは共有+セキュリティで暗号化されてる上に、サーバーがしょぼいこともあるから、ファイルの破損リスクが結構あって頭が痛いわ 別シートに計算用の関数シートを作ってそこで計算させる
そのシートは非表示にしておく
そしてシートもブックもロック… >>347
そうなるから配列数式使わない
できるだけ軽い作業列を大量に作る
>ファイルの破損リスクが結構あって頭が痛いわ
それExcel以前の問題だ 知人の店の売上げの仕分け表みたいなのを少し手伝って作ってあげた
Excelが裏で動いてるシェルみたいなのって有ったりするのかなって探してるんだけど無いみたい
ドット絵みたいなのすごいの作っちゃう人なんかがいるから、レジの分野でもなにかスゴイのあるのかなと思って探したんだけど 【速報】金券五百円分とすかいらーく優侍券をすぐもらえる
https://pbs.twimg.com/media/D8I_oMWUYAAsBXB.jpg
@ スマホでたいむばんくを入手
A 会員登録を済ませる
B マイページへ移動する
C 招待コード→招待コードを入力する [Rirz Tu](スペース抜き)
今なら更に4日18時までの登録で2倍の600円の紹介金を入手
クオカードとすかいらーく優待券を両方ゲットできます。
数分で出来ますのでぜひご利用下さい 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
VBA全くの素人ですが、ネットから例文を寄せ集めて下のを書きました。
しかしこれだとプリンターの設定のダイアログで「キャンセル」を押しても印刷プレビューが表示されてしまいます。これを回避する方法を教えてください。
印刷を中止して入力シートに戻るか、もしくは再度印刷確認のメッセージボックスの画面戻し、もう一度印刷するどうかのを問いたいです
よろしくお願いします。
Sub Macro1()
  Sheets("印刷シート").Select
  ans = MsgBox("印刷しますか",vbInformation + vbOKCancel, "印刷確認")
Select Case ans
    Case vbOK
    Application.Dialogs(xlDialogPrinterSetup).Show
    ActiveSheet.PrintPreview
    Sheets("入力シート").Select
    Range("C1:G2").Select
    Case vbCancel
    Sheets("入力シート").Select
    Range("C1:G2").Select
    Case Else
    Exit Sub
End Select
Exit Sub
End Sub >>354
コピペをした結果、文字化けがやばいですね、申し訳有りません。
Sub Macro1()
Sheets("印刷シート").Select
ans = MsgBox("印刷しますか", vbInformation +vbOKCancel, "印刷確認")
Select Case ans
Case vbOK
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintPreview
Sheets("入力シート").Select
Range("C1:G2").Select
Case vbCancel
Sheets("入力シート").Select
Range("C1:G2").Select
Case Else
Exit Sub
End Select
Exit Sub
End Sub
これで直ってますでしょうか 要するに
Application.Dialogs(xlDialogPrinterSetup).Show
でキャンセルしたかどうかの取得だと思うけど、無理と思う
'先に印刷設定もってきて
Application.Dialogs(xlDialogPrinterSetup).Show
'印刷確認
ans = MsgBox("印刷しますか",vbInformation + vbOKCancel, "印刷確認")
でもいいかもな >>356
そうなんですね、では仕方ないですね
その方法でやってみます!ありがとうございます! if Application.Dialogs(xlDialogPrint).Show
= False Then
MsgBox "中止"
End If 間違えたけどprintersetupの方も同様にキャンセルは判別可能 >>358
できそうなんですね
今日はもう出てしまいましたので、また明日それでやってみます!
ありがとうございました >>339
ありがとうございます。Excel全般初心者なのでこれから頑張っていきたいと思います。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
画像のようにチェックボックスにチェックを入れるとその行が印刷範囲に設定されるようにしたいです
画像だとB5〜F5とB9〜F9が印刷範囲になります
よろしくお願いします
http://imgur.com/FojDKjo.png >>363
印刷範囲の解除です
印刷範囲外の行は非表示にしても大丈夫です すみません
android用のEXCELでOCR機能が追加されていると思うのですが、日本語には対応しているのでしょうか?
ネットで探しても分からなかったので、既に使っている方いらっしゃいますか? >>366
あらま
チェックボックスではなく、セルに「1」とかいれてそれでフィルタして印刷したら終わりじゃないかな〜って考えてたとこだった
vbaでやるのは「フィルタと印刷」のみ チェックボックスってセルの値を0か1に設定するものだからね >>367
まさにそれだけでした
ありがとうございました! 0と、1以外はどうなるのかと思ったら、灰色になるのな。 ユーザーフォームに入力した項目が印刷時にどう見えるか確認できるように、ボタンで印刷プレビューが出るようにしました。
ただユーザーフォームを表示したまま印刷プレビューが出ると固まるので、ユーザーフォームを隠したんですが、プレビューを閉じたら隠したユーザーフォームが再表示されるようにしたいです。
印刷プレビューが閉じられたときにトリガーになるような方法はありませんか? Me.Hide
ActiveSheet.PrintPreview
Me.Show 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
教えて下さい。
A1 B1 C1 に数字があり
D1に× 、E1に空欄で A1+B1
D1に空欄、E1に×で B1+C1
D1とE1に×で A1+B1+C1
D1とE1に空欄で 計算なし
ならIF関数はどのような書式になりますか?
宜しくお願い致します。 if(d1&e1="","",if(d1&e1="××",A1+B1+C1,if(d1="",B1+C1,A1+B1))) >>375
=A1*(D1="×")+B1*OR(D1="×",E1="×")+C1*(E1="×")
でいかが? D1、E1には 空欄、×、×以外のなにか という3パターンありますが、
×かどうかだけで計算しています。 おお、アドバイスありがとうございます。
ためしてみます。 【1 OSの種類 .】 OSX13
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
お世話になります
シート1の表をシート2でも同じ表記をし、かつシート1あるいは2でその表を編集したら
連動してもう片方の表も変更されるようにするには、どうすれば良いでしょうか?
シート1とシート2をShit押しながら選択した状態で表を編集すれば同じ様な事は可能ですが、
この場合は同じ行列の位置のを編集しているだけで、それぞれの表の行列の位置が異なると途端にズレて編集されてしまうので・・・ >380
それはさすがに無理がある
シート3を作り、1も2も3を参照するという方法にすえrば全部解決する シートの名前を呼び出してくるのって
cell(filename、)
だけ?
他に軽い方法ない? >>382
十分軽いと思うけど・・・
vbaなら
Sub foo()
Cells(1, 1) = ActiveSheet.Name
End Sub このコードちょっと危険だった
まぁ使うなら言ってくれ 【1 OSの種類 .】 windows10
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
A1セルに「平成30年12月」と入力されている場合に、
B1セルに2018/12/1と日付を返す方法はありますか。
12/1でも12/31でもいいです。 >>385
B1=DATE(D1+1988,E1,1)
C1=FIND("年",A1)
D1=MID(A1,3,C1-3)
E1=RIGHT(A1,LEN(A1)-C1) >>385
=TEXT(DATEVALUE(A1&"1日"),"yyyy/mm"
とかで働かないかな >>386,>>387
早々にありがとうございます、両方ともやってみます! 文字を入力しようとしたら
写真の
1 2 3
F H
みたいボタンが出てくるようになってしまったのですが
邪魔なんでこの設定は無くす事できますか?
このExcelファイルにだけ出てくるんです
https://i.imgur.com/dW0SI8A.jpg なんでかそれ、2019ではオプション無くなってるんだよね~ >>390
>>392
レスありがとう
明日会社で確認します。 >>394
違反報告しておいたわ
広告無くなるといいな >>385で質問したものです。
A1セル「平成30年12月」に対して
=TEXT(DATEVALUE(A1&"1日"),"yyyy/mm/dd"
で2018/12/01が返ったのですが、
「平成30年」に対して
=TEXT(DATEVALUE(A1&"12月"&"1日"),"yyyy/mm/dd"
だとエラーになりました。
問題点はどこにあるかわかりますでしょうか。 >>396
エラーにならないよ。同じ2018/12/01が返る
Excelは2019
A2=平成30年
B2=TEXT(DATEVALUE(A2&"12月"&"1日"),"yyyy/mm/dd") そ、そうですか…。
職場で再確認してみます、すいません…。 countif関数教えてください。
重複を探すためにcountif関数を使ってます。
=countif($I$2:$I$10,I2)
という式を入れて重複をのデータを探しています。重複があれば2以上の数値が返るような感じです。
しかし明らかに重複していないのに2が返る箇所があります。
因みにI2.I3...のセルの値は3つのセルの結合で成り立ってます。23桁の文字列です。
何か原因はありますか?わかる方教えていただけるとありがたいです。 >>401
>>何か原因はありますか?
? *
ワイルドカード文字を使う
a1b 1
a?b 2 >>401
countifは大文字小文字を判別しないのが原因じゃないか
aaaもAAAも同じ値としてカウントする みなさん、ありがとうございます。
2が返される文字列と言うのは51840063118350711110700と51840063118350711026700の2つです。
それぞれ3つのセルを結合しています。明らかに異なる文字列なのに2が返されます。。。 >>401
これ結構難しいな
指数表記になると同一とみられるらしい
https://i.imgur.com/bY4mK7c.png
・文字列にしてSUMPRODUCT
ならうまくいく
画像E3、E4の数式
・頭にアンダーバーなど入れて完全に文字列にする
これならcountifで取れる
とにかく数値のままだと難しいようだ 重複チェックするくらいだから相当数あるとすれば文字列にしてしまった方が良いかもね
sumproductの場合は大量の行にコピペするとえらいことになる 作業列使ってアンダーバーなり付けるのが楽かもね
元データをいじるのは大変だ と思ったけどダメだ、最初に指数になってしまうとその時点でダメなのか
文字列にした上で、アンダーバーなり付けないとダメか
うーん >>401
Excelの仕様上23桁の数値の表示は無理だね
3つのセルの結合ならconcatenateだと文字列になるから結合の列だけコンカテナテにすればいいんじゃない?
ちなみに有効桁数は15桁
クレカの番号を入力できないようにする為とか聞いたことあるけどわからん調べてない 請求書の入力で重複がないかを探すために金額、コード1、コード2で検索値を作っておりました。
前述の方のアンダーバーを入れてやり直したら上手くいきました。
Excelは奥深いです。みなさんありがとうございました。 >>410だけど追記
画像の2行目のように結合元1.2.3が15桁以内なら大丈夫
画像の3行目のように結合元3が15桁を超えている場合は16桁目以降が0になるのでダメね
http://imgur.com/ZzzQLAs.png >>411
あら解決してたのね
画像のEとFの数式間違えてたけど大丈夫ね 金額、コード1、コード2
それぞれの間にアンダーバー入れると良い
役に立つ時が来る(かもしれない) @最後のシート(右端)をアクティブにする
A
さる 1
いぬ 2
とり 3
さる 4
このようになっている時にさるに該当する数字の合計値を表示する
@とAは独立した事例です
vbaでお願いします >>415
Sub foo()
Sheets(Sheets.Count).Activate
Debug.Print WorksheetFunction.SumIf(Range("a1:a4"), "さる", Range("b1:b4"))
End Sub 文字列としてセルに入力されている数字を一括で数値に変えるにはどうしたらいいですか?
vba使用可能です 数字で数値は
Range("a1") = Range("a1") * 1 >>417
どこかに1入力してコピー
値貼り付け+乗算で貼り付け 数字で数値は>>418.>>419でできそうです
ちなみにsumifで日本語文字列参照するときのセル書式って「文字列」じゃないとだめですか?とするとそれも直さないとなんですが
さる 1
いぬ 2
とり 3
さる 4
この全ての頭にアポストロフィーが付いている状態で、さるの合計を求めたいです 書式設定は何でもいいしアポストロフィーはあっても無くても良い
でもせっかくだからvbaで置換して消しておいたほうが良いとは思う 今までも違和感があったのだが今日知ってしまった
EXCEL2016で第二縦軸の軸ラベルを追加しようとグラフ要素を追加→軸ラベルと進んでいくと、第二「横」軸を追加するボタンと第二「縦」軸を追加するボタンのアイコンがどちらも「横軸」の絵じゃないかw >>421
>>418で数値にしてsumifしても0になるんですよね・・ >>425
マクロ外してxlsx形式にしてくれないか
後、sumifってどこに入ってるの マクロに入ってる。worksheetfunctionで。
で、マクロでやりたいのか、ふつうに関数などでやりたいのか。 Sub tes()
Dim myMaxRow As Long
Dim myAns As Long
Dim i As Long
myMaxRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To myMaxRow
Cells(i, 3) = Cells(i, 2) * 1
Next i
myAns = WorksheetFunction.SumIf(Range("A1:A4"), "さる", Range("C1:C4"))
MsgBox myAns
End Sub
よくわからんけど、こういうこと? アポストロフィー抜いたらいいんじゃないの
Sub foo()
For Each r In Range("b1:b4")
If r.PrefixCharacter <> "" Then
r.Formula = r.Formula
End If
Next
Debug.Print WorksheetFunction.SumIf(Range("a1:a4"), "さる", Range("b1:b4"))
End Sub >>431
ありがとうございます大体そんな感じです
SumIf(Range("A1:A4"), "さる", Range("C1:C4")) のrange指定をA4やC4ではなく最終行で指定するにはどう書けばいいですか?
>>432
ありがとうございます、アポストロフィは綺麗に消えましたがsumifがどうなっているのかよくわかりません
(Debug.Printをよく理解していないからですが)
B5に合計の数値表示するとかできませんか? 432さんのようにアポストロフィ削除したほうがいいような気がするけど、
どちらにしても、こうかな。
myAns = WorksheetFunction.SumIf(Range(Cells(1, 1), Cells(myMaxRow, 1)), "さる", Range(Cells(1, 3), Cells(myMaxRow, 3))) 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
1KF0123445600これを1KF-0-1234-456-00このようにハイフンで区切り
たいんだけど【セルの書式設定】の【ユーザー定義】【種類】で何とか変更したい。
全て数字なら可能なんだけどアルファベットが入っているのでどうしていいのか
わからない。
LEFTとMID関数を使えばできるのは確認してるんだけど何とか関数を使わずに
出来ないだろうか? >>433
Debug.Print WorksheetFunction.SumIf(Range("a1:a4"), "さる", Range("b1:b4"))
↓
cells(5,2).value = WorksheetFunction.SumIf(Range("a1:a4"), "さる", Range("b1:b4")) 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
同じシートにある、セルの数値を行番号にして、別なシートのセルを参照したいのですが
どう記述したらいいでしょうか?
しょっぱい質問ですいません >>438
Sheet2シート A10 セルを参照
A1 10
A2 =INDIRECT("Sheet2!A"&A1) >>438
=OFFSET(A1,A10-1,0) 質問です。よろしくお願いいたします。
上級者の作ったファイルを見ると、たいていVBAコードが複数のモジュールに分けて書かれています。
これは、改修時に見やすいとか、機能ごとにわけておくと別の機会に流用しやすいとか、
そういう理由によるものなのでしょうか?
ひとつのモジュールに全部書くのがダメな理由って他にありますか?
行数制限とか。。
どうでしょうか? >>441
見やすいから
といっても10行で全部終わるような物を5行ずつに分けても仕方ない、この辺りは慣れ
個人的にvbaの場合、コメントさえキッチリ書いておけば1000行ぐらいでも全然平気 >>441
マウスホイールが壊れてると、スクロールが面倒。 >>441
VBAを使う目的の一つが単純作業を機械的に自動的にやらせるため
単純作業とは同じことを何度も繰り返すことだから、処理が共通な部分はモジュールにまとめた方が、プログラムを作る手間が省ける >>445
>単純作業とは同じことを何度も繰り返すこと
はい???
単純作業と反復作業は別ですよ なんでそういう言葉尻捉えてどうでもいいマウント取りたがるのここの人は まあ些細な用語のスレ違いで痛い目にあってる人多いからそういう指摘をしたくなる気持ちはわかるわ >>439
ありがとうございます。
惜しかったなー
=INDIRECT("A"&A1)まではたどり着いてたんですが、=INDIRECT(Sheet2!"A"&A1)とかやってた
ほんとしょっぱいな俺 プロシージャを分けるのは単体で動きのテストがしやすいからかな
モジュールを分けるのは、機能の整理ができるし、「モジュール名.プロシージャ名」で呼び出せるようになるから
パッケージ代わりというか、クラス代わりというか、そんな感じで書きやすくなるのが便利
例えば「Battle」モジュールに「Attack」「UseItem」の2つのプロシージャを作ってあるとしたら、
「Battle.」まで打つとその2つだけが入力候補に表示される >>457
一応は書いてあるからよく読めばわかるとは言え、それもSubプロシージャそのものの説明とは違うよね >>458
そりゃSub Procedureの説明なんてしてないから当たり前だろ… Excel関数で中級者レベルの関数って何でしょうか?
どれだけ入れ子できるかとあると思いますが、sumproduct、offset、indirectとかでしょうか?他にありますか?? >>462
基本的だけどIFを他の関数と組み合わせて使う事かな
あと関数じゃないが作業列を上手く使えるか iOS版のexcel だと使えない関数とかあるの?
シートをコピーして開くと表示されないのですが >>466
そもそもExcelはバージョンアップするごとに関数が追加されてってる
例えばExcel2019で追加された関数は、同じWindows版でもExcel2016だと使えない ご意見ありがとうございました。
その中であった、作業列は実務では必須であると思います。
Excel初心者を抜け出せずにいますが頑張ります! 一括でこんな風に分解させるような方法はありますか
りんご,2
みかん,3
↓
りんご,1
りんご,1
りんご,1
みかん,1
みかん,1 >>470
vbaなら楽勝やね
Sub foo()
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
現在行 = 1
For i = 1 To 最終行
For k = 1 To Cells(i, 2)
Cells(現在行, 3).Value = Cells(i, 1).Value
現在行 = 現在行 + 1
Next
Next
End Sub あぁ1がいるのか
こんな感じかね
Sub foo()
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
現在行 = 1
For i = 1 To 最終行
For k = 1 To Cells(i, 2)
Cells(現在行, 3).Value = Cells(i, 1).Value
Cells(現在行, 4).Value = 1
現在行 = 現在行 + 1
Next
Next
End Sub >>441
いろんなブックに使い回ししたいものをモジュールを分けて、サーバー上に
配置、ブックを開いた時のトリガーでブックにインポートするようにしてるわ。
マスターを直せば色んな場所に散らばってるブックまでを修正しなくていいしね。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
様々な商品の仕入れ状況を1枚のシートに入れてます
A列に商品名、1行目に日時を入れて、残りの各対応セルに購入価格を入れ、各々のセルの色で仕入れ先が分かるようにしています。
しかしこのやり方だととても見にくい色のセルが出てきてしまいます
かといって色付けやめて仕入先を別の専用列にすると、シートをまとめてグラフで表示ができなくなってしまいます。
物、日時、価格、仕入先の4情報を分かりやすく表示する方法はないでしょうか? >>476
データをまとめて保管しておくシートと見やすく表示する用のシートを別にする >>476
色で仕入先を分類するのは止めたほうがいい
2,3色で済むなら良いけど、そのうち七色になって間違う
>色付けやめて仕入先を別の専用列にすると、シートをまとめてグラフで表示ができなくなってしまいます。
できる
どうしても無理ならアイコンセットとか使った方がマシかも
http://blog.jmiri.net/?p=52 >>478
レスありがとうこざいます
専用列無くてもグラフにできるとのことですがどうやったらできますか?
ぐぐってもラベルを奇数列だけとかはありましたがデータを一つとびにするのは見当たらないでした
vbaで価格列だけ抽出した作業シートを作ってグラフ表示となると元データシートとグラフを行き来することになり視認性が悪いです >>479
元々がかなり変な事をしている
>A列に商品名、1行目に日時を入れて、残りの各対応セルに購入価格を入れ、各々のセルの色で仕入れ先が分かるようにしています。
日時、仕入先、物、価格、で元になる4列のテーブルを作る
そこから今作っているような表はピボットテーブルで作成し、グラフもピボットグラフで作る
そうすれば全てが一瞬で終わる 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010・2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
30年ぐらいの長期計画表を作ろうとしています。
左から
項目 周期 2019 2020 2021〜〜
周期の所に年を入れて、計画で予定する年度に*をつけて予実の確認。
毎年6月に実施可否を検討するとして、
計画なので延期、周期変更等が有りますので、
「今年度以降、もしくはそれより左(過去)の列から直近の*を検索し
そこから○年周期で右側に*をつけるように更新できるようにしたいです。
どのようなやり方が有りますでしょうか? 30年後も会社存続してるのかよwwwww
というのは置いといて・・。
Match関数で※探して、計算式が入ってるセルから何列離れているか調べればいいのでは? 予め↓こんなセルを用意しておいて、コピペでもいいのか。
_________
|※| | | | |※|
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ >>484
そうは言ってもExcel 4.0から使ってるからもう25年使ってる
あと30年ぐらいは使われると思う 2chが5chになったりするくらいだから、
Woxcelとか、三Exe郎とか、ふざけた事になってる可能性はある。 VBAだと
ActiveSheet.UsedRange.Select
でデータが入っている領域を選択できるじゃない。
それをキーボード操作でやりたいのだが、そんなショートカットキーはあるのかしら? >>491
F5押しても選択出来なかったわよ。
もう少し詳しく教えなさいよ! ctrl+shift+end?
UsedRangeの範囲って微妙にわからん Ctrl+Shift+EndでUsedRangeの右下には飛べるけど、左上に飛ぶショートカットは存在しないから無理 Excel VBAを習得すれば派遣の経理とかで無双できるってマジっすか? >>495
2パターン
・中小企業なら大喜び
・大企業や倉庫・物流系などは専門システムがあるのでvbaが全く意味ないことも
まぁ覚えて置いて損はないよ 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
サイト内のディレクトリリスト?の整理をしています。
A列に同じ文字列が入っている複数行に関して、B列の前から特定個数の文言 もしくは特定の記号までの文言が重複しているデータだけを消したいです。
活用できる関数などがあったら教えてください。
よろしくお願いします。 >>497
よーわからんけど、
find()やフィルタ機能が役に立つと思う マジっすか!自分はふつうに経理やってるんすけど、VBAってExcelの機能があるって知って今めっちゃ興味あるっす。やっぱ経理で自己研鑽するならExcelとかっすよね。 >>499
まぁな〜
一日の業務の内、5分自動化できれば200日/年として、14時間/年浮く計算になる
この空いた時間で更に効率化を進めれば効率化スパイラルになるよ~ >>495
こちら↓でどうぞ
【質問不可】Excel総合相談所スレの雑談・議論スレ4 [無断転載禁止]©2ch.net
https://mevius.5ch.net/test/read.cgi/bsoft/1489108851/ 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
リストから部分一致の項目を抜き出して表示させるってできませんか?
プルダウンから選ぶ方法ばっかで手打ちで絞り込みできないです >>503
すみませんその作業列教えてください
スマホ版でも使いたいのでできたらVBA無しでやりたいです >>496
> ・中小企業なら大喜び
これマジ?
来年定年だから給料そこそこでいいからVBAで食っていけるなら嬉しいが… >>497
同じ文字列 ⇒ フィルター
特定個数の文字列 ⇒ Left()
特定の記号までの文言 ⇒ Find() + Left() >>504
こんな感じ
https://dotup.org/uploda/dotup.org1877887.xlsx.html
>>505
中小企業が喜ぶのは間違いない
VBAはいいけど、年齢がネックだな〜〜〜
60の事務取る企業って見たことない
個人的な意見では、vbaよりも節税・脱税の知識ある人の方が会社にとって利益になるんじゃないの?と思う
60でvba使えますと言われても、そのなんだ
企業としては、若くてVBA使える人取ります
派遣とか登録してみた方が早いかもね
給料安くてもいいから事務やりたい、こういう事ができるって言えば、奇跡的に何か紹介してもらえるかもしれない A列に名前(重複あり)、B列に点数があります
C1セルでA列にある名前を選んだ場合にD1セルにC1で選んだ名前の一番下あるいは一番上の点数を持ってくる方法ありませんか?
重複無いとvlookupで簡単に持ってこれますが、重複あるとやり方が分からないです 重複あると最後の引数を0にすると一番上の物を持ってこれる
vlookup(〜〜〜,0) >>507
サンプルありがとうこざいます
超参考になりました 既存のグラフに任意の方程式の直線を書き足して、
その直線と元々グラフにプロットしてあった点との関係のR二乗値を出したいんだけど
いい方法ないですか? >>508
> C1セルでA列にある名前を選んだ場合にD1セルにC1で選んだ名前の一番下あるいは一番上の点数を持ってくる方法ありませんか?
一番上って、最も上の行?
それとも最も高い点数?
行なら>>508
点数ならMaxIfsかな >>495
世の中の95%くらいの人は、
プログラムが書ける人と、パソコンに詳しい人の区別は付かないから、
そこだけ要注意ね。 家やプライベートでもExcelを使ってる人っていますか?
使い道としては家計簿や健康管理のための体重/血圧の記録くらい? あちこちのサイトのIDとパスワードの管理 会員登録ごとに住所の番地の末尾を変えてるので、どこから流出したのかわかるようにしてる >>514
・履歴書、職務経歴書
・ゲームの攻略メモ
を使っている
ただ、今は両方ともgoogleスプレッドシートになっている
あと、煽るわけじゃないが
昔は>>515と同じことをしてた
特にどこからも個人情報がもれず、なんかめんどくさくなっただけなのでやらなくなった 油断できないよ パスワードの使い回ししてたらNetflixでIDのっとられた。試用期間中だからよかったものの。 >>514
趣味用の時刻表をexcelで作ったり、家電を買い換える時に価格comの全データをexcelに読み込んで独自のフィルターかけて機種を選んだりしてる >>519
スペック検索ページを自作のVBAでスクレイピング
1枚のワークシートに全機種の一覧を作ると絞り込みがやりやすいので
https://i.imgur.com/oPEtwiG.jpg 似たようなことは「データ取得と変換」データ − webから でもできる 1度に30件しか読めないのが面倒だけど ttps://dotup.org/uploda/dotup.org1879085.png 基礎的な質問で申し訳無いのですが、割り算ではなく、240を60,60,60,60のように分ける関数はありますか?
250ならば、最後に10が来るような… >>525
公約数の事?
にしてもルールがわからん >>525
=REPT("60,",INT(A1/60))&MOD(A1,60)
つまらぬものを作ってしまった
礼はいらぬぞ Repeatの略なのか
そういやそんな関数あったな
見たときこれ使い道ないだろって思って速攻で忘れたわ 思わず
excel rept 関羽
でググってしまった。 >>525
240と40とか250と40か与えられるの?
ならまあちょっとVBAのコード書けばいいだけかと
そのものズバリを求めているならそんなに特殊な関数はまずない >>528だと値が240のとき末尾の ,0 が余計では
reptは2003までセル内に棒グラフ描くのに使われてた
今は書式で入れられるからほとんど使われなくなったけど Excelで体重増減の記録をつけています
日付をA列、体重をB列、体脂肪率をC列……といった感じの表とグラフです
日付は先に1ヶ月分くらいオートフィルで入力済みです
ダイエット開始日からの増減トータルはcountaで求められたのですが
ダイエット開始日(A2セル)から今日までの日数をカウントする方法がわかりません
5/23 100
5/24 98.1
〜
6/24 93
6/25 92.5
6/26
6/27
今日は5/23から6/25までの日数を
明日は5/23から6/26までの日数を
別セルに表示させたいのですが
そのような関数があったら教えてください
datedif? 空白セルを無視する?
※実際は100キロもありません! >>537
10行目の場合、
=A10-A1
だけでok。書式設定は数値にすること
また、Excel関係ないんだけどスマホ連動型の体重計にすると便利だよ
「アプリ立ち上げて体重計に乗る」
これだけでこういう記録・グラフ作成などを全自動でやってくれる
https://i.imgur.com/itY3ePH.png >>538 レスと体重計情報ありがとう
そうではなくて
6/26の体重欄に数字を入力したら
開始から何日経過したかも連動して更新する関数はないかということです
体重等の方はcounta関数でそれができているので
グラフの上に
「開始から:○日
体重増減:○キロ
体脂肪増減〜」
という自動更新される表示を入れたいんです >>539
多分、全体的に変なことをしている
超シンプルに
=max(a:a)-a2
だけで良い
あと、質問する時は極力関係無いことは書かない方が良い
countaとか逆に混乱する。何にどう使ってどういう結果を出してるのか分からん >>540
質問慣れしてないため余計なことまで書いてしまってすみません
上記の関数だと
オートフィルで入力された最後の日付までのカウントになってしまいます >>541
ごめん、オートフィルしてるの忘れてた
=SUMPRODUCT(MAX((A:A)*(B:B<>""))) うーん……
そのままコピペして貼り付けましたが
#VALUE! のエラーになります……
日付の形式に問題があるのかもしれません
もうちょっと直してみます
お手数おかけしました
ありがとうございました >>543
ふつうにB列をカウントすれば良いのでは?
=count(B:B)
空白の日があるとかなら、作業列を使って、
if、row、max関数あたりを組み合わせる。 >>543
毎日入力する前提だけど
どこかのセル(別シートでもいい)にtoday関数入れて入力当日の日付を出す
=DATEDIF(開始日のセル,今日の日付が表示されてるtoday関数のセル,"d") で無理?
もしくは=DAYS(today関数のセル,開始日のセル)
ここのやり取り見てスプレッドシート引っ張り出してやってるから
excelにはない関数ならごめん >>537
=counta(b:b)+a2-1
sumproductは見出しがあるとエラーになる 初歩的な関数しか使えない素人の質問です。
シートにあるセルの範囲と、別の位置にあるセルの範囲と、
内容がすべて一致するかどうかチェックするには
どうしたら良いでしょうか? 縦の範囲ならvlookupでひっかければいいよ
vlookup(検索したい範囲の1つ目,一致するか調べたい範囲の列まるごと,1,0) でオートフィル
で、#N/A ? エラー吐いたらそこのセルの値は一致してない シート3!c1=シート1!a1=シート!b2
みたいにするとか レスありがとうございます。
範囲は縦と横の両方なんです。
何でこんなのIFでできないんでしょうね… >>550
横一列の範囲を縦に変換するのなかったっけ?
範囲コピーして貼り付けるときにどこか選んだら縦に貼り直せると思うよ
詳しくはググってくれ 549さんの方法を縦と横にオートフィルする。それでtrueかfalseか一つずつみるか、countifか何かで全部一括で結果をみるかかな。 IF(A1:G5=A10:G5)
こんな範囲のイメージなんですけどね
難しいです 後ろはG5じゃなくて、G15とかですね。
素人ですみません… ありがとうございました。
ダウンロードさせていただにました。
時間のある時によく見てみます。
Excelの首尾範囲ではないんですか…
だから検索しても全然出てこないんですね。 =SUMPRODUCT((A1:B5<>A10:B14)*1)=0 VLOOKUPやMATCHを使う時、
検索キーA1、範囲B1:B65536
検索キーA:A、範囲B:B
どちらでも良いのは知ってるんだけど、理屈がわからん。
自作関数なら、A:A列を指定したら、行は、自動的に計算式が入っている行と同じになる、
みたいに作ることも出来るけど、元々の関数もそうなってるの? >>505
関数すら使えない上場企業子会社みたいな会社もあるけど
年齢性別で難しそう
現場派遣から入って能力人柄認めらたら可能性はないわけではないが
改善活動強制する割に生産性向上には無頓着 【1 OSの種類 .】 Windows 7
【2 Excelのバージョン 】 Excel 2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ハイパーリンク設定してるところにアクティブセル合わせて
そこからキーボードだけでリンク先に飛ぶことってできますか?
リンク先は別のシートです。 >>560
Shift+F10 o o Enter A1からA100までランダムに◯とか●がセルの中に1つずつ入っているとします。もちろんどちらも入っていないセルもあります。
◯と●が入っているセルの数を数えるには
=countif(A1:A100,"◯")+ countif(A1:A100,"●")
この数式しかないでしょうか?お分かりになる方、教えていだければと思います。 =SUMPRODUCT((A1:A100="◯")+(A1:A100="●")) =IF(A1="○",1,0)+IF(A1="●",1,0)+IF(A2="○",1,0)+IF(A2="●",1,0)+ …… +IF(A100="○",1,0)+IF(A100="●",1,0)
同じ結果が出せる数式は無数に考えられる 【1 OSの種類 .】 Windows 10
【2 Excelのバージョン 】 Excel 2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 不可
条件付き書式の質問です。
別シートの日付をハイパーリンクでリンクさせた時、
日付が入力されたセルは色付き、空白のセルはそのままと設定したく色々調べて
条件付き書式から条件に =○○<>"" と入力し、日付の入力したセルの色は変わるようになったのですが、
ハイパーリンクを設定した別シートで未入力のセルの色まで変わってしまいます。どうすればいいのでしょうか?、 ありがとうございます。sumproductでやってみたいと思います! 【1 OSの種類 .】 Windows 10
【2 Excelのバージョン 】 2016
【3 VBAが使えるか .】 否
【4 VBAでの回答の可否】 否
A列に名前があります。合間合間に空白もあります。
名前が入っているところだけB列で上から1 2 3...と番号を付けたいのですが
手入力ではなく、あらかじめ関数でセットしておくにはどうすれば良いでしょうか?
【イメージ】
山田 1
鈴木 2
佐藤 3
近藤 4
藤原 5
宮本 6 >573
B1=IF(A1="","",COUNTA($A$1:A1))
下にオートフィル >>573
B1=IF(A1="","",MAX(A$1:A1)+1)
下にオートフィル >>573
=IF(A:A="","",COUNTA(INDIRECT("A1:A"&ROW()))) ↑よく見たら、574と同じだった。
違いは、計算式を統一出来ることだけ。 ていうか、近藤と宮本の列幅を空けるのはダメなのか? >>576
B2=IF(A2="","",MAX(A$1:A1)+1)
だったわチクショウ B2=IF(A2="","",MAX(B$1:B1)+1)
だったわチクショウ >>574
こうなりました。何がいけないんでしょうか。
山田 1
鈴木 2
佐藤 3
近藤 5
藤原 6
宮本 8 この記事すごい。。。
うちの会社の月1の営業会議に使う計数資料が簡単に設定できそう。
30分から1時間くらいかけて数字転記してる作業がなくなったりして。。
http://ecoslyme.com/excel-pivot-matrix2/ >>584
このページ危険、閲覧しないほうがいいよ >>583
数式の結果が""になってるとかそんな感じか
これで
B1=if(A1="","",counta($A$1:A1)-countblank($A$1:A1)) 見出し行を1行目に設定して>>582で思った通りにできました。
ありがとうございました。 >>587
横にずらさないなら$A→Aで良くないか? >>592
> 横にずらさないなら
というような条件つけたくないんでしょ >>595
それはそう
一貫性が無いという指摘なら正しいと思う >>587だけど、特に何も考えずに始点だけ絶対参照にしたわ
F4一回押しただけ
本来なら>>592が正しい なんで日本のExcelはA1形式なの?
と質問しようと思ったら一太郎の真似したんだな、とすぐに回答がでました
お騒がせしました 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Office365
こんにちは
範囲B1:C4について
セルA1をダブルクリックすると昇順
セルA2をダブルクリックすると降順
に並べ替える(B列基準で)プログラムですが
下のようにすると,A1, A2それぞれ1回ずつは動作しますが2回目からは並べ替えしなくなります
MsgBoxは動くのでSortだけが1回しか動作しないという状況です
ブックを閉じて開けばまた1回ずつ動くようになります
どうすれば何回でも並べ替えられるようにできますか?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
MsgBox ("HI")
Range("B1:C4").Sort Range("B1")
End If
If Target.Address = "$A$2" Then
Range("B1:C4").Sort Range("B1"), xlDescending
End If
Cancel = True
End Sub >>600
解決策
MsgBox ("HI")
Range("B1:C4").Sort Range("B1")
↓
MsgBox ("HI")
Range("B1:C4").Sort Range("B1"), xlAscending
MSDNに書いてないけど、
恐らくsortをした範囲は並び順のデフォルト値が変わるような挙動があるっぽい
https://docs.microsoft.com/ja-jp/office/vba/api/excel.range.sort
つまり
Range("B1:C4").Sort Range("B1"), xlDescending
をした後のsortは常に降順で、
Range("B1:C4").Sort Range("B1"), xlAscending
の後は昇順になる
常に昇順・降順を指定するようなコードにすると良いと思う >>591いや、ウィルスとかは全くない。良質なサイトと思われ。おそらく東大卒というワードに嫉妬しただけかと。 【2 Excelのバージョン 】 2013
マウス操作でCtrl押しながら離れた場所の
セルをポチポチ押しながら選択していて
間違ったセルを選択してしまった場合
そのセルだけ選択を取りやめたいのですが
どう操作すればよいのでしょうか? >>605
2013では>>606できないよ
確か無かった気がする だから2016からだって言ってんだろ目ついてんのかボケナスがあぁぁ!!! >>608,>>610
ありがとう。
こんなこと2016年まで対応されてなかったのですね...
>>611
1秒で確認して誰がレスできるんですか?
おめーがよく見ろボケ >>612
安価も出来ないようなやつに人権ないから気にするな >>603
上げてゴミみてーなもん張んなクソボケ!
どんな頭してんだお前、しかも「思われ」とか
クッソ久しぶりに見たわ。やっぱり死ねお前は 何でそんなに怒ってるのかと思い、見てみたが、
VBAがわかる人から見たら、確かにまあ、あれだわな。 ああわかった。
2019年6月にブログを立ち上げている→宣伝じゃねーかって意味か。 まぁスレチなんで雑談スレにでもいってやってくれ
【質問不可】Excel総合相談所スレの雑談・議論スレ4 [無断転載禁止]©2ch.net
https://mevius.5ch.net/test/read.cgi/bsoft/1489108851/ abcと列があって
c列の値がxの場合の、一行下のb列のセルから
c列の値がxの場合の、同じ行のa列の値に特定の数値を足した値があるa列の行と同じb列のセルまで
条件付き書式でtrueにしたいのですが、教えてもらえませんか?
比較がセル位置と値が混在しておりわかりません。 俺は今日、プログラムより日本語の方が難しいということを学んだ。 >>620
A列は重複しない昇順、特定の数値は正の数nだとして
B9=COUNTIFS(A$1:A8,">="&A8-n,C$1:C8,"x")>0 >>620
間違えた
B9=COUNTIFS(A$1:A8,">="&A9-n,C$1:C8,"x")>0 >>622
>>623
すいません。前提が漏れてましたが、A列は重複もございます。 >>621
えっ、今頃?
同じこと言うなら自然言語よりプログラム言語の方が断然楽だろ 失礼ながら、620の質問の日本語が理解不能という意味かと。 >>626
わかる人はわかってるから
理解能力も不足ぎみ 【1 OSの種類 .】 Windows7-64bit
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 初級者
【4 VBAでの回答の可否】 可
「氏名」「生年月日」「購入日」「購入品」「個数」「送り先」「支払済」
という列からなる表が1万行くらいあります。
誰かが適当に並べ替えたりして、順はむちゃくちゃです。
この表に、二重入力があった可能性が出て来ました。これを簡単に発見するにはどうすればいいでしょうか?
氏名と生年月日と購入日と購入品と個数のすべてで重複する行を見つけたいです。
同姓同名の人もいるので生年月日との組み合わせでチェックしたいし、同じものを別の日に何回も
購入される場合もあるので、購入日と品と個数の組み合わせも必要です。
つまり、ひと項目でも違っていたら重複ではないと判断したいです。
どういう方法がいいか、ご教授ください。 エクセルに重複の削除という機能があるけど、これ、あまり信用できない。
文字列結合演算子(&)で結合して、countif関数とかで調べるか。
1万行ならvbaが速いかな。 マイクロソフトも重複削除のロジック公開しろよな
検証できない >>628
7つの項目を&でつないだ1つの文字列にする。
購入日や数量はTEXT関数で書式指定して文字列化。
この列をCOUNTIF関数で重複チェックする。
というのは?
名前の姓名の間が、空白なし/半角ブランク/全角ブランク、の違いを別と判断すると思うけど、絞り込みとして。 オフィス更新したらMSPゴシックの英数の文字間隔が読めないほどメチャ狭くなったんだがオレだけかこれ? >>632
同じ現象かわからんが、狭くなった報告は何回か見たな。 >二重入力があった可能性が出て来ました。これを簡単に発見するにはどうすればいいでしょうか?
入力したやつに尋問。
性格的に、確認しないで入力しそうなやつとか、
普段から全角と半角を混在させるやつとか、
やらかしそうなやつは大体決まってるから。 セルを連結してカウントイフでいけます。
トリミングが必要な列はしてからです。 教えてください。
いま、普通に市販されているMicrosoftOfficeは、期限ごとに使用料を払って使うタイプのものなのでしょうか?
私は、できれば最新のオフィスが欲しいと思っていますが、できれば最初にお金を払って買ったら
それっきりずーっと使えるタイプのものが希望です。失職して払えなくなると困るので。
少し前まで自宅PCでOffice2010を使用していましたが、壊れてしまいました。友人からPCをもらってソフトだけ
購入する予定です。どれを買えばいいのかわかりません。
2010とか2013の時代はとてもわかりやすかったのに、365とかよくわからなくなりました。
買い切りバージョンで、しかも最新のもの、解説書なんかでもちゃんと扱ってもらえてるもの、
そういうのありますか?
今はどんなものでも使用料を払っていく形が主流ですか? >>638
この永続版のEXCELだけってないの? 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Microsoft Office 365 最新バージョン
【3 VBAが使えるか .】いいえ
【4 VBAでの回答の可否】 否
こちらのエクセルのC列の正しい数式を教えてくださいm(__)m
https://i.imgur.com/HZpo19B.jpg
処理条件…C列の評定は、B列の点数が85以上が「5」、70〜84が「4」、55〜69が「3」、
40〜54が「2」、39以下が「1」、空欄は何も表示しない。平均はAVERAGEAVERAGE関数を使う。
C列の数式は、C4に、=IF(B4>=85,"5",IF(B4>=70,"4",IF(B4>=55,"3",IF(B4>=40,"2",IF(B4>=1,"1",IF(B4="","",))))))
と入力し、オートフィルでC23まで求められたのですが、C4からC23の平均をAVERAGE関数で求めようとすると、C24に「#DIV/0!」と表示されてしまいます。 >>642
=IFS(B4>=85,5,B4>=70,4,B4>=55,3,B4>=40,2,B4>=1,1,TRUE,"") >>642
平均を求める時、空欄(未受験?)の人数を入れて全員の人数で割るか?点数のある人の人数だけで割るか、どっちですか? あちこちのセルにエラーマークが出てるのが気になるなあ >>643
出来ました!ありがとうございますm(__)m
>>644
どちらでも構わないです(*^_^*)
>>645
エラーには全て、「このセルにある数式は、現在空白のセルを参照しています」と表示されています。 >>646
いやいや、どっちでもよくないって
割る人数によって平均点が変わっちゃうでしょ 全員含めた平均点を求めた場合 =AVERAGE(C4:C23)
点数が出ている者のセルだけで求めた場合 =AVERAGE(C4:C8,C10:C14,C16:C19,C21:C23)
両方試しましたが、結果は同じ(2.82)だったので、今回はどちらでも良いのかなと。。
そうではない場合もあるのですね。ご指摘ありがとうございますm(__)m レスアンカーを付けるのを忘れていました。
>>648のレスは、>>647様へのレスです。 >>644
AVERAGE関数使うって言ってるんだから空白は件数からも対象外だろ
>>648
それ両方共に空白は含まない
空白を0として平均計算したいならAVERAGEA関数使え
てか検算ぐらいしろよ… 俺には質問主が平均の概念と、AVERAGE関数の仕様を理解してない可能性があるように見える 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Microsoft Office 2016 最新バージョン
【3 VBAが使えるか .】いいえ
【4 VBAでの回答の可否】 否
A列にはクラス名、B列に氏名、C列に点数がある表で、
C列は100点の場合「満点」と文字列が入ってしまってます。
満点とそれ以外に分けた上で、それぞれをクラス順に
並べ替える場合、C列の並べ替え後に満点の集まり部分と
それ以外部分でA列の並べ替え、3回に分けて並べ替えをしてる
のですが、一度にできる方法はありますでしょうか。 >>653
質問の意味が微妙によくわからないんだけど、この通りに並べ替えして目的と違ってたら1発でやるのはたぶん無理
https://i.imgur.com/G2VGp39.png >>653
D列に作業列を入れて昇順に並び替え
D2=IF(C2="満点","_"&C2&"_"&A2,A2&"_"&C2)
https://i.imgur.com/5w7xaxc.png 作業列を使うとかになるのですね。
大変助かりました、皆さんありがとうございます! いやいやいやwwww
普通に100に直せってwww
0〜99点まてが数字で、100点だけ漢字とか、
完全に神エクセルだろそれwwww >>653です。
実際に扱ってる物はテストの点数ではなく、
100ではなく0の場合に理由が入力されている
ものを扱ってるのです。
例えで質問したことをお詫びします。 >>653
恐らく上司に命令されてると思うんだけど、
上司に一度「満点をどうしたいか」
を聞いてみるのもいいんじゃないかな
単純に除外したいだけなら、並び替えた後にフィルタ掛ければいいだけだ
>>659
満点は補修なしとか色々あるんだろう
これは神エクセルじゃないよ >>661
> 満点は補修なしとか色々あるんだろう
理由になってない
> これは神エクセルじゃないよ
マシな方だが神エクセルだろ >>662
ただの予想なのに何ムキになって否定してんのw 言いたいことは分からないでもないけど、これは神エクセルじゃないっしょ。
関係ないけど、元年なんかもおかしな表記だよな。 神エクセルの定義次第やね
個人的には特定の数値の時に文字列入れられるのはすごく嫌 神エクセルを方眼紙エクセルの事だと思ってるのかも知れんが、
そもそもそれは、データとして扱いにくいという所から始まってるので、
単なる0と0の混在程度でも神エクセルでいいだろう。 その単語使いたいのは分かるけど、
あまり一般的で無い単語を使うのは質問者が混乱するので止めたほうが良いかと MOSのエキスパートを独学で取りたいと思っています。
スクールに通わなくても取れるものでしょうか? >>669
取れる
ただ、参考書は絶対に必要
メルカリとかで2000円ぐらいで売ってるからそれ買って、模試を5,6回やればまず受かる
受かったらまたメルカリに流せば良い 0の全角半角が混在しただけで神扱いwww
低スキルすぎんだろwwww >>672
データに0を混ぜる方が低スキルだろw
0の方が見易いと言うなら書式で設定すればいいだけだし >>671
ありがとうございます。とりあえず緑色のFOMとかいうテキストが良さそうなのでやってみたいと思います。 >>672
スキルの問題じゃない。
vbNarrowやASCで半角変換出来ても、そもそもその計算が無駄だろ。 >>673
その低スキルを神Excelでいいだろうとかどや顔する低脳www
くっそwwwwww スキルが高い人は0を全角で書くのか・・・。
大変勉強になりました!! 667 名無しさん@そうだ選挙にいこう sage 2019/07/07(日) 11:01:41.87
神エクセルを方眼紙エクセルの事だと思ってるのかも知れんが、
そもそもそれは、データとして扱いにくいという所から始まってるので、
単なる0と0の混在程度でも神エクセルでいいだろう。 テンキーで数字を打つと自動的に半角になるけど
ノートだと全角のままなのがめんどうくさいよね >>678
お前何言ってんの
悔しくて幻覚でも見たか >>680
ノートというかキー上段部分で打つとそうなる 何で全角英数を肯定したいのかわからんが…。
全角で統一されていないとダメな宗教でもあるのか。 >>677
> その低スキルを神Excelでいいだろうとかどや顔する低脳www
頭大丈夫か?w >>683
どこから全角英数統一なんて出てきたんだよ… >>669
独学でも最低限使える人なら、難しくはないと思う。全然使えない人には難しいかも。
注意点としては、問題集と受けるver.は合わせること。
問題集が2013で、受けるのは2016とかは、やめた方がいい。問題の出し方が違うので。 IsNumericでもTrueを返すから、はっきり言って邪魔なんだが。>全角英数 >>687
ありがとうございます。
2016を取ろうと思います。エキスパートは普段使わないような関数も出るみたいなんでしっかり対策をしたいと思います! エクセル等の表計算ソフトで簡単なリストを作りたいと思ってます。パソコンで作成した後 Androidスマホで追加入力や訂正できるようなものを希望しています。お勧めのソフトがあれば 宜しくお願いします。 Excel2000位のバージョンでvbaのバグ利用して読み取りパスワード解除する方法ってあったよね? >>692
有難うございます。
マイクロソフトのエクセルオンラインと比べて どちらが良いと思いますか? > MSアカウントは2年使わないと消滅する恐ろしい仕様
そんなに長期間使わないことをこのスレで考える事がナンセンス
バカじゃねぇの? >>695
なんでそんなにいきり立ってるの?
無理して5chやらなくても、他に楽しいことはもっといっぱいあるよ? オンラインならログインするだろうけど買い切りなら2年空いてアカ消滅してたとかありそう >>697
まさにそれやらかした。
会社のアカウント一回全滅した。
MSに連絡して復旧したけど、信じられないクソ仕様です >>699
仕様書や契約条件をよく読まなのは社会人として失格だろう
とくに業務なら >>700
そうだね、反論出来ない
そりゃ〜googleのサービスがどんどん進みますわ ミスを誘発する仕様なら一考すべきだと思う
もっともワザとならそういう企業だと諦めるしかない >>690
エクセルで作ったのなら、普通にAndroid版エクセルで良いんじゃない?
エクセルが使えないAndroidでもあるの? 私は>>700さんの意見に賛成です
ただ期限が迫ってるならお知らせぐらい
あってもいいとは思うのですが… いっぺんでも使えばわかるが、Android版のExcelは使い物にならん
ブックはPCで作って、スマホは単なるビューアと割り切るぐらいじゃないと
>>690の用途ならギリ使えるレベル iOS版を使っているが、Windows版と関数の挙動が異なる
完全互換じゃないのかな 以下の例題のような2つの数値範囲の重なる最小値と最大値を
関数を使って一発で求めることはできますか?
例題
以下AとBの重なり最小値と最大値は?
A.最小値:1 最大値:10
B.最小値:6 最大値:12
答え:最小値:6 最大値:10 最大値: MIN(A.最大値, B.最大値)
最小値: MAX(A.最小値, B.最小値) >>708
それ重なりがない場合OUT!ww
VBA組んだほうがいいべ 重なりの判定ぐらい簡単にできるだろ
最大値 =IF(OR(A大<=B小,B大<=A小),MIN(A大, B大),"重なってない")
最小値 =IF(OR(A大<=B小,B大<=A小),MAX(A小, B小),"重なってない") >>709-710
求めた最大値と最小値が
最大値 < 最小値
なら重なりなしだろ… ウェブフォームにエクセルにA1〜A2000に記載されている文字列を10個ごとに分けて貼り付けて送信ボタンを押したいです
どうすればよいでしょうか?
A1にかかれている、文字列を貼り付けて送信は出来たのですが、複数貼り付けてが出来ません
マクロ初心者です
ウェブフォームの自動ログインするページを参考にしてやりました >>713
そのマクロ張ってくれ
10個にわければいいだけなら楽勝だ 10個にわけるじゃないか、10個ごとか、まぁどっちでも一緒だけど、 ここの質問内容の9割は内容が理解できない。
Excel中級者だと自負していたがまだまだだな。 >>713
SendKeys "{TAB}", True 理解はできるが、どんな用途に使うのか見当つかん。>>707
何で難しい方が出来て、簡単な方が出来ないのか。>>713 用途なんてどうでもいいじゃない
私達はそのまま回答して、皿に良い案があれば付加して回答するだけだよ 一緒に画面見ながらこれをこうしたいとか話して貰えたら大抵解決出来そうだけど、エスパーが文面だけで解決してるの見て感心してる >>719
そもそもの目的がわかれば、もっと簡単な方法を提示できるかも知れないし。
どうもね、回りくどい方法に、難しい方法を回答してるような気がするんだけど。 >>721
長年ここにいるけど、そもそもの目的を的確に出す奴はおらん
そんな奴はとっくに技術を自分で得て自己解決しとるわ
ワークブックの構成を聞くのは良いと思うけど、仕事のルーチンを聞いてももう仕方ない そりゃ決まってるだろ 転売屋が通販サイトでチケットとか限定商品を購入するのにつかう フォームだったら営業爆撃では?
買い物だったらサイトによって項目の並びが違ったりするから10個ごとってざっくりしたやり方じゃ失敗しそう AndroidのスマホでExcel使ってる人いますか?
文字数に合わせてセル幅を広げることが うまくいかないのですが どうやってするのですか? マイクロソフトのですが
操作方法はネット上にありますか? 【1 OSの種類 .】 Windows 7
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
Excel VBAからWordを呼び出す基本的な操作についての質問
ライブラリ(Microsoft Word 16.0 Object Library)の参照は設定済みです。
例えばExcelからダイアログボックスを使用してファイルを開く場合、どんなコードを組めばいいのか教えて頂けないでしょうか。
ExcelならGetOpenFilenameで.docxのフルパスを取得して、Workbooks.Openに渡してるんですけど。
あとWordを開いた後の操作のサンプル、例えば特定の文字列を置換するコードを作って頂けないでしょうか。
Word VBAのコードをそのまま使えるのか、それとも毎回Wordのオブジェクトの指定が必要なのかわからないもので。 >>729
エクセルvba ワード
で検索したら死ぬほど出てくる 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel*
【3 VBAが使えるか .】 負荷
【4 VBAでの回答の可否】 負荷
すいませんexcelの問題がレポートで出題されたんですけど
全く分からないので解いてください・・・
例題1の表を見て2,3を答えよって問題なのですが・・
例題1↓
https://gyazo.com/09fca1ee73fb7c9e157e34b8087266aa
問題2↓
https://gyazo.com/91b5a7da5245d2ff536597fcf7414b13
問題3↓
https://gyazo.com/1c48e5087536c8b403b6f8ef9131b00c
自分なりにググっても全く解けないのでどうかお願い致しますm(_ _)m >>731
2-1
=$f10
2-2
=f$10
2-3
=$f$10
3枚目の画像小さくて見えない これはエクセルが難しいんじゃなくて、問題文が難しいんじゃ・・。 写真が見づらすぎる
もうちょっとまっすぐに撮れない?
問(1) =B5*SUM(C5:E5)
問(3)は「処理条件」が途中で切れてて解けない 処理条件がわからんが、普通に考えたらこうか?
=AVERAGE(C5:C9)
=MAX(C5:E9) ↑問4、問5。
そんなことより、将来Excel使う仕事に就くなら、サボらない方がいいよ。
ウチの会社にも、Excel使えない新人が来て苦戦してる。
計算式がわからない→手入力→仕事終わらない、みたいな。 >>739
大学生か専門学生か分からないけど、
excel無しで仕事してるのって書類仕事ゼロのサービス系パートや肉体労働の否管理職くらいだと思うよ
ITじゃないところの事務どころか
サービス業の社員でも売上管理とかシフト作成で使う可能性高いから
IT行かないんで単位取れたらやらなくていい
にはならない せめて問題文ぐらいちゃんと読めよ
解答に必要な箇所が写真に入ってないだろ
こりゃ何やらせてもダメなタイプだわ 名前を付けて保存をできなくする方法ってありますか?
データを更新したら上書き保存で保存していくのですが
馬鹿な人が名前を付けて保存してしまい
ファイルが重複してしまうトラブルが多発してしまいます >>743
VBAマクロは使ってもいいの?使わないと無理だよ 横だけど
>>745
savebeforeで常にキャンセルし、保存は特定の動作でしかできないようにする
しかしファイルごとコピーされたらどうしようもない エクセルを使ってデータ入力したり資料作ったりするときに
コピー代わりにオートフィルは推奨してないと言われたのですが理由がよくわかりません
低レベルな質問かもしれませんがなぜだと思われますか? >>748
俺にもわからん
せっかくの便利機能は適切に使えばいいだけだと思うが
オートフィルは機能が多すぎて、正確に把握してないと予想外の結果になるとか?
ならば、コピペもけっこう危険なんだけどな
意味不明な主張をした本人に聞くしか >>749
会社が下請けみたいなものだから上司も本当は使ったらダメなんだけど
とか言いながら使ってますけどね
数式とかじゃなく文章のコピペ代わりに使うのも駄目らしいから意味がわかりません
使わないと時間が倍変わってもおかしくないからそう言われながらも使ってますけど
ちなみに手入力でもオートフィルで入力したのでも
エクセル見ただけではわかりませんよね? 「推奨してない=禁止」じゃないから 使ってもいいんじゃね オートフィルは書式を破壊することがあるし、フィルターかかった状態で使うと隠れた部分のデータまで上書きするから、
自分しか使わないファイルとか一から自分で作るファイル以外では使わん方が無難かな 罫線とかの書式が意図しないようになるとかかな
見た目同じでも印刷で変になったり >>752
書式はコピーなしにすればいいだけだと思うんだけどな
時間短縮より下手にいじられる方が怖いのだろうか そりゃまぁありとあらゆる可能性を考えると手作業で言う通りにコピーした方が早いのは事実 消えるのは
・書式
・コメント
・条件付き書式
かね
特に条件付き書式はかなり厄介なことになる事がある >>756
当然そんなところはいじらないから
楽にやれるところは使わせてくれと思うんですけどね >>747
う〜〜〜ん
こういっちゃなんだけど、これぐらいの事が出来ない+時間管理も出来ない+写真もまともに撮れない(暗すぎると思わないかな)、
そんな人が社会に出ないで欲しいんだ
言葉遣いは丁寧だけど、自分のための言葉遣いってのが伝わってきてあまり良い印象ではないんだ
何か君が社会に出て来てメリットになるようなお話があれば、喜んで回答するんだけど
>>748
条件付き書式、背景色の上書き >>752
オートフィルだとフィルタで隠してても上書き
されてしまうのか、知らんかった フィルタの挙動はかなり厄介で、コピーはフィルタされるけどカットはフィルタされないなどかなりややこしい 前提が間違っている
>ファイルが重複してしまうトラブルが多発
これは保存方法で解決できない A1のセルに19-A100と入力したら自動的にC1のセルに19-A101
E1のセルに19-A102といった風に連番で出るようにしたいのですが
どうしたらよいでしょうか? 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
たとえばA1のセルに5と入力したらB1〜B5まで順番に1・2・3・4・5と表示され、
その次のA6のセルに3と入力したらB6〜B8まで1・2・3と表示される
このようなことが出来る関数とかないでしょうか
抽象的な質問で申し訳ないですがよろしくお願いします >>768
1行目は列名を入れるとして
B2に =IFERROR( IF(A2<>"",1, IF(OFFSET(B2,-B1,-1)=B1,"", B1+1)),"")
下方向のセルにコピー >>767
C2に =LEFT(A1,4)&VALUE(RIGHT(A1,3)+1)
B1:C1を選択して右に好きなだけフィルコピー 訂正
>>767
C1に =LEFT(A1,4)&VALUE(RIGHT(A1,3)+1)
B1:C1を選択して右に好きなだけフィルコピー 5 1
2
3
4
5
3 1
2
3
>>769
ヒントだけでも貰えたらと思ったのに一発で解決しましたありがとうございます! >>763
自動バックアップの間隔を短くして、Workbook_BeforeSaveで勝手な保存を禁止して、Workbook_BeforeCloseで決められた名前に戻すとか
厳密に検証してないから、どのイベントの組み合わせが有効かは今は明言できないけど
ただし、こういう方法はあらゆるブックに仕込む必要があるから面倒なんだよな
外部にファイルの作成を監視するアプリを置ければいいんだけど >>771
ありがとうございます。
19-A100なら連番になっていくのですが
19-A001と入れると19-A2となってしまい00が
前に入りません。002 003となるにはどうすれば良いでしょうか? >>777
=LEFT(A1,4)&TEXT(RIGHT(A1,3)+1,"000") >>779
割と本当にそう思う
社会には出てこずに、どこか遠くでひっそりと死んで頂ければと思う >>782
gdgdで収拾つかなくなってるので仕方ないじゃないですか(´・ω・`)
最初から全く質問に答える気がないから結果的にマルチになってしまいます そんなExcelの問題出す学校ってどんな学校?専門学校?オッさんには分からんよ。 撮り直したので質問を見ていただきたいです(´・ω・`) >>789
捨て台詞+言い訳+なんのやる気もなしがバレてからではもう遅いよ
手遅れすぎて笑いも出ない 質問よろしいでしょうか?
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 勉強中
【4 VBAでの回答の可否】 否
変換などで作成したCSVなどのファイルをはじめて開くと必ず初期値が100%表示・セル幅8.38の固定なのですが、
これを好みの値に設定する方法はないでしょうか? 795様
早速の返信をありがとうございます。
やってみます。 >>792
いないですね・・・
自分のいる底辺高校の性質上、他人とあまり関わることがないです(´・ω・`)
レポートの問題全て解答してくれと言ってるわけではなく残りの7問解答してほしいだけなので
なんとかしていただけませんか >>797
VBAスレの方で答え書いてくれてる人いなかった?ちゃんとは見てないけどなんか親切に書いてたよ >>799
ありがとうございます。確かに見直したら教えてくれてる方一人いましたね。
ただこちらで教えてくださった方の答えと照らし合わせたら食い違ってる答えが多かったのと
スレの流れからして嘘を教えてるんじゃないか?という判断であちらは中断しました >嘘を教えてるんじゃないか?という判断
すごい・・・ 高校生だろ?
もしかして、そもそも躓いているところが違うんじゃないの?
行と列の縦横がわからないとか、単価の意味が分からないとか? >>800
何問か見たけどあってそうだったよ
君のレベルじゃ完璧な回答の方がおかしいから安心して写せ そうだよ。
そもそも100点じゃないと駄目のかそれ。 vbaスレ見て分かった、エクセルを使った事が無いらしい
まぁ高校なら出席日数足りてりゃ卒業できるし、補修ヤリたくなかっただけだろ 試験でも小論文でもないけど
期日までに全て正解した状態で完了しないと出席足りてても単位にならないみたいなので
なので困ってます どんな学校だそれwwww
誰かに嘘を吹き込まれてないか!?
小学校6年生になったら、機械式の物凄く痛い注射をされます、みたいなさ。 >>807
期日は7/24です。一見長いように見えますが提出してから返却するまでに時間がかかるので
1,2回しか提出チャンスはないです。だからなるべく一回で済ませたいと此処の方に頼ってます だったら尚更嘘教えられてるかもって疑心暗鬼になりながら回答をもらうより自分で調べたほうが良いんじゃないの 凄い高校だなそりゃ。
計算式を入れて送信ボタン押すと、生徒の回答がVBAで自動集計されるとか、そういうの無いのかよ。
エクセルの問題を紙で出題って、昭和の発想だぞ。 まぁ脱線してるので>>778に解答いただけると助かります(´・ω・`) >>809
余裕ありそうに見えるけどもしかして定時制とか?
先生に分からないところ質問した方がいいと思うよ
自分も高校の時情報処理テスト落としたら赤点って言われたけど頑張ってる姿勢を見せたら免除された
上手く立ち回りな EXCEL使ってて気づいたんだけど、
フォーメーションZって、あれ絶対多重スクロールがやりたかっただけだよな。
意味はないけど、面白そうだからVBAでやってみたかったって感じによく似てる。 ここまで教えてもらえる余地がない中、
それでもVBAスレで教えてくれた善人を疑い
なおも頼り続ける心臓の強さよ D3セルの数値が,A1〜A10の範囲に存在し,かつそのA列セル右隣のB列セルが0であった場合に色を付ける
という条件付き書籍ではどのような数式を書けばいいのでしょうか?
↓では駄目なようです。
=offset(countif($A$1:$A$10,$D$3),0,1)=0 >>816
732-737あたりでこのスレの方が解答してくれた答えと一部違ってますが
VBAのスレの方が正しいのですか? >>818
=SUMPRODUCT((A1:A10=D3)*(B1:B10=0)*(B1:B10<>""))>0 相手するのが面倒になったからって嘘教えるなよww
流石に高校生相手にかわいそうだろ 最近Excelしかやってなくてもともとパソコン関連みたいなの苦手です
メッセージボックスをOK押さなくても消えるようにWindowsのスプリクト使って組んでそれはうまくいったんですが
そういうVBAでやりきれないことをやるものって何を勉強したら使えるようになるんでしょうか?
Excelのエキスパートまで取り終わったからaccess始めたけど面白くなくて
やっぱりExcelに役立つものやりたいなと思ってます >>823
ほかのアプリまで思い通りに操作したかったら、最終的には自分でアプリを作るのが確実
Visual Studioを覚えると捗るよ >>824
アプリを作るって発想がなかったけどそうですね
バーコード作るのとか利用してるけどそっち作ればいいのか
ちょっと検討してみます
ありがとうございます >>821
できました。どうもありがとうございます。助かりました 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013 Word2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可(優しめでお願いします)
エクセルにある複数のシートのセルの値を読み込んでワードで文書をつくりたい。
エクセルとワードのデータ連携は、「差し込み印刷」の作成と近いのだけど、
「差し込み印刷」はエクセルの行データから、次々にラベル欄を作っているのに対して
私がやりたいのは、複数のシートから複数のセルのテキストデータを個別に読み込んで
1枚のワード文書を作成させたい。
「ワード エクセルデータ フィールド」で検索しても「差し込み印刷」の方法しか見当たらない。
何か良い方法。参考になるサイトありますでしょうか? 「複数のシートから複数のセルのテキストデータを使って、1枚のワード文書を作りたい」
↑説明として雑すぎる
データベースとレポートの関係に近く見えるので、一般的にはAccessとかのDBツールの範疇
あくまでWordにこだわるならVBAでゴリゴリ処理を作成するしかないだろう >>829
Excelに各シートにどういう形式でデータがあるか具体的に書かないとアドバイスできないな 最後のWord文書が定型で、データを埋め込む場所が固定なら、
複数シートのデータを一つのシートにまとめるマクロ組んで差し込みにした方が簡単じゃないかな ありがとうございます。
抽出するエクセルのセルデータの数が、200件ほどあって
列ごとに一つのデータがまとまっているわけでないです。
「差し込み印刷」みたいな、列ごとにデータをまとめてラベルを印刷するわけでないので、
もしかしたら便利な方法があるかなあと思いました。
>データベースとレポートの関係に近く見えるので、一般的にはAccessとかのDBツールの範疇
>あくまでWordにこだわるならVBAでゴリゴリ処理を作成するしかないだろう
まさにそのヒントが欲しかったです。VBAで何とかしてみます。
ありがとうございます。 すいません。。
×
「差し込み印刷」みたいな、列ごとにデータをまとめてラベルを印刷するわけでないので、
○
「差し込み印刷」みたいな、行ごとにデータをまとめてラベルを印刷するわけでないので、 >>831
ありがとうございます。抽出するセルの数が多すぎて、
具体的に説明するにはちょっと時間がかかるのですいません。
セルのデータ自体はただのテキストデータです。
>>832
>最後のWord文書が定型で、データを埋め込む場所が固定なら、
>複数シートのデータを一つのシートにまとめるマクロ組んで差し込みにした方が簡単じゃないかな
私もそう思いました。ありがとうございます! 取り急ぎなのですが、monthProgramiというシートのオブジェクトにある、B列2行目から値がある場合、sという文字列オブジェクトに値を加えようとするループです。
VBAは久しぶりすぎて、戸惑ってます。
::::::::::::::::::::::::::
monthProgramiというシートオブジェクト
B列
(B1)週間テーマ
(B2)読む・書く
(B3)対人関係
(B4)家事
(B5)#N/A
::::::::::::::::::::::::::
VBAを実行すると
「読む・書く,対人関係,家事」
と出力されればOKです。
::::::::::::::::::::::::::
こう書いてみましたが、、どこが悪いでしょうか?
Sub プログラム結合版()
Dim i As Long
Dim s As String
i = 2
Do While Cells(i, 2) <> "" _
s += monthProgram.Cells(i,2).Value _
s += "," _
i += 1
Loop
Debug.Print (s)
End Sub >>835
Excelのセルに入った大量の文章は、メモ帳経由でコピペすれば単なるテキストに変換されるよ
Excelでコピー
メモ帳にペースト
メモ帳でコピー
Wordにペースト
こんだけの簡単な作業 すいません。
×
monthProgrami
○
monthProgram
です。。。 >>837
ありがとうございます。
単にコピペするのでなくて、必要なセルだけを抽出して、Wordファイルを完成させるのです。。 >>836
Sub プログラム結合版()
Dim i As Long
Dim s As String
i = 2
Do While Cells(i, 2) <> "" And Not IsError(Cells(i, 2).Value)
s = s + Worksheets("monthProgram").Cells(i, 2).Value
s = s + ","
i = i + 1
Loop
s = Left(s, Len(s) - 1)
Debug.Print (s)
End Sub >>840
ありがとうございます。
「オブジェクトが有効範囲にありません」というエラーが返ってきます。
オブジェクト名は正しいはずなのですが、、
コードの問題でなく、何かのエクセルの環境ですよね。 自己解決しました
>>840のコードを次のように変更したら正しく出力されました!!!
>>840さんありがとうございました。
s = s + Worksheets("monthProgram").Cells(i, 2).Value
↓
s = s + monthProgram.Cells(i, 2).Value Doの行にもCellsが2つあるけどオブジェクト名を省略したらまずいのでは 度々すいません。先のものを発展させて、次のようにエクセルデータがあります
A B C
1 日程 週間テーマ
2 12月2日〜 読む・書く 作文
3 12月9日〜 対人関係 会話のマナー
4 12月16日〜 家事 料理
5
6
7
8 作成年度
9 2018
10 作成月
11 12
:::::::::::::::::::::::::::::::::::下のように出力したい:::::::::::::::::::::::::::::::::::
【2018年度プログラム結合版、プログラム表紙、カリキュラム】
2018年度12月 2018年12月 [大テーマ]読む・書く,対人関係,家事 [小テーマ] 作文, 会話のマナー,料理 :::::::::::::::::::::::::::::::::::作ったソース:::::::::::::::::::::::::::::::::::
Sub プログラム結合版()
Dim i As Long
Dim h As String
Dim s As String
Dim yyyy As String
Dim mm As String
yyyy = Str(monthProgram.Cells(9, 1).Value)
mm = Str(monthProgram.Cells(11, 1).Value)
h = "【" + yyyy + "年度プログラム結合版、プログラム表紙、カリキュラム】"
s = yyyy + "年度" + mm + "月" + yyyy + "年" + mm + " 月[大テーマ]"
i = 2
Do While Cells(i, 2) <> "" And Not IsError(monthProgram.Cells(i, 2).Value)
s = s + monthProgram.Cells(i, 2).Value
s = s + ","
i = i + 1
Loop
s = Left(s, Len(s) - 1)
s = s + "[小テーマ]"
i = 2
Do While Cells(i, 3) <> "" And Not IsError(monthProgram.Cells(i, 3).Value)
s = s + monthProgram.Cells(i, 3).Value
s = s + ","
i = i + 1
Loop
s = Left(s, Len(s) - 1)
Debug.Print (h)
Debug.Print (s)
End Sub
動きません。何がわるいでしょうか?? あ、TABが効かないのかあ。これでわかるのかな。。
-, A, B, C,
1, 日程, 週間テーマ,
2, 12月2日〜, 読む・書く, 作文,
3, 12月9日〜, 対人関係, 会話のマナー,
4, 12月16日〜, 家事, 料理,
5,
6,
7,
8, 作成年度,
9, 2018,
10, 作成月,
11, 12, 詳しく見てないけどyyyy=の行で止まるんじゃないか
monthProgram. となってるとこworksheet("monthProgram").cells(〜 では?
シート名が何か分からんけども >849さん
ありがとうございます。
実際のエクセルでのワークシート名は「学期別カリキュラム」です。なので指摘どおり、
yyyy = Str(monthProgram.Cells(9,1).Value)
↓
yyyy = Str("Worksheet("学期別カリキュラム").Cells(9,1).Value)
と記述してみますと、コンパイルエラーが出てしまいます。
yyyy = Str(monthProgram.Cells(9,1).Value)
だと、エラーも出力もないです。。
VBAは一筋縄ではいけないですねえええ。。 失礼しました。
間違えてました、以下のとおりだとエラーはでません。
×
yyyy = Str("Worksheet("学期別カリキュラム").Cells(9,1).Value)
○
yyyy = Str("Worksheets("学期別カリキュラム").Cells(9,1).Value)
ただ、エラーも出ませんが、出力もでません。。。 >>852
まだ書き間違いしてる
変な位置にダブルクォートが入ってるから、それでもエラーが出るはず
それはともかくStrを外してみ
yyyy = Worksheets("学期別カリキュラム").Cells(9,1).Value >>853
できた!!!!
ありがとうございます。
Strが問題だったのかなあ。 ご報告。。
ワークシートの書き方については、どちらでも行けました。
○
yyyy = Worksheets("学期別カリキュラム").Cells(9,1).Value
yyyy = monthProgram.Cells(9, 1).Value
Str()がダメだったみたいです。
×
yyyy = Str(Worksheet("学期別カリキュラム").Cells(11, 1).Value)
yyyy = Str(monthProgram.Cells(9, 1).Value)
皆さん。ありがとうございました。よい勉強をさせていただきました。 ダウンロードしてないからどんなデータが入ってるか確認してないけど、
Strを使って何も表示されないんだったら、数字じゃないデータが入ってんだから消すのが手っ取り早い
CStrを使っても同じこと 式の途中ならともかく、出力の直前でStrなんか使う必要ない
機能とか意味がわかってないだけでは 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013 Word2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可(優しめでお願いします)
セルにフォームコントロールで「チェックボックス」を張り付けたのですが、
セルのアドレスを指定して、チェックしている名前を取得できますか?
例えば
A3 ■鹿児島 □宮崎 ■大分 □佐賀
A4 □鹿児島 □宮崎 ■大分 □佐賀
A3の「鹿児島」、「大分」にチェック、A4で「大分」のみにチェック
してあったとして、
A3のセルのチェックを調べて「鹿児島」「大分」が返ってくる
A4のセルのチェックを調べて「大分」が返ってくる
のようなVBAの命令文があれば教えてください。 ActiveXコントロールならできますが
フォームコントロールはセルとリンクさせてそれを取得するしかできないんじゃないかな >>860
何だっけな。
一番近い位置にあるセルを取得する関数か何かがあったんだが、
思い出せない。 いや、その前に、チェックボックスに鹿児島って書いちゃダメなんか。 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
エクセルに挿入した画像の下にあるセルに数値を入力する方法はありますか?
具体的は測定器が5個写っている画像があって、測定器の数値を表示する部分のセルに数値を入力したいです
データ1は測定器A、Cの測定値を元に算出、データ2は測定器B、Dの測定値を元に算出・・・
といった感じの作業を電卓や暗算で行っていましたが、Win7機の入れ替えで端末が余ったので管理図置き場に設置しました
一応は画像の挿入を無しに測定器A、B、C、D、Eの測定値を入力して欲しいデータを表示させるようにはしましたが、
折角だから見たまんまで入力すればもっと分かりやすいのでは?と思い質問してみました LOOKUPで画像を表示させるってのがネットで検索できたんだけど、
オートシェイプも可能? 名前の管理にINDIRECTでオートシェイプも画像同様表示可能 そうなんだ、活用してみる。
ありがとうございます。 今年の1月に
Microsoft Excel 2019(最新 永続版)|オンラインコード版|Windows10/mac対応|PC2台を購入して、今使ってるPCとMacBook Airにインストールしています。
PCの方を新調するのですが、ライセンスの移行は認められているらしく、手順はこう書かれています。
現在使っているPCのExcelをアンインストール。新しい方のPCにインストール。
これってアンインストールした事がトリガーになってるんでしょうか?ライセンス違反して3台に使うつもりはありませんが、PC音痴なので、いざアンインストールして新しいのに移行出来なかったら怖いなぁって思ってるんです。
アンインストールがトリガーじゃなければ新しいので起動成功を確認してからアンインストールしようと思うのですがどうなんですか? >>869
多分、アンインストールではトリガーにならなくて、
MSサイトの自アカウント情報ページに開いて、
コンピュータ名等で登録されているインストール済デバイスの一覧から、
古いPCを消せば良いとか?
それで台数条件満たせば認証が通ってupdate可能になるのでは? >>869
ライセンスの問題
アンインストールを先にしないとライセンス違反になる
それで何が起こるかは知らない 昔エクセル詳しくなりたいんでセミナーでも
受けたらいいですかって聞いたら
セミナーとか何時の時代の人間だよww
そんなもの時間と金の無駄だからwww
ってめちゃくちゃ草生やされた;;;
でも今は、確かにセミナーは無いよなって思う
ネットでいくらでも調べれるし、自分で調べたほうが
ちゃんと身につくし、モチベーションも維持できるし
先輩の言ってること正しかったんだな… ,r´⌒ヽ,⌒ヽ,ヽ
(⌒)、 .人 λ\、 .___
\. \ 、 ヽ./ ー ー\
|\ \ ヽ./ ( ●) ( ●)
| \ \ / (__人__) \ はいはい、どーもすみませんでした
|. \ | ` ⌒´ |
. |. |.\_ノ\ /
. |. | | \______/
. | ) .|  ̄ ̄
. | | .|
| |.| .|
. | | .| .|
/ / / ヽ,
(__ノ ヽ、__つ オートフィルについてです
例えば
セルA1 =a!A1
セルB1 =b!A1
としたとき、
オートフィルで横に伸ばすと
セルC1 =a!C1
セルD1 =b!C1
こうなりますよね?
これを
セルC1 =a!B2
セルD1 =b!B2
こういう風にオートフィルしていくような手順ってありませんか? vlookupで文字列とかで検索出来てないのはわかるんだけど
数値に直したあともセルにF2なり触らないと反応しないのって仕様なのか? >>876
なんかエラー出るので外部のメモ帳サイト
http://plsk.net/asdasd
>>878
そう。これはめんどい仕様だな
数個ならF2とenter連打、
多いならどこかに1を入力して、コピーペーストで値+乗算貼り付けで数値にできる 私の魅力を教えて下さい
何も無いってことは無いと思うんです 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ゲームの対応表について
同種族のキャラを集めて戦う、というゲームで対応表を作ろうと思っています。
キャラそれぞれに種族の名前を定義して種族の数を数えることはできました。
しかし、種族の数に対応させてキャラを表示させる方法が思いつきません。
何かいいアイデアはないでしょうか?
分かりにくい説明ですみません。
https://dotup.org/uploda/dotup.org1902048.xlsx.html >>885
学校の先生なら貴方に根気よく付き合ってくれるでしょう >>885
まぁ見てみれば分かるだろうと思ったら全然わからなくて草 >>887
同じくwwww
超余裕だろうと思ったが、全然わからんwwww
データベースのセルD9。
ジャイロコプターなんて言葉を聞いたのは、
じゃあまん探偵団魔麟組以降、30数年振りだわ。 質問させて下さい。
A1から下方向に会社名を入れていきます。
B1から下方向にA列に入力された会社名を参照したいです。
条件として重複するものは一つだけを参照して、B列は空欄を作らず、詰めて参照したいです。
空欄を作っていいのであれば出来ました。以下の数式です。
=IF(COUNTIF($A$1:A1,A1)=1,A1,"")
よろしくお願いします。 >>890
はい、重複データは飛ばないようにしたいです。
AB
11
22
27
73
34
35
3
4
1
5
文字と数値も同じだと思いますので、上の様な感じにしたいです。 >>891
A列がソートされてるなら簡単。
1行目に1を入れる。
2行目以降は、A列のセルの上下を比較して、値が変わったら、1つ上の行の値に+1する。
変わらなかったら、1つ上の値をそのまま参照。
あとはRow()を引数にしてMatchすれば、行番号が取れるので、Indexするだけ。 >>892
>>891をよく見ような
A列はソートされてない >>893
それならちょっと変えて。
CountIfで1になるやつだけ拾っていけばいいかな。
もちろん計算式が入っている行より上を参照するCountIfで。 ソートされていなくてもmatchの0でイケるじゃん >>889
むしろやり方がわからないのに、そんな発想が出たのが凄いわ。
出来ない人は、そもそも計算式で空白を詰められるなんて考えもしないと思うんだが。 皆様ありがとうございます。
indexとsmallとrowの3つを使えば、上に詰めて参照できる事が分かりました。
それを889で示した数式を入れ込めば出来そうです。 >>891
その元データに会社名ナンバーは作ってないの? >>889
持ってる本にそういうの載っていたが会社に置きっぱなしだわ
なので自力で
B列を作業列として
B1に =IF(COUNTIF($A$1:A1,A1)=1,ROW())
C1に =IFERROR(INDEX(A:A,SMALL(B:B,ROW())),"")
もうちょっとシンプルになりそうな気もするが眠くて思いつかんわ >>891
Excel for Office 365
Office インサイダー:月次チャネル (対象限定)
シンプルになりそうな >>889
わたしがそういう作業でいつもやるパターンは
ピボットテーブルを挿入
行に会社名をドラッグ
順番が重要ならダメかな… 動的な対応が必要なくて結果が欲しいだけなら「重複の削除」ってコマンドがExcelのメニューの中にある
順番もちゃんと保持される >>898
はい、会社ナンバーとかはふってないです。会社名がどんどん増えていき、さらに重複もA列に出てくる感じです。
>>899さんのやり方がいいのかなと思いました。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 まあまあ
【4 VBAでの回答の可否】 可
ある列に、ひらがな、カタカナ、半角カタカナ のいずれかの文字列が
入っています。
これを全部半角カタカナに統一したいです。
あいう→アイウ
アイウ→アイウ
アイウ→アイウ
こんな感じです。
VBAで命令することにはどうすればいいでしょうか? 計算式の=の後に@を入れた記憶がないのに、入っています。
同じファイルを別のPCで開くと入っていません。何か設定を変えてしまったのでしょうか? 【1 OSの種類 .】Windows10
【2 Excelのバージョン 】Excel2016
【3 VBAが使えるか .】いいえ
【4 VBAでの回答の可否】否
B2:B101の範囲にデータの入力規則(リスト)を設定したいです。
既存は空で、例えばB2に山田、B3に佐藤と入れたら
山田と佐藤がプルダウンのリストに表示されるようにしたいのですが
どうすればよいでしょうか?
誤入力防止のためのプルダウンではなく入力補助としてのプルダウンを作るのが目的です。 すみません。追記です。
同じ名前がでてきた場合はリストに重複して出ないようにお願いします。 >>906
違ってたらスマン
多分ロータス123かなんかだったはず
・「ツール」 → 「オプション」 → 「移行」タブを開く
・「□計算方式を変更する」にチェックする。
この辺と主う
>>907
全然違う
もう少し考えて回答してあげて
>>908
データ データの入力規則
リスト
範囲
=$B$2:$B$100 「全然違う」とか牽制して「違ってたらごめん」だってさww >>911
テキトーに言って当たればラッキーぐらいでいいだろって事を正直に言ってるだけだよ
今更ロータスの事なんて誰得
それすらわからない無能はもう少し勉強しよう
あと>>907はありえないと断定して良い 試したが環境では
「計算方式を変更する」では再現も治りもしない
なおO365版での設定位置は
ファイル→オプション→詳細説明→Lotusとの互換性設定の下 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 コピペだけできます
シート集計表のC列の2行目以降が「集計」で無い行は、行ごと削除したいので
下のコードを使っているのですが、3000行位までは実行されるのですが
10万行以上の件数があると「型が違います」というメッセージがでて、処理が実行できません。
件数が多い場合のコードを教えてください。
Sheets("集計表").Select
For r = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
If Cells(r, "C") <> "集計" Then Rows(r & ":" & r).Delete
Next >>916
Dim r As Long
For r = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
If Cells(r, "C") <> "集計" Then Rows(r & ":" & r).Delete
Next
でも同じく「型が一致しません」になります。 エクセルを手軽に本とかで学びたいと考えてますが、オススメのノートパソコンってありますか??
予算は10万前後で出来るだけ軽いものがいいです。 >>917
C列に入ってるのが文字列じゃなくて数式だと「型が一致しません」になることがある
これ試してみて
If Cells(r, "C").Text <> "集計" Then >>918
あんまり軽くはないけど予算10万ならASUS VivoBook 15 X512FA >>920
>>921
ありがとう、さがしてみるわ。 >>919
ありがとうございます。できましたm(__)m 例えばセルA1に1:00:00と入力したらセルB1に1時間5秒後の時間が表示されるにはどのような式を書けばいいでしょうか? やりたいことがちょっと複雑なのでvbaスレで聞いてみます
質問取り下げます >>924
ありがとうございます。
Office Insiderに登録しているPCだと発生するのですね。 excel表↓
__|______A_______|___B____|___C____|___D____|___E____|___F____|___G____|___H____
1| | | | | | | |
2| | |夏季限定スイーツ売上一覧表| | |
3| | | | | | | |
4|品名 |単価 |6月 |7月 |8月 |売上金額 |売上比率 |備考
5|とろとろプリン | 300 | 120 | 155 | 140 | 124,500 | 18.4 |
6|抹茶あんみつ | 450 | 233 | 107 | 111 | 202,950 | 29.9 |○
7|メロンシュー | 320 | 94 | 88 | 90 | 87,040 | 12.8 |
8|フルーツアイス | 250 | 124 | 156 | 224 | 126,000 | 18.6 |
9|はちみつ金時 | 380 | 130 | 122 | 109 | 137,180 | 20.2 |○
10| |合計 | 701 | 628 | 674 | 677,670 | |
11| |平均 | 140 | 126 | 135 | 135,534 | |
12| | | | | | | |
13|最大個数 | 233 | | | | | | セル番地(F10)について、次の問1から問3を解答しなさい。
問1 セル番地(F10)を複合参照で列を固定した答えを記入しなさい。
問2 セル番地(F10)を複合参照で行を固定した答えを記入しなさい。
問3 セル番地(F10)を絶対参照で列と行を固定した答えを記入しなさい。
という問題があったのですが
1,SUM($F5:$F9) 2,SUM(F$5:F$9) 3,SUM($F$5:$F$9)
と解答したら全て間違えてました; 全く答えが分からないので教えて下さい。
表ズレてますが左からA~Hです。 >>931
教えてもらったのですが間違えた答えでしたので…(^^;
F10には売上金額677,670とあります。セル番地を絶対参照で固定して計算する際に合計の値がずれないようにします
と書いてあります >>929>>932
前回教えた奴は合っている
どう違ってたのか言え >>933
バツとだけ書かれて返却されてたので分からないです…。
他の問題は全て正解でした。
完了期限はまだ先みたいなので大丈夫みたいです。 >>935
どう見ても合っているから教師が間違っている
これ以上の回答はないから教師に確認しろ 929の表がズレてたので・・・画像にしてあげますexcelの表はこちらで↓
https://gyazo.com/6bbc43b5a4346db69404d52e985b0244
処理条件は↓
https://gyazo.com/faf8012dcb22cdd442c687663f1e7524
問題は↓
セル番地(F10)について、次の問1から問3を解答しなさい。
問1 セル番地(F10)を複合参照で列を固定した答えを記入しなさい。
問2 セル番地(F10)を複合参照で行を固定した答えを記入しなさい。
問3 セル番地(F10)を絶対参照で列と行を固定した答えを記入しなさい。
なのですけど>>930に書いた解答は全て間違えてました・・・。
今度ははっきり見えるように画像を撮ってきたので何卒解答お願いいたしますm(_ _)m 死ぬほど役に経つけどそもそも使えない会社やシステムが整っている大企業だと出番が無いこともあるからその辺りは気をつけないと行けない >>941
レスサンキュー。
使いこなせる?マスターするのに時間かかります? 使いこなせる?
こんな事聞く奴はアホしかいないから
アホには無理、死んで VBAでの質問です。よろしくお願いいたします。
あるシートに、cmdPrint1からcmdPrint50という名前のコマンドボタンが50個あります。
これをクリックしたときの動作はすべて同じプロシージャで、引数が違うだけなんです。
Private Sub myPrint( no as integer)
’略
end sub
各コマンドボタンは
Private Sub cmdPrint1_Click()
call myPrint(1)
End Sub
という感じなんですが、こういう場合、50個のコマンドボタンすべてについて、クリックイベントを
書かないとだめなんでしょうか?
何か、まとめて書いちゃう方法ってあるのでしょうか? >>943
日々、「自分の仕事をいかに減らせるか?」を考え続け、勉強を続けるが重要
そして、ダメと分かったら作りなおす度胸が必要
極めれば多少営業が無茶言ってきても対抗できるし、
毎日超暇になる
>>944
お前みたいな無能が何のために生まれてくるのか良く分からんが、
日本っていい国だな >>945
確か一ヶ月ぐらい前にvbaスレで似たような事をやってたな
・activeXボタンならボタンのcaptionを取れるから、それで分岐できる。ただしactiveXは時代錯誤な上に使えないPCもある
・フォームのボタンはcaptionを取れないから無理。this.captionが出来ない >>946
根拠無しに無能とか決めるほうが無能じゃね?
何かあんの?言ってみろよ >>948
自分1人が頑張ることには限度がある
自分の能力が極まった上で、他者を育てる事で始めて有能となる
その効率は極まったお前の数倍となる
相手の素性も知らずに叩き潰す事しか考えないお前は間違いなく無能だ、断言する
一応フォローすると、お前自信が頑張ってる、能力がある事は伝わる
もう少しいたわりを持ち、他者を成長させる礎となれ
それは大変苦しみを伴う作業だが、歩んだ道は間違い無かったと、俺はそう思ったよ >>944
すみませんでした!けどVBAの魅力を知りたいだけなんです… >>946
ありがとう!少しずつ頑張って検索して学んでいきます! >>949
すごいね、たったこれだけのことで
相手の素性が分かっちゃうモノホンのエスパーさんだったとは…
俺も少しばかりそのエスパーの心得ってのがあったから
>>943をゴミカスクズ糞汚物扱いしてやったんだけど
これってお前が言ってることと何か違うの?
もしかしてとは思うけど…その…アナタ…
.....、......オクス..リ.、、、
........ とか..キメ.......たり....してませんよね?;
なんかね、少し...ちょっと.....思っただけ...なんですけど…^^;;;;;;
>>950
そうだったんですね
ま誰にも間違いはありますから
次スレ建ててから死んでくださいね 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 コピペだけ
【4 VBAでの回答の可否】 可
https://dotup.org/uploda/dotup.org1906896.jpg.html
↑のような表があって、G列に担当者名が入っているのですが
https://dotup.org/uploda/dotup.org1906899.jpg.html
↑のように担当者名だけ各表のA列の先頭にコピペするコードを教えてください。 >952
>相手の素性が分かっちゃうモノホンのエスパーさんだったとは…
>俺も少しばかりそのエスパーの心得ってのがあったから
ってかこのスレなら数文字で伝わるでしょ
>>>943をゴミカスクズ糞汚物扱いしてやったんだけど
それに意味がない
>その・・ | .....オクス..リ.、、
三点リーダと半角読点、句読点、他諸々統一しないとダメ
自分に自信がなさすぎる。そんな事では
「あれ、この人こそ統一性のない人なのかな?」と思われるだけ
殺したいときはもっと殺意をもって発言、過ちが気になるだけなら端的にレス >>953
A2=G4
これをコピペしていけばいいんじゃないの >>952
どうしても教えて欲しい事がある
>>>943をゴミカスクズ糞汚物扱いしてやった
これはどういう感情なの?
俺も恐らく発達障害だから、君の気持ちが良くわからないんだ
「ゴミカスクズ糞汚物扱いしてやった」
ことで君は自分の承認欲求が満たされたり、
人間のランク的な物が上がったりするの?
まぁ別に答えなくてもいいよ、これはただの俺の知識の一つになるだけだ >>953
こういう質問は答えにくい。
やりたいことの一例が上がっているだけなので。
その3つの表だけでいいのか、沢山ある表を処理したいのか。同じ表の担当者は必ず同一なのか、そうでない場合があるのか。
VBA使わずに、A2に=G4 と入力して、それをA10と、A14にペーストすれば良いのでは? >>957
すみません説明不足でした
・画像では3例の表ですが、実際は300件以上あります。
・各表は必ず同一の担当者です。
・表と表の間の行数は一定ではありません
・毎日件数が多くなるためVBAで処理したいです >>953
>>958
Sub foo()
最終行 = Cells(Rows.Count(), 7).End(xlUp).Row
For i = 1 To 最終行
If Cells(i, 1).Value = "納品日" Then
Cells(i - 1, 1).Value = Cells(i + 1, 7).Value
End If
Next
End Sub
飲みながらだとこういう単純なのが意外とキツイなw
>>952君は回答ないけど、無理なのかな? 一応言っておくと一行目のA7に「納品日」があるとエラーになるけどそれはなんの分岐もしていないぞ >>959
こんな一瞬でできるようなのがキツいとか
こんなハゲとはいっしょに飲みに行きたくないな お、なんだなんだ
文句だけ付けて自分は何も案出さないという職場で最も嫌われる典型がやってきたぞ >>961
むしろハゲにする方法教えろ
今脱毛してるんだけど、あごひげだけ脱毛終わらないんだよ
脇とか色々終わった いつもならvbaのコード最適化しろやっていうとこだけどお前より俺の能力の方が高いからどうでもいいわ
マジであごひげなくならねぇ
乳毛も脇毛もなくなったけど肝心のあごひげなくならないんだよどうすりゃいんだよ スレの立て方が分かりません。…
もっと有益な会話をしたいです!VBA初心者の方いませんか? >>965
いねーよ、ここは達人の集まりだ
vbaってのは要するにExcel作業の自動化
Excelで手作業を繰り返している会社なら英雄になる
「a1とb1をc1に自動的に出すだけ。それが100シート」
ただし、多大な損失が生じる可能性がある
「言い忘れたけど合計が偶数になると別ブックに転記する必要があるんだよね〜」
逆に、そもそもExcelを使わない大企業では意味がない >>965
ここは質問スレであって会話なら雑談スレいけ
質問に関連する事ならいいが、脱線しすぎは迷惑になる
>>966
カッコいい!そしてスレ立てthx 雑談スレいくわ。すまんかったね。
ありがとうございます! 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 中級
【4 VBAでの回答の可否】 可
あるシートを新規別ブックにコピーしてそれにファイル名をつけて保存する、ということを
やりたくて試行錯誤しています。
一応、コピーして保存はできたのですが、元シート上にあるコマンドボタンまでコピーされて
しまいます。
コマンドボタンをコピーさせない方法ってないでしょうか?
今は
mySt.Copy
ActiveWorkbook.SaveAs ****
という単純なコードです。これを書き換えて、コマンドボタン以外だけをコピーとしたいです。
よろしくお願いいたします。 >>974
mySt.Copyの次の行にボタン削除を入れる
シートコピーと言うのはシート自体をコピーするんだからそこにあるものは当然全てコピーされる >>975
具体的には
activesheet.Shapes.range("Button 1").delete
か
For Each eShape In ActiveSheet.Shapes
eShape.Delete
Next
を入れとく そうだね
ボタン名がはっきりわかってピンポイントで消したいなら上で
なんでもいいからデータだけ残したいの!という場合は下 いや、数が少ないなら上、多いならForでボタンだけ消せばよい Forで回してShapeがボタンかの判定を入れたらもっといいね
初心者だとしたらコピー後のボタン名をちゃんと調べられるかなと思って下のも用意した
あれ?!俺はどうやって調べたんだっけ もう忘れたw >>976よく見たら上も間違ってるわ
ともかく数が少ないなら直指定でもいいし、多い又はとにかく全部消したいならForで回せばいい >>974
新規ブックにコピーディスティネーションじゃダメなんかい! 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 入門中
【4 VBAでの回答の可否】 不可
教えてください。
B列に日付、C列からH列まで、品目ごとの買物金額が入力されている100行くらいの表があるとします。
A1に日付を入力すると、A2に、その日の買物の合計金額が出るようにしたいです。
=SUMIF(B1:B100,A1,C1:H100)
↑
これではダメみたいなんです。どうすればいいでしょうか? >>984
マイクロソフトのサイトのSUMIF関数の解説のページ
https://support.office.com/ja-jp/article/sumif-%E9%96%A2%E6%95%B0-169b8c99-c05c-4483-a712-1697a653039b
を見てもらうとわかります。条件となるセル範囲がB1:B100、つまり1列×100行を指定した場合は、
合計範囲をC1:H100(つまり6列×100行)と設定しても、実際に合計の対象となるのは1列×100行となる
C1:C100だけになるはず。
よって、=SUMIF(B1:B100,A1,C1:C100)+SUMIF(B1:B100,A1,B1:B100)+ と、SUMIF関数を6個連ねるのが正解。 >>985の続き
もし、B列に日付の重複がないことが確実であるならば、日付の一致する行のC列〜H列の合計を
出すとして、SUMIF関数を使わず、SUM関数、OFFSET関数、RESIZE関数を組み合わせて
できそうだけど、ただいま試行錯誤中。 >>984
=SUMPRODUCT((B1:B100=A1)*C1:H100,) カンマがいらないと思うんだがバージョンが違ったらそれでも動くんか
しかしsumproductを使ったらsumifもcountifも無駄な知識だなと思ったが
この二つはワイルドカードが使えるというアドバンテージがあるんだな >>987の後ろのカンマはゴミ
タッチミスかなんか >>985-989
ご親切に教えていただきとてもありがとうございました。 SUMPRODUCTでこんなこともできるのね。
”正解”などと書いた自分が恥ずかしい orz SUMPRODUCTは便利だけど直感的組める配列数式使っちゃうことが多いわ よろしくお願いします。
あるブックの2つのシートに、1つずつ表があります。
どちらの表にも同じ「会員番号」という列があるのですが、
これをもとに、
・AシートとBシートの両方に入っている人
・Aシートにしか入っていない人
を一目でわかるようにしたいです。
なにかいい方法はないでしょうか? 一目でわかるようにするの意味がハッキリしないが
VBA使わないと面倒だと思う >>995
作業列を使うか、「会員番号」の列に対する条件付き書式でいけると思う。
どちらのシートも 会員番号の列はB列 と仮定して、
作業列を使う方法→Aシートの作業列をC列と仮定→AシートのC2セルに計算式
=COUNTIF(SheetB!$B:$B,B2)
と入力して、下方向に必要なセル範囲までドラッグコピーする。
シートBにも存在する会員番号があれば、その個数がC列に表示される。なければ0が表示される。
条件付き書式を使う方法(条件は上に同じ)シートBにも同じ会員番号があるとき、当該セルを黄色塗りつぶす場合
B2〜B列の最下行までのセル範囲を選択する→条件付き書式→新しいルール→数式を使用して〜
→数式の欄に =COUNTIF(SheetB!$B:$B,B2)>0 と入力→[書式]ボタンをクリック→
塗りつぶしのタブをクリック→黄色を選択→[OK]をクリック→[OK]をクリック→[適用]をクリック→[OK]をクリック
黄色になってないセルの会員番号はシートBには存在しないということを示します。
こんなのでいかが?ただし、この設定だけでは「Bシートにしか入ってない人」はわかりません。 このスレッドは1000を超えました。
新しいスレッドを立ててください。
life time: 90日 7時間 10分 2秒 5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php レス数が1000を超えています。これ以上書き込みはできません。