<?xml version="1.0" encoding="utf-8" ?><rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns="http://purl.org/rss/1.0/" 
			xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:content="http://purl.org/rss/1.0/modules/content/" 
			xmlns:cc="http://web.resource.org/cc/" xml:lang="ja">
<channel rdf:about="http://yanchakun007.blog31.fc2.com/?xml">
<title>エクセル勉強しませんか</title>
<link>http://yanchakun007.blog31.fc2.com/</link>
<description>集めた資料に基づいてエクセルを勉強する</description>
<dc:language>ja</dc:language>
<items>
<rdf:Seq>
<rdf:li rdf:resource="http://yanchakun007.blog31.fc2.com/blog-entry-534.html" />
<rdf:li rdf:resource="http://yanchakun007.blog31.fc2.com/blog-entry-533.html" />
<rdf:li rdf:resource="http://yanchakun007.blog31.fc2.com/blog-entry-532.html" />
<rdf:li rdf:resource="http://yanchakun007.blog31.fc2.com/blog-entry-531.html" />
<rdf:li rdf:resource="http://yanchakun007.blog31.fc2.com/blog-entry-530.html" />
</rdf:Seq>
</items>
</channel>
<item rdf:about="http://yanchakun007.blog31.fc2.com/blog-entry-534.html">
<link>http://yanchakun007.blog31.fc2.com/blog-entry-534.html</link>
<title>隣のセルに関数を自動入力させたい</title>
<description> ワークシートイベントを使用するのは解ったのですが、どう記述すれば、、    A     B     C     D     E1 ID  担当者        ID  氏名2 3    山田          1   佐藤3 1    佐藤          2   斉藤4                       3   山田で、A列にID番号を入力したときに隣のB列に関数=VLOOKUP(A4,$D$2:$E$4,2,FALSE)が自動的に入力されるようなマクロを作成したいのですA列のデータはこれからどんどん入力していきますD列F列は担当者管
 </description>
<content:encoded>
<![CDATA[ ワークシートイベントを使用するのは解ったのですが、どう記述すれば、、 <br />   A     B     C     D     E<br />1 ID  担当者        ID  氏名<br />2 3    山田          1   佐藤<br />3 1    佐藤          2   斉藤<br />4                       3   山田<br />で、A列にID番号を入力したときに<br />隣のB列に関数=VLOOKUP(A4,$D$2:$E$4,2,FALSE)が<br />自動的に入力されるようなマクロを作成したいのです<br />A列のデータはこれからどんどん入力していきます<br />D列F列は担当者管理の枠で固定です<br /><br /> 数式を入力したいのですね？ <br /> Private Sub Worksheet_Change(ByVal Target As Range)<br />   If Target.Count > 1 Then Exit Sub<br />   If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub<br />   Application.EnableEvents = False<br />     If Target.Value = "" Then<br />         Target.Offset(0, 1).Value = ""<br />     Else<br />         Target.Offset(0, 1).FormulaR1C1 = "=VLOOKUP(RC[-1],R2C4:R4C5,2,FALSE)"<br />     End If<br />  Application.EnableEvents = True<br /> End Sub<br /> ※ (1) 入力IDは、1つとします。<br /> 　 (2) IDがクリアーされたら、式も消えるものとします。<br /> もし、なんかシートが反応しなくなった様な状況に陥ったら、、<br /> イミディエートウィンドウを出し、<br /> Application.EnableEvents = True　と入力し、<br /> Enterキーを押下して下さい。<br /> ]]>
</content:encoded>
<dc:subject>エクセル</dc:subject>
<dc:date>2007-09-20T22:19:38+09:00</dc:date>
<dc:creator>cat</dc:creator>
<dc:publisher>FC2-BLOG</dc:publisher>
</item>
<item rdf:about="http://yanchakun007.blog31.fc2.com/blog-entry-533.html">
<link>http://yanchakun007.blog31.fc2.com/blog-entry-533.html</link>
<title>□にチェックを付けたい</title>
<description> アンケート表を作ってますが、□にチェックを付けられればと思ってます。 （例）１．この店を何で知ったか？ □友達　□新聞　□通りかかって　□ＨＰ の”□”にチェックマークをパソコン上で入れられるようにしたいのです。  ツールバーの中にフォームというツールバーがあり、 その中にチェックボックスというのがありますが・・・
 </description>
<content:encoded>
<![CDATA[ アンケート表を作ってますが、□にチェックを付けられればと思ってます。 <br />（例）１．この店を何で知ったか？ <br />□友達　□新聞　□通りかかって　□ＨＰ <br />の”□”にチェックマークをパソコン上で入れられるようにしたいのです。 <br /><br /> ツールバーの中にフォームというツールバーがあり、<br /> その中にチェックボックスというのがありますが・・・<br /> ]]>
</content:encoded>
<dc:subject>エクセル</dc:subject>
<dc:date>2007-09-19T16:56:20+09:00</dc:date>
<dc:creator>cat</dc:creator>
<dc:publisher>FC2-BLOG</dc:publisher>
</item>
<item rdf:about="http://yanchakun007.blog31.fc2.com/blog-entry-532.html">
<link>http://yanchakun007.blog31.fc2.com/blog-entry-532.html</link>
<title>COUNTBLANK</title>
<description> [WindowsXP]　　[Excel2002]COUNTBLANKで＝COUNTBLANK(A1：A12）が通常だと思うのですが一行おきにはできないのでしょうか。 ＝COUNTBLANK(A1,A3,A5）見たいにできるのであれば教えてください。  =SUMPRODUCT(MOD(ROW(A1:A12),2)*(A1:A12=&quot;&quot;)) 　
 </description>
<content:encoded>
<![CDATA[ [WindowsXP]　　[Excel2002]<br />COUNTBLANKで＝COUNTBLANK(A1：A12）が通常だと思うのですが一行おきにはできないのでしょうか。<br /> ＝COUNTBLANK(A1,A3,A5）見たいにできるのであれば教えてください。 <br /><br /> =SUMPRODUCT(MOD(ROW(A1:A12),2)*(A1:A12="")) 　 <br /> ]]>
</content:encoded>
<dc:subject>エクセル</dc:subject>
<dc:date>2007-09-18T18:45:35+09:00</dc:date>
<dc:creator>cat</dc:creator>
<dc:publisher>FC2-BLOG</dc:publisher>
</item>
<item rdf:about="http://yanchakun007.blog31.fc2.com/blog-entry-531.html">
<link>http://yanchakun007.blog31.fc2.com/blog-entry-531.html</link>
<title>日付の属する年の日数</title>
<description> ある日付を入力すると、その日付が属する年がうるう年なら「３６６」、そうでなければ「３６５」を返す関数（あるいは関数の組み合わせ）はありますでしょうか。 A1に日付が入力されるとして、 =DATE(YEAR(A1)+1,1,1)-DATE(YEAR(A1),1,1) =SUMPRODUCT(DATE(YEAR(A1)+ROW(1:2)-1,1,1)*{-1;1}) =365+(MONTH(DATE(YEAR(A1),2,29))=2) 西暦年を４で割って、 割り切れればうるう年 余りがあれば平年
 </description>
<content:encoded>
<![CDATA[ ある日付を入力すると、その日付が属する年がうるう年なら「３６６」、<br />そうでなければ「３６５」を返す関数（あるいは関数の組み合わせ）はありますでしょうか。<br /><br /> A1に日付が入力されるとして、<br /> =DATE(YEAR(A1)+1,1,1)-DATE(YEAR(A1),1,1)<br /> =SUMPRODUCT(DATE(YEAR(A1)+ROW(1:2)-1,1,1)*{-1;1})<br /> =365+(MONTH(DATE(YEAR(A1),2,29))=2)<br /> 西暦年を４で割って、<br /> 割り切れればうるう年<br /> 余りがあれば平年<br /> ]]>
</content:encoded>
<dc:subject>エクセル</dc:subject>
<dc:date>2007-09-18T18:44:23+09:00</dc:date>
<dc:creator>cat</dc:creator>
<dc:publisher>FC2-BLOG</dc:publisher>
</item>
<item rdf:about="http://yanchakun007.blog31.fc2.com/blog-entry-530.html">
<link>http://yanchakun007.blog31.fc2.com/blog-entry-530.html</link>
<title>出社時間帯が深夜勤務時間帯の場合もある勤務管理表</title>
<description> 出社時間帯が深夜勤務時間帯の場合もある勤務管理表を作成しようとしています。一日の勤務時間が24時間を越えないと想定され、（すみません、労働基準法越えてますが、、そういう表を作りたいというところからのようなので。。） 深夜時間帯に開始時間がある場合の計算がうまくいきません。 条件として 1）9時間、ないしは10時間を越える場合（労働時間8時間＋C:休憩時間）、残業時間として計算する。 2）22：00～翌5：00の勤務の
 </description>
<content:encoded>
<![CDATA[ 出社時間帯が深夜勤務時間帯の場合もある勤務管理表を作成しようとしています。<br />一日の勤務時間が24時間を越えないと想定され、<br />（すみません、労働基準法越えてますが、、そういう表を作りたいというところからのようなので。。） <br />深夜時間帯に開始時間がある場合の計算がうまくいきません。 <br />条件として <br />1）9時間、ないしは10時間を越える場合（労働時間8時間＋C:休憩時間）、残業時間として計算する。 <br />2）22：00～翌5：00の勤務の場合深夜残業として、残業時間とは別として扱い、計算する。 <br />	A	B	C	D	E	F	<br />1	出勤	退勤	休憩時間	労働時間	残業時間	深夜22：00～5：00<br />2	10:00	19:00	1:00	9:00	0:00	<br />3	9:00	1:00	1:00	16:00	7:00	3:00<br />4	3:00	20:00	2:00	17:00	7:00	2:00	<br />5	3:00	1:00	2:00	22:00	12:00	5:00<br />上記のような表で作成したいのですが、 A～C列は入力し、D～Fを計算で出したいと思います。<br />入力する関数をどうすればよいか教えてください。<br />Excel2002/WindowsXPです。 <br /><br /> D2=B2-A2+(A2>B2)<br /> E2=MAX(0,D2-C2-"8:")<br /> F2=TEXT("5:"-MIN(A2,"5:")+MAX(0,MIN("29:",B2+(A2>B2))-"22:"),"[h]:mm;;;")<br /> として下にフィルコピーでどうでしょうか。<br /> ]]>
</content:encoded>
<dc:subject>エクセル</dc:subject>
<dc:date>2007-09-17T17:56:40+09:00</dc:date>
<dc:creator>cat</dc:creator>
<dc:publisher>FC2-BLOG</dc:publisher>
</item>
</rdf:RDF>